Anfänger braucht Hilfe

[Ringer]

Hallo Zusammen,

ich habe gestern folgendes Problem ins Forum gestellt. Ich habe mehrere Dateien file1.txt, file2.txt usw. diese haben immer eine Zeile mit Informationen (wert1,wert2...). Nun will ich diese Informationen in einer "grossen" Textdatei zusammenfassen. Ich habe mir folgenden
code überlegt aber er scheidert schon daran das ich die Dateinamen in einer Schleife erstellen will. Aber ich denke der Grundgedanke dürfte klar sein . Ich als Anfänger bitte daher um etwas Hilfe .

Delphi-Quellcode:

procedure TTest_1.Button5Click(Sender: TObject);
  var ts_main, ts: TStringList;
  i : Integer;
begin
  ts_main := TStringList.Create;
  try
    ts := TStringList.Create;
    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
      ts.Free;
    end;
    ts_main.SaveToFile('C:\files.txt');
  finally
  ts_main.Free;

end;

mfg

Ringer