freepascal.ru

Код: Выделить всё

var query : TZReadOnlyQuery;
begin

query:=TZReadOnlyQuery.Create(application);
query.Connection:=DataModule1.ZConnection1;
.
.
.
{уничтожаю так:}
query.Close;

query:=nil;
query.Free;
end;

Код: Выделить всё

query:=nil;
query.Free;

Код: Выделить всё

      procedure TObject.Free;

        begin
           // the call via self avoids a warning
           if self<>nil then
             self.destroy;
        end;

Код: Выделить всё

var query : TZReadOnlyQuery;
begin

query:=TZReadOnlyQuery.Create(application);
query.Connection:=DataModule1.ZConnection1;
.
.
.
{уничтожаю так:}
query.Close;

FreeAndNil(query);
end;

Код: Выделить всё

result:= OK;
QueryVar:= nil;
try
  QueryVar:= QueryType.Create(..);
  try
    [...]
    QueryVar.Active:= true;
  except
    on e:EDatabaseError do begin 
       result:= FAILED;
       ShowMessage('Smth wrong');
       exit; 
    end;
    [..]
  end;
finally
  if QueryVar <> nil then begin
    QueryVar.Active:= false;
    FreeAndNil(QueryVar);
  end;
end;

Код: Выделить всё

function get_value_from_bd (table : integer; id : string; pole : string) : string;
var query : TZReadOnlyQuery; s1,s2 : string;
begin
 if id='' then id:='0';

 query:=TZReadOnlyQuery.Create(application);


 query.Connection:=DataModule1.ZConnection1;


 query.SQL.Clear;
 query.SQL.Add('SELECT s_tables.`table`, s_tables.id_table FROM s_tables WHERE s_tables.id_s_tables = '+inttostr(table));
 query.Open;
 s1:=query.FieldByName('table').AsString;
 s2:=query.FieldByName('id_table').AsString;
 query.Close;

 query.SQL.Clear;
 query.SQL.Add('SELECT '+s1+'.'+pole+' FROM '+s1+' WHERE '+s1+'.'+s2+' = '+id);
 query.Open;

 get_value_from_bd:=query.FieldByName(pole).AsString;

 query.Close;



 Query.Active:= false;
 FreeAndNil(Query);

end;                           

Код: Выделить всё

сразу исключение...