TObjectList Sortieren

[Uwe Raabe]

Warum so kompliziert mit SortInt?

Delphi-Quellcode:

function TAnfrage_Sort.Compare(const Left, Right: TAnfrageItem): Integer;
begin
  Result := CompareValue(Left.SortGruppe, Right.SortGruppe);
  if Result = 0 then
    Result := CompareValue(Left.Sort, Right.Sort);
end;

Das CompareValue findest du in System.Math.