Delphi 在使用 FindFirst/FindeNext 搜索时将单引号加倍

Question

我在 Windows 7 上使用 Delphi 2010，并且在递归搜索目录时遇到单引号加倍的问题。

这是我搜索目录的代码。

  if FindFirst(aPath + '*', faDirectory, sr) = 0 then
    try
      repeat
        if  (sr.Name <> '.') and (sr.Name <> '..') then
          if (sr.Attr and faDirectory) = faDirectory then
            SearchFolderEx(aPath + sr.Name + '\', aSearchMasks);

      until FindNext(sr) <> 0;
    finally
      FindClose(sr);
    end;

现在有了这样的路径（从“C:\New folder\”开始）

C:\New folder\New Folder's\New Text Document.txt

FindFirst/FindeNext 将单引号加倍

'New Folder''s'

TSearchRec 中的 FindData.cFileName 看起来像这样

('N', 'e', 'w', ' ', 'F', 'o', 'l', 'd', 'e', 'r', '''', 's', #0, #0, ...)

问题可能出在哪里，我该如何解决？

Answer 1

这里没有问题，也不需要解决任何问题。 ' 是字符串分隔符，只是为了表示为'' 而转义。当调试器在字符串中显示'' 时，这只是它表示单引号字符的方式。

这里的文档涵盖了这个主题：Character Strings。

所以，

''''

是一个长度为 1 的字符串，其单个元素是引号。

同样

'New Folder''s'

是定义字符串的Delphi字符串文字

New Folder's

调试器使用与字符串文字相同的规则向您显示变量的内容。