Funktion die TStrings ausgibt

[Steve]

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 weiß nicht, wie sinnvoll das ist, aber müsste es nicht z.B. folgendermaßen auch funzen?

Delphi-Quellcode:

function neueSL : TStringList;
begin
  result := TStringList.Create;
  result.Append('TEST');
END;


procedure TForm1.Button1Click(Sender: TObject);
VAR
  SL : TStringList;
begin
  SL := neueSL;
  showMessage(SL.text);
  SL.Free;
end;

Stephan

edit: tippfehler