关于文件拷贝的问题

Question

我用ｃｏｐｙｆｉｌｅ函数进行文件的拷贝
我想用相对路径的方式进行拷贝
但是总是说类型错误
请问是什么原因呢？
有什么样的解决办法？
如果能用一个例子解释一下那更好了
谢谢高手指点

Answer 1

if opendialog1.Execute then
    edit1.Text:=expandFileName(opendialog1.FileName);
Copyfile(edit1.text,ExtractFilePath(Application.ExeName)+'\data',true);

Answer 2

前两个参数必须转换成字符指针形式,用pchar强制转换！
即：Copyfile(pchar(edit1.text),pchar(ExtractFilePath(Application.ExeName)+'\data'),true);

Answer 3

if opendialog1.Execute then
    edit1.Text:=expandFileName(opendialog1.FileName);
Copyfile(edit1.text,ExtractFilePath(Application.ExeName)+'\data',true);
有可能ExtractFilePath(Application.ExeName)+'\data'是一个目录