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

显示全部楼层 · 2008-9-21 12:07:48

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

千问 · 2008-9-21 12:07:48

program shengcheng;constn=9;{生成文件数，上限为9}vari: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....