请问，delphi中怎么连续自动命名txt文件。点击一次创建一个。如 1.txt , 2.txt, 3.txt ......

追问：这样是点击一次，就创建了100个文件。
     我想要的是，每次创建一个文件。

答案：var
  i:Integer;
begin
  for i:=0 to 100 do
  begin
    CreateFile(PAnsiChar(IntToStr(i) + '.txt'),GENERIC_ALL,FILE_ACTION_RENAMED_NEW_NAME,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,0);
  end;
end;

其他：一个简单的逻辑不就可以了吗。
就是自动生成一个顺序排列的文件名。写一个函数，检测一下，返回一个自动编号的文件名。
 var
    i: integer;
   lFileName: string;
begin
  i:= 1;
 lFileName= format('%d.txt', [i]);
while fileexists(lfilename) do
  begin
    inc(i);
    lFileName= format('%d.txt', [i]);
 end;
  result:= lFileName;
 大概原理是这样的。 

上一个：请问delphi中怎么把两个文件快速读入一个RichEdit中？我不要一行一行读的，几千行。感谢大虾！
下一个：Delphi中[Hint] Prj_load.dpr(23): Value assigned to 'pdatabuffer' never used是什么意思？