Question

用FOR循环编好一次建多个文本文档的命令？

有谁能给我弄一个实用的我决不会亏待他（她）的

Answer 1

program shengcheng;
const
n=9;{生成文件数，上限为9}
var
i:integer;
file1,filename:string;
begin
filename:='wendang.';
for i:=1 to n do
begin
file1:=filename+chr(48+i);
file1:=file1+'.txt';
assign(output,file1);
rewrite(output);
close(output);
end;
end.