Delphi TStringList CustomSort on Name [关闭]

Question

我尝试在名称部分对 TStringList 进行排序。为此，我使用 customSort 方法。

我给你看一个小例子：

    function CompareString(List : TStringList; Index1, Index2 : integer) : integer;
    begin
        result := AnsiCompareText(List.Names[Index1], List.Names[Index2]);
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Memo2.Clear;
        Liste.CustomSort(CompareString);     
        Memo2.Lines.Append(Liste.GetText)
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
        Liste := TStringList.Create;
        Liste.Append('INFOS_NEGOCE=NUM_CDE');
        Liste.Append('INFOS_NEGOCE=DATE_CDE');
        Liste.Append('INFOS_NEGOCE=NOM_REPERTOIRE_ENT');
        Liste.Append('INFOS_NEGOCE=NOM_CONTACT');     
        Memo1.Lines.Clear;
        Memo1.Lines.Append(Liste.GetText)
    end;

排序给我这个结果：

INFOS_NEGOCE=NOM_REPERTOIRE_ENT

INFOS_NEGOCE=NOM_CONTACT

INFOS_NEGOCE=NUM_CDE

INFOS_NEGOCE=DATE_CDE

我认为排序不会改变行的顺序（名称总是INFOF_NEGOCE）。

Answer 1

排序是使用 QuickSort 完成的。这意味着相同项目的顺序（如排序所见）是未定义的。

见Quicksort - Repeated Elements

Answer 2

function CompareString(List : TStringList; Index1, Index2 : integer) : integer;
begin
  Result := AnsiCompareText(List.Names[Index1], List.Names[Index2]);
  // If you want to sort equal strings then on the Values
  if Result = 0 then Result := AnsiCompareText(List.ValueFromIndex[Index1], List.ValueFromIndex[Index2]);
  // Or if you want to keep the original order
  { if Result = 0 then Result := Index1-Index2; --- qv : this won't work!}
end;

如果Names 相等，您的代码会将Result 设置为0。如果它们相等，请选择您要使用哪些附加条件对同名项目进行排序。

---

正如 Uwe Raabe 正确观察到的那样，“原始顺序”是行不通的。

但一切都没有丢失。通常，不使用 Tstringlist 中包含的对象。如果它可用，那么就在排序之前，尝试

for i := 0 to pred(List.Count) do List.Objects[i] := TObject(i);

排序变成了

function CompareString(List : TStringList; Index1, Index2 : integer) : integer;
begin
  Result := AnsiCompareText(List.Names[Index1], List.Names[Index2]);
  // If you want to sort equal strings then on the Values
  if Result = 0 then Result := AnsiCompareText(List.ValueFromIndex[Index1], List.ValueFromIndex[Index2]);
  // Or if you want to keep the original order
  if Result = 0 then Result := integer(List.Objects[Index1])-integer(List.Objects[Index2]);
end;

但如果让我们知道“正确”顺序应该是什么的秘密，那就容易多了。