delphi - Delphi 7 CopyFile函数中的错误:the filename directory name or volume label syntax is incorrect,

Question

我想使用 CopyFile 函数将文件从一个文件夹复制到另一个文件夹。源文件路径存储在名为“itemsDB”的 ClientDataSet 中。代码是:

Var Source, Dest : String;
Begin
  itemsDB.First;
  While Not itemsDB.EOF do
  Begin
    Source := itemsDB.FieldValues['FileN'];
    Dest := 'C:\NewDir\'+ExtractFileName(Source);
    if Not CopyFile(PChar(Source), PChar(Dest), False) then
          Showmessage(SysErrorMessage(getlasterror()));
     itemsDB.Next;
  end; 
 end

当我执行代码时，收到错误消息“文件名目录名称或卷标语法不正确”。我验证了数据集中的所有文件路径，它们是正确的。在我的示例中，我的 clientdataset 包含两个 JPG 图像“c:\test1.jpg”和“c:\test2.jpg”当我尝试 source := 'c:\test1.jpg' 时，它工作得很好，但是当我从 clientdataset 获取它时，它失败了。

提前致谢

Answer 1

更新答案...

(如 recommended ...)

经过评论字段中的一些讨论，发现错误是 Source 字符串中无效的尾随空格字符。

如果 FileN 字段定义为 FixedChar 字符串字段，则 Source 将包含这些尾随空格。

在对象检查器中将 FixedChar 设置为 False，或使用 Source := Trim(Source); 删除尾随空格字符