Strings aus einer Memo parsen und kopieren

[Luckie]

Delphi-Quellcode:

var
  s: String;
  i : Integer;
begin
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    s := copy(Memo1.Lines.Strings[i], pos(':', Memo1.Lines.Strings[i]), pos(',', Memo1.Lines.Strings[i]);
    ShowMessage(s);
  end;

Mal so aus dem Kopf ungetestet. Wenn ein Zeichen fehlt oder zuviel ist mußt du mal etwas mit +/- bei pos spielen. Ich weiß nie, welche Position genau zurückgegeben wird.