如何在Delphi中让TStringList进行排序不同

type
  TMyStringList = class(TStringList)
  protected
    function CompareStrings(const S1,S2: string): Integer; override;
  end;

function TMyStringList.CompareStrings(const S1,S2: string): Integer;
begin
  if CaseSensitive then
    Result := CompareStr(S1,S2)
  else
    Result := CompareText(S1,S2);
end;

定义“正常”.
i18n排序完全取决于您的地区.
所以我完全 PA同意,这是不是一个错误：默认排序行为的工作原理设计,让国际化才能正常工作.

像Gerry一样,TStringList.Sort使用AnsiCompareStr和AnsiCompareText(我将在几行中解释它如何做).

但是：TStringList是灵活的,它包含Sort,CustomSort和CompareStrings,这些都是虚拟的(所以你可以在后代类中覆盖它们)
此外,当您调用CustomSort时,您可以插入自己的比较功能.

在这个答案是一个比较功能,做你想要的：

>区分大小写
>不使用任何区域设置
>只是比较字符串的字符的序数值

CustomSort定义为：

procedure TStringList.CustomSort(Compare: TStringListSortCompare);
begin
  if not Sorted and (FCount > 1) then
  begin
    Changing;
    QuickSort(0,FCount - 1,Compare);
    Changed;
  end;
end;

默认情况下,排序方法有一个非常简单的实现,通过默认的比较函数调用StringListCompareStrings：

procedure TStringList.Sort;
begin
  CustomSort(StringListCompareStrings);
end;

所以,如果你定义自己的TStringListSortCompare兼容的比较方法,那么你可以定义自己的排序.
TStringListSortCompare被定义为全局函数取的TStringList和两个指标指你要比较的项目：

type
  TStringListSortCompare = function(List: TStringList; Index1,Index2: Integer): Integer;

您可以使用StringListCompareStrings作为实现自己的指导：

function StringListCompareStrings(List: TStringList; Index1,Index2: Integer): Integer;
begin
  Result := List.CompareStrings(List.FList^[Index1].FString,List.FList^[Index2].FString);
end;

所以,默认情况下,TStringList.Sort会延迟到TList.CompareStrings：

function TStringList.CompareStrings(const S1,S2: string): Integer;
begin
  if CaseSensitive then
    Result := AnsiCompareStr(S1,S2)
  else
    Result := AnsiCompareText(S1,S2);
end;

然后使用下躺在Windows API函数CompareString用默认的用户区域LOCALE_USER_DEFAULT：

function AnsiCompareStr(const S1,S2: string): Integer;
begin
  Result := CompareString(LOCALE_USER_DEFAULT,PChar(S1),Length(S1),PChar(S2),Length(S2)) - 2;
end;

function AnsiCompareText(const S1,NORM_IGNORECASE,Length(S2)) - 2;
end;

最后你需要比较功能.同样的限制：

>区分大小写
>不使用任何语言环境
>只是比较字符串的字符的序数值

这是代码：

function StringListCompareStringsByOrdinalCharacterValue(List: TStringList; Index1,Index2: Integer): Integer;
var
  First: string;
  Second: string;
begin
  First := List[Index1];
  Second := List[Index2];
  if List.CaseSensitive then
    Result := CompareStr(First,Second)
  else
    Result := CompareText(First,Second);
end;

Delphi没有关闭,恰恰相反：通常它是一个非常灵活的架构.
通常只需要挖掘一下可以勾勒出这种灵活性的位置.

–jeroen