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?

Da du eh deine eigene Klasse von TObjectList<TObjX> ableitest, schreib nen Konstruktur und übergib einfach den comparer ans inherited Create und spar dir das bei jedem Sort Aufruf

Man wird es vermutlich nicht glauben, aber das Problem saß mal wieder vor dem Schirm. Ich hatte extra eine etwas abstrahierte Form meines Codes gepostet anstatt des Originalcodes. Wie immer hätte ich das nicht tun sollen, denn dann wäre der Fehler sofort gefunden worden.
Im Originalcode hatte ich statt

markieren

Delphi-Quellcode:

procedure TKlasseX.SortiereNachMD5;
begin
  ObjXListe.Sort(
  TComparer<TObjX>.Construct((

markieren

Delphi-Quellcode:

procedure TKlasseX.SortiereNachMD5;
begin
  ObjXListe.Sort(
  TComparer<TKlasseX>.Construct(

geschrieben, was dort (anders als hier im Beispiel) sehr ähnlich war. Wie blöd. Vielen Dank jedenfalls an alle Hilfsbereiten. (Interessant, dass hier der Fettdruck versagt.)

Zitat von Stevie:

... übergib einfach den Comparer ans inherited Create..

Ja, finde ich auch sehr elegant, aber ich habe zwei Sortierroutinen. Ich könnte einen Parameter einführen, aber für nur zwei Sortierfunktionen lohnt das nicht. An der eingangs zitierten Stelle habe ich das so gemacht.