Probleme mit StringList

[Klaus01]

@Thomas

danke wieder etwas gelernt.

So geht es also auch:

Delphi-Quellcode:

function fillList(var lst:TStringList):boolean;
begin
  lst := TStringList.create;
  lst.Add('1');
  lst.Add('2');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
begin
  fillList(sl);
  Memo1.lines.Assign(sl);
  sl.free;
end;

Grüße
Klaus