Zitat von
alf.stefan:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s :='>>3<<,>>9<<,>>10<<,>>11<<,>>25<<,>>28<<,>>30<<,>>35<<';
memo1.Lines.AddStrings(parse(s));
end;
function parse(s: string):TStringList;
begin
result := TstringList.Create;
result.CommaText := s;
end;
... Nee. Eine Funktion, die ein Objekt liefert, das nie freigegeben wird?
Wieso nicht einfach
Memo1.Lines.Commatext := s;