Danke! Aber ich habe das jetzt getrennt und es funktioniert immer noch nicht! (Sicherlich ist aber die Trennung sinnvoll!) Allerdings verwirrt mich deine Aussage:
>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!
Denn in jeder Datei ist nur eine Zeile und die Enddatei hat genauso viele Eintragszeilen wie es Dateien gibt.
Delphi-Quellcode:
procedure TTest_1.Button5Click(Sender: TObject);
var ts_main, ts: TStringList;
i ,f: Integer;
begin
f:=0;
ts_main := TStringList.Create;
try
ts := TStringList.Create;
try
for i:= 1 to 5 do
begin
if fileExists('C:\file'+IntToStr(i)+'.txt') then
f:=f+1;
ts.LoadFromFile('C:\file'+IntToStr(i)+'.txt');
if ts.Count > 0 then
begin
ts_main.add(ts.strings[f]);
end;
end;
finally
ts.Free;
end;
ts_main.SaveToFile('C:\files.txt');
finally
ts_main.Free;
end;
end;
Gruß
Ringer