String trennen

[mkinzler]

Delphi-Quellcode:

var
  sl: TStrings;
  i: Integer;
begin
  try
    sl := TStringList.Create;
    sl.CommaText := '1, 2, 3, 4';
    for i := 0 to sl.Count-1 do
        ListView1.Items.add.Caption := sl.Strings[i];
  finally
    sl.Free;
  end;
end;