Etwas ist mir immer noch nicht ganz klar.
Funktioniert das so? (Das
Query der Prozedur wird freigegeben)
Delphi-Quellcode:
{ Abfrageprozedur }
function Abfrageirgendwas: TDataSet;
var
Query: TQuery;
begin
Query:= TQuery.Create(
Nil);
try
//Abfrage ausführen
Result:=
Query;
finally
Query.Free;
end;
end;
procedure TFormMain.ButtonAbfrageClick(Sender: TObject);
var
Query: TQuery;
begin
Query:= TQuery.Create(
Nil);
try
Query:= Abfrageirgendwas;
{ Enthält das Query immenoch die Daten? }
finally
Query.Free;
end;
end;
Hoffe auf Aufklärung