Question

Delphi 复制文件问题

procedure TForm1.Button3Click(Sender: TObject);
var a:string;
begin
a:=edit2.text;
copyfile('d:\a.txt','+edit2.text+',false);
showmessage(edit2.text);
form1.Caption:=a
end;
请问各位，这几行代码错在那啊
copyfile('d:\a.txt', a, false);
不行啊！提示错误！
copyfile('d:\a.txt',edit2.text,false);
试过了，还是提示错误！
倒底错在哪儿，哪位大哥帮下忙啊！

Answer 1

改成这样：

procedure TForm1.Button3Click(Sender: TObject);
var a:string;
begin
a := edit2.text;
copyfile('d:\a.txt', a, false);
showmessage(edit2.text);
form1.Caption := a
end;

Answer 2

procedure TForm1.Button3Click(Sender: TObject);
var a:string;
begin
a:=edit2.text;
//copyfile('d:\a.txt','+edit2.text+',false); -->是这么使用的嘛?
copyfile('d:\a.txt',edit2.text,false); -->是这么使用的嘛?

showmessage(edit2.text);
form1.Caption:=a
end;
请问各位，这几行代码错在那啊