delphi - 在排序的TStringList中搜索带有前缀(StartsText)的条目

我有一个TStringList排序并包含唯一的文件名。该列表可以是任何大小（因此可以是成千上万的条目）。我想检查是否有任何条目以特定的字符串开头（即文件是否在子文件夹中）。序列扫描列表并使用StartsText很容易，但这不是理想的解决方案。

使用TStringList.Find（）代码作为起点，我创建了一个我认为是解决方案的函数，但是我想确定一下。不必担心以下内容不是该类的成员（FList是正在搜索的TStringList实例），并且StartsFilename的工作方式与StartsText相同：

  function ShortcutFind(const S: string): Boolean;
  var
    L, H, I, C: Integer;
  begin
    Result := False;
    L := 0;
    H := FList.Count - 1;
    while L <= H do begin
      I := (L + H) shr 1;

      if TFilenameUtils.StartsFilename(FList[I], aFolder) then begin
        Result:=TRUE;
        Exit;
      end;

      C := FList.CompareStrings(FList[I], S);
      if C < 0 then
        L := I + 1
      else begin
        H := I - 1;
        if C = 0 then begin
          Result := True;
          if FList.Duplicates <> dupAccept then L := I;
        end;
      end;
    end;
  end;

基本上，唯一真正的变化是它会在进入下一个要比较的条目之前进行检查。

请注意，从TStringList切换不是一个选项。

这种方法行得通吗？

谢谢

最佳答案

如果TFilenameUtils.StartsFilename与StartsText相同（并且您的第一段建议可能如此），则可以使用TStringList.Find而不是复制它来在一个语句中完成整个功能：

var
  I: Integer;
begin
  Assert(not FList.CaseSensitive);
  Result := FList.Find(S, I) or ((I < FList.Count) and StartsText(S, FList[I]));
end;

那应该行得通，因为当Find失败时，它仍会告诉您所需字符串将出现在列表中的位置的索引。当您搜索前缀字符串时，其位置将在以该前缀开头的任何其他字符串之前，因此，如果有任何带有该前缀的字符串，它们将立即出现在前缀本身的假定位置之后。



如果要保留当前代码，则可以通过删除检查C = 0的条件来简化它。除非您的StartsFilename函数损坏，否则永远不会发生这种情况。但是，如果函数确实坏了，并且C可以为零，那么您至少可以在那一刻停止执行循环，因为找到了要查找的内容。无论哪种方式，您都不需要检查Duplicates，因为您的函数与Find返回所找到项目的索引的要求不同。