Moin Zusammen,
um das Ganze mal zu verallgemeinern:
Delphi-Quellcode:
// Das const soll verhindern, dass man sich den Pointer auf das Objekt zerschiesst
procedure IchMacheWasMitIrgendeinemObjekt(const AObjekt : TIrgendeineKlasse);
begin
//...
end;
var
ObjektVariable : TIrgendeineKlasse;
begin
ObjektVariable := TIrgendeinKlasse.Create;
try
IchMacheWasMitIrgendeinemObjekt(ObjektVariable);
finally
FreeAndNil(ObjektVariable); // oder ObjektVariable.Free;
end;
end;
Es ginge statt der Prozedur natürlich auch eine Funktion, solange diese kein Objekt zurückliefert.