Textinhalt aufsplitten

[DeddyH]

Ungefähr so (aus dem Kopf):

Delphi-Quellcode:

var
  MaxCount, i: integer;
  DestList: TStringlist;
begin
  MaxCount := ListBox1.Items.Count;
  if ListBox2.Items.Count < MaxCount then
    MaxCount := ListBox2.Items.Count;
  DestList := TStringlist.Create;
  try
    for i := 0 to MaxCount - 1 do
      DestList.Add(ListBox1.Items[i] + ';' + ListBox2.Items[i]);
    DestList.SaveToFile(Dateiname);
  finally
    DestList.Free;
  end;
end;