创建了一个复制函数,当尝试在其中使用“CopyFile”时,在编译时,Delphi 将其标记为未声明的标识符。
我做错了什么吗?
function TdmData.CopyAFile(Sourcefile, DestFile: string): boolean;
var Src, Dest : PChar;
begin
Src := StrAlloc(Length(SourceFile)+1);
Dest := StrAlloc(Length(DestFile)+1);
try
StrPCopy(Src,SourceFile);
StrPCopy(Dest,DestFile);
result := (CopyFile(Src,Dest,FALSE));
finally
StrDispose(Src);
StrDispose(Dest);
end;
end;
任何帮助将不胜感激, 谢谢。
最佳答案
CopyFile
是在 Windows
单元中声明的 Windows API 函数。您需要将 Windows
添加到您的 uses 子句中。或者,如果您使用完全限定的命名空间,请添加 Winapi.Windows
。
代码还应避免执行实际上不必要的堆分配和字符串复制。您可以将问题中的代码替换为:
uses
Windows; // or Winapi.Windows
....
function TdmData.CopyAFile(const SourceFile, DestFile: string): Boolean;
begin
Result := CopyFile(PChar(SourceFile), PChar(DestFile), False);
end;
关于delphi - CopyFile 标记为未声明的标识符,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30591327/