Ich habe folgende Klassen:

zusammenfalten · markieren

Delphi-Quellcode:

TObjX = class(TObject
  MD5 : integer;
end;

TObjXListe = class(TObjectList<TObjX>)
  private
    function VergleicheMD5(const L,R:TObjX):Integer;
  public
    procedure Sort;
end;

procedure TObjXListe.Sort;
begin
  inherited Sort(TComparer<TObjX>.Construct(Self.VergleicheMD5));
end;

Das funktioniert.

Nun habe ich aber folgende Klasse:

markieren

Delphi-Quellcode:

TKlasseX = class(TObject)
  ObjXListe : TObjectList<TObjX>;
end;

Wie sortiere ich jetzt diesmal die TObjectList<TObjX> mit einem Custom Comparer? Prinzipiell bekäme ich das schon hin, es gibt mehrere Lösungen, aber ich hätte es gern so konzise wie inherited Sort(TComparer<TObjX>.Construct(Self.VergleicheMD5)). Alle Versuche, diese Zeile so zu modifizieren, dass sie klappt, schlugen fehl.
Und auch folgende Prozedur blieb immer hängen:

markieren

Delphi-Quellcode:

procedure TKlasseX.SortiereNachMD5;
begin
  ObjXListe.Sort(
  TComparer<TObjX>.Construct(
    function(const L,R: TObjX): Integer
    begin
      Result := L.MD5 - R.MD5;
    end))
end;

Und zwar nach dem ersten end mit der Begründung: Fehler 2480: Inkompatible Typen: 'System.Generics.Defaults.TComparison<Modulxyz.TOb jX>' und 'Procedure'.
Kann mich da jemand erleuchten?

Sollte das nicht TObjX heißen? TComparer<ObjX>.Construct(

Das war leider nur ein Übertragungsfehler, den ich korrigiert habe. Im Original stand das "T" dabei.

sollte der TComparer nicht 1 oder -1 oder 0 zurückgeben?
Für größer, kleiner und gleich?

Grüße
Klaus

Ja+Nein

Ist wie mit dem Boolean
True = 1, bei der Konstante,
aber <>0 = True, bei der Auswertung.

0, Kleiner oder Größer,
allerdings MD5 sollte doch auch Werte größer als Integer liefern?

Ich habe jetzt mal den Code in der geposteten Minimalform in ein neues Projekt eingefügt und er kompiliert. Da muss etwas anderes dahinter stecken. Ich versuche, es herauszukriegen.

Gibt es eine Version mit dem inherited, die funktionieren würde?