Zeile zerlegen und teile in Variablen einfügen

[Ultimator]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Line: string;
  poskommaeins: integer;
  text: string;
  poskommazwei: integer;
  typ: string;
  icon: string;
begin
  line := Memo1.Lines.Strings[0];
  poskommaeins := pos(',' , line);
  Text := copy(line, pos('(', line)+1, posKommaEins - pos('(', line));
  posKommaZwei:= posEx(',', line, posKommaEins) +1;
  Typ := copy(line, posKommaeins+1, length(line)-posKommaZwei);
  Icon := copy(line, posKommaZwei, pos(')',line));
  Edit1.Text := 'Text: ' + Text + 'Typ: ' + typ + 'Icon: ' + icon
end;

Hab nochmal nachgedacht, und das ist dabei rausgekommen. Probiers aus obs klappt, hab grad kein Delphi zur Hand