0

I try to sort an TStringList on the Name part. For do that, I use the customSort method.

I show you a little example :

    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;

The sort give me this result :

INFOS_NEGOCE=NOM_REPERTOIRE_ENT

INFOS_NEGOCE=NOM_CONTACT

INFOS_NEGOCE=NUM_CDE

INFOS_NEGOCE=DATE_CDE

I think that the sort DON'T change the order of the line (the name is always INFOF_NEGOCE).

4

2 回答 2

2

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

请参阅快速排序 - 重复元素

于 2014-02-04T15:50:04.223 回答
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;

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

正如 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;

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

于 2014-02-04T16:03:00.467 回答