Hallo,
Delphi-Quellcode:
try
for i:= 1 to 20 do
begin
if fileExists('C:\file'+i+'.txt') then
ts.LoadFromFile('C:\file'+i+'.txt');
if ts.Count > 0 then
begin
ts_main.Add(ts.strings[i]);
end;
end;
finally
Du willst bis zu 20 Dateien lesen. Soweit Ok! Beim Einlesen aber benutzt Du den Dateienzähler als Zeilenindex, obwohl Du nicht weißt, ob z.B. bei der Datei Nr. 17 überhaupt 17 Zeilen vorhanden sind!
Trenne Zeilenzähler und Dateizähler, dann wird's auf alle Fälle besser!
Gruß Billa