批量生成文件名? ( 积分: 10 )

我想生成从1到100个文本文件,文件名从1到100,请问怎么生成?

var
FilePath:String;
FileHandle,i:Integer;
begin
for i:=1 to 100 do
begin
FilePath:=ExtractFilePath(Application.ExeName)+'1.txt';
if not FileExists(FilePath) then
begin
FileHandle:=FileCreate(FilePath);
FileClose(FileHandle);
end;
end;

我想生成DBGridEH的多选择行输出,那要怎么样操作?

接受答案了.