我尝试了多种方法来复制/克隆文件并将其粘贴到另一个目录中,这是一种唯一的错误,只有一个错误
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”类型的表达式
答案 0 :(得分:8)
基于事件处理程序(moveFileClick
)的名称和IDE命名事物的方式,您的窗体上有一个名为moveFile
的按钮,该按钮与函数名称冲突。编译器认为MoveFile
引用了该按钮,并且正在寻找一个点,其后是属性或方法。重命名按钮,或通过将其引用为MoveFile
来明确解决对SysUtils.MoveFile()
的调用。
SysUtils.MoveFile(PChar(edit1.Text), PChar(edit2.Text));