Daten anhängen

[Tpercon]

Natürlich ungetestet, sollte aber die Vorgehensweise klar machen.

Delphi-Quellcode:

var ts_main, ts: TStringList;
begin
  ts_main := TStringList.Create;
  try
    ts := TStringList.Create;
    try
      for i := 1 to 50 do //hier deine dateien laden, woher auch immer
        ts.LoadFromFile(dateixy);
        if ts.Count > 0 then begin
          ts_main.Add(ts.Strings[0]);
        end;
    finally
      ts.Free;
    end;
    ts_main.SaveToFile(Haupdatei);
  finally
    ts_main.Free;
  end;