Nehmen wir an, dass die Dateien mit beliebigen Namen alle in einem Verzeichnis liegen, dann könntest Du recht einfach mit FindFirst arbeiten.
Oder wäre ein Dialog eine Alternative?
Ein Dateiauswahldialog, den so konfigurieren, dass mehrere Dateien ausgewählt werden können und diese dann alle laden. (Klingt komplizierter, als es ist.)
Einen Dialog nutzen, der "nur" zur Auswahl eines Verzeichnisses dient und dann im ausgewählten Verzeichnis alle Dateien lesen ...
Mit LoadFromFile kann man aber nicht mehrere Dateien gleichzeitig laden, sondern immer nur eine.
Aber: Items ist vom Typ TStrings und hat die Methode AddStrings. Damit kann man den Inhalt einer Stringliste zu den vorhandene Items hinzufügen. Grob ungefähr sowas (ungetestet hingedaddelt):
Delphi-Quellcode:
var
sl : TStringList;
sr : TSearchRec;
begin
sl := TStringList.Create;
Listbox1.Items.Clear;
// Statt Liste*.txt irgendeinen Namensplatzhalter nach eigenen Wünschen.
// Ggfls. auch noch 'nen Pfad mit angeben.
If FindFirst('Liste*.txt',faAnyFile,sr) = 0 then begin
Repeat
sl.LoadFromFile(sr.Name);
Listbox1.Items.AddStrings(sl);
until FindNext(sr) <> 0;
end;
FindClose(sr);
sl.Free;
end;