Работа с файлами

← →
Fess (2004-03-07 14:20) [0]

Можно ли сделать в delphi такую штуку, как:
var a[20] : FileText;

procedure //что-то;
begin
for i:=0 to 20 do
begin
Assign(a[i], "a"+IntToStr(i+1)+".txt");
ReWrite(a[i]);
FileClose(a[i]);
end;
end;
то есть в результате получались бы 20 файлов а1.txt, а2.txt, ..., а20.txt.
Если нет, то как можно? А то что-то не охота объявлять 20 пременных...

← →
Serge © (2004-03-07 14:48) [1]

var a : FileText;
i : smallint;
begin
for i:=0 to 20 do
begin
AssignFile(a, "a"+IntToStr(i+1)+".txt");
ReWrite(a);
CloseFile(a);
end;
end;

← →
Gero © (2004-03-07 15:12) [2]

> var a : FileText;
А что такое FileText? Может TextFile?

Кстати, файлов получится не 20, а 21.

<var a : FileText;> "очипятка" - правил на его-же тексте, а сколько файлов выходит, так автору виднее, он длиннее :)

Работа с файлами Найти похожие ветки