Anfänger braucht Hilfe

[Billa]

Hallo,

eigentlich wollte ichs ja nicht tun....aber hier ist Code, der anscheinend funktioniert

Delphi-Quellcode:

  try
    ts_main := TStringList.Create;
    try
      ts := TStringList.Create;
      for i:= 1 to 5 do
        if fileExists('C:\file'+IntToStr(i)+'.txt') then
        begin
          ts.LoadFromFile('C:\file'+IntToStr(i)+'.txt');
          if ts.Count > 0 then
            ts_main.add(ts.strings[0]);
        end;
    finally
      ts.Free;
    end;
    ts_main.SaveToFile('C:\files.txt');
  finally
    ts_main.Free;
  end;