String parsen ?

[alzaimar]

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;