有关copyfile的问题

Question

代码如下：
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
s,x:string;
begin
if opendialog1.Execute then
begin
s:=  opendialog1.FileName;
edit1.Text:=s;
end;end;
procedure TForm1.Button3Click(Sender: TObject);
var
x,s:string;
begin
s:=edit1.text;
copyfile(s,'D:\123\xyz.txt',true);
end;end.为什么我点确定后它不复制呢？把以上红字部分改为copyfile('d:\222.txt','D:\123\xyz.txt',false)才可以，这是为什么？

Answer 1

copyfile(s,'D:\123\xyz.txt',true);这里错了，要写成
copyfile(Pchar(s),'D:\123\xyz.txt',true);就可以了