Ok, danke. Hart aber fair!
Bin deinem Rat gefolgt: Und siehe da, habe den Fehler auch gefunden. Allerdings hing er mit den Filelistboxen zusammen: Wenn man in eine Filelistbox via .directory eine Dateiliste übergibt, kann man unmittelbar daran im Anschluss die Dateien so laden:
Delphi-Quellcode:
begin
var
x: Tstringlist;
i: integer;
x := trstringlist.create;
try
for i:=0 to FILESLISTBOX.items.count -1 do
begin
x.loadfromfile(Filelistbox.items.strings[i]
// Irgendwas..
end;
finally
x.free;
end;
Das interessante ist: beim laden der ersten Listbox geht das (also die Dateien werden geladen), OBWOHL in ..items.strings[i] nur der Dateiname der i.Datei ist.
Lädt man jetzt auf die gleiche Weise in eine andere Filelistbox Daten, funktioniert das aus irgendeinem Grund nicht mehr. Spätestens jetzt muss die loadfrom-Zeile den Pfad explizit (!) beinhalten:
Delphi-Quellcode:
begin
var
x: Tstringlist;
i: integer;
path: string;
x := trstringlist.create;
try
path:= filelistbox.directory + '\'
for i:=0 to FILESLISTBOX.items.count -1 do
begin
x.loadfromfile(path + Filelistbox.items.strings[i]);
// Irgendwas..
end;
finally
x.free;
end;
Ok, Euch vielen Dank für die Mühe und auch für den Aufräum-Code (Stringreplace..).
Gruß, frieder