Zitat von
Luckie:
Jetzt hast du aber ein Problem. wo gibst du das Objekt wieder frei? In der Funktion? dann kannst du es nicht zurückgegebn. Ich würde das Objekt als
out Parameter übergeben.
Delphi-Quellcode:
procedure foo(out sl: TStrings);
begin
sl.Add('Hello');
sl.Add('world');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList; // besser gleich TStringList ;)
begin
sl := TStringList.Create;
try
foo(sl);
ShowMessage(sl.Text);
finally
FreeAndNil(sl);
end;
end;
Hi Luckie,
das out bzw. var kannst du dir bei diesem Beispiel sparen, da die Eigenschaften über die Properties bzw. über die Methoden geändert werden.
mfG
mirage228