Text an bestimmter Stelle splitten

[s-off]

Hallo,

warum machst Du es Dir so schwer?

So geht's (nur mit 2 Memos anstelle der zwei Spalten im ListView):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   i, iPos: Integer;
begin
   for i := 0 to Memo1.Lines.Count - 1 do begin
      iPos := Pos(' ', Memo1.Lines.Strings[i]);
      Memo2.Lines.Add(Copy(Memo1.Lines.Strings[i], 0, iPos));
      Memo3.Lines.Add(Copy(Memo1.Lines.Strings[i], iPos, Length(Memo1.Lines.Strings[i])));
   end;
end;