Textinhalt aufsplitten

[DeddyH]

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  DateiName: TFileName;
  List: TStringlist;
begin
  if OpenDialog1.Execute then
    begin
      List := TStringlist.Create;
      try
        List.LoadFromFile(OpenDialog1.Filename);
        VerteileStrings(List, ListBox2.Items, ListBox3.Items);
      finally
        List.Free;
      end;  
    end;
end;

Das sollte doch auch funktionieren, ohne die Struktur der Datei ändern zu müssen.