Anfänger braucht Hilfe

[Billa]

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