Funktionsrückgabe freigeben

[Muetze1]

Wobei man dies:

Zitat von Angel4585:

Delphi-Quellcode:

procedure DieProzedur(var AMeinObject : TMeinObject);
begin
if Assigned(AMeinObject) then
  FreeAndNil(AMeinObject);
AMeinObject:=TMeinObject.Create;
end;

so verkürzen kann:

Delphi-Quellcode:

procedure DieProzedur(var AMeinObject : TMeinObject);
begin
  AMeinObject.Free;
  AMeinObject := TMeinObject.Create;
end;