我尝试了多种方式来复制/克隆文件并将其粘贴到另一个目录中,这是一种唯一的方式,只会产生一个错误

procedure TDelForm.moveFileClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    edit1.Text:=OpenDialog1.FileName;
    SaveDialog1.FileName:=OpenDialog1.FileName;
  end;

  if SaveDialog1.Execute then
    edit2.Text:=SaveDialog1.FileName;

  MoveFile(pchar(edit1.Text), pchar(edit2.Text));
end;


Unit1.pas(46):E2066缺少运算符或分号

Unit1.pas(46):预期使用E2014语句,但找到类型为“ TButton”的表达式

最佳答案

根据事件处理程序(moveFileClick)的名称和IDE命名事物的方式,您在窗体上有一个名为moveFile的按钮,该按钮与函数名称冲突。编译器认为MoveFile指的是按钮,并且正在寻找一个点,其后是属性或方法。重命名该按钮,或通过将其引用为MoveFile来明确解决对SysUtils.MoveFile()的调用。

SysUtils.MoveFile(PChar(edit1.Text), PChar(edit2.Text));

09-25 21:35