Hallo,
du referenzierst immer noch auf eine Zeile f, die gar nicht vorhanden ist
Delphi-Quellcode:
f:=f+1;
ts.LoadFromFile('C:\file'+IntToStr(i)+'.txt');
if ts.Count > 0 then
begin
ts_main.add(ts.strings[f]);
end;
end;
lass doch einfach f erstmal weg und benutze ts.strings[0] !