TObjectList Multisort

[Stevie]

Delphi-Quellcode:

function CompareItem(Item1, Item2: Pointer): Integer;
begin
  Result := AnsiCompareText(TMyObj(Item1).Name, TMyObj(Item2).Name);
  if Result = 0 then
    Result := CompareDateTime(TMyObj(Item2).Zeit, TMyObj(Item1).Zeit);
end;

...

list.Sort(CompareItem);