Hallo!
...es könnte klappen, wenn Du i in eine Zeichenkette umwandelst!
Delphi-Quellcode:
for i:= 1 to 20 do
begin
if fileExists('C:\file'+IntToStr(i)+'.txt') then
ts.LoadFromFile('C:\file'+IntToStr(i)+'.txt');
if ts.Count > 0 then
begin
ts_main.Add(ts.strings[i]);
end;
end;
Gruß
Billa