Скачать: CL | DM;

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

← →
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.

---

← →
Serge ©   (2004-03-07 15:15) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c