delphi - 为什么我的 TStringList 没有排序？

Question

我有一个自定义排序 TStringList ...

Items.CustomSort(@CompareWords);

...使用此比较功能:

function CompareWords(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := StrIComp(PWideChar(List[Index1]), PWideChar(List[Index2]));
end;

但是在注意到我的代码存在一些问题后，它希望列表按顺序排序 StrIComp诱导，我创建了这个小支票......

for i := 1 to Items.Count - 1 do
begin
  Assert(StrIComp(PWideChar(Items[i-1]), PWideChar(Items[i])) <= 0);
end;

......它失败了。

为什么列表没有正确排序？

Answer 1

你可能有 Items.Sorted=True。