Von TList abgeleitete Klasse um Methode Sort erweitern

[himitsu]

Und du hast das auch in deinem D2010 getestet?

[edit] was mir grade auffällt ... Sort und Sort heißen gleich, was natürlich nicht grad von Vorteil ist.

eventuell ja so

Delphi-Quellcode:

procedure TXyzList.Sort;
begin
  inherited Sort(
    function(Item1, Item2: Pointer): Integer
    begin
      Result := myCompare(Item1, Item2);
    end);
end;