IComparable in XE7

[Neutral General]

Hallo,

Ich weiß nicht ob ich gerade auf dem Schlauch stehe oder ob da in Delphi irgendwas kaputt ist.

Folgender Code von mir:

Delphi-Quellcode:

type 
  TKlasse = class(TInterfacedObject, System.IComparable<TForm>)
  public
    function CompareTo(Value: TForm): Integer;
  end;


function TKlasse.CompareTo(Value: TForm): Integer;
begin
  Result := 0; // Was auch immer..
end;

Delphi bringt mir nun die Meldung:

[dcc32 Fehler] Unit1.pas(18): E2291 Implementierung der Interface-Methode IComparable.CompareTo fehlt
Warum denn das?
IComparable<T> ist so definiert:

Delphi-Quellcode:

IComparable<T> = interface(IComparable)
  function CompareTo(Value: T): Integer;
end;

Ist Delphi blöd oder steh ich grad aufm Schlauch?

Edit: Habs. IComparable (nicht generisch) hat natürlich auch eine CompareTo-Methode und die muss ich dann noch zusätzlich implementieren:

Delphi-Quellcode:

type
  TKlasse = class(TInterfacedObject, System.IComparable<TForm>)
  public
    function CompareTo(Obj: TObject): Integer; overload;
    function CompareTo(Value: TForm): Integer; overload;
  end;

Das war früher aber nicht.. Ist das so gewollt? Weil das ist doch irgendwie bescheuert -.-

[DeddyH]

http://qc.embarcadero.com/wc/qcmain.aspx?d=104299

Zitat:

System.IComparable<T> inherits from the not generic IComparable!
So if your class implements IComparable<T> it also has to implement IComparable.
...
This is not very elegant, but it is the consequence of the design in the Delphi RTL.

[Neutral General]

Naja sie sehen immerhin ein dass es nicht besonders schön ist :X