请大家来帮个忙！谢谢了！

Question

我才学DELPHI，现在写个小东西，用到COPYFILE函数。
CopyFile('c:\windows\system32\cmd.exe','c:\test.exe',false)
我现在想把c:\windows\system32\cmd.exe 复制到C盘是N个。并且是按照test1.exe......testN.exe
这样。请问怎么实现。

Answer 1

for i := 0 to n
  copyfile('...', format('c:\test%d.exe', [i], false)

Answer 2

认真看了下 c:\windows\system32\cmd.exe 是这个文件哈, 楼主又是不安分的那类??

Answer 3

for i:=0 to n do
begin
filename:='text'+inttostr(i)+'.exe';
CopyFile('c:\windows\system32\cmd.exe','c:\'+filename,false);
end;

Answer 4

('...', format('c:\test%d.exe', [i]), false) 少个括号  郁闷

Answer 5

Incompatible types: 'String' and 'PAnsiChar'

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
   var
   i:integer;
   begin
   for i := 0 to 10 do
   begin
  copyfile('c:\windows\system32\cmd.exe', format('c:\test%d.exe', [i]), false);
  end;
end;
end.
帮我看下哪里有错。我搞晕了现在！

Answer 7

以为你正常了嘛copyfile('c:\windows\system32\cmd.exe', Pchar(format('c:\test%d.exe', [i])), false);...