TStrings übergeben

[marabu]

Hallo,

es geht auch ohne Zwischenvariable. Wenn eine Funktion ein Objekt liefert, dann hat sich ein Namenspräfix "Create" eingebürgert:

Delphi-Quellcode:

function CreateStrings: TStrings;
begin
  Result := TStringlist.Create;
  with Result do
  begin
    Add('erste Zeile');
    Add('zweite Zeile');
    Add('dritte Zeile');
  end;
end;

Wenn es keine zwingenden Gründe dafür gibt, dann sollte man diese Funktion nicht als Methode der Form entwerfen.

Grüße vom marabu