Anfänger braucht Hilfe

[Ringer]

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