Generisches Objekt - Zwei T-Variablen vergleichen

[Neutral General]

Hallo,

Ist sowas möglich:

Delphi-Quellcode:

type
  TKlasse<T> = class(TObject)
    a: T;
    b: T;
    function Funktion: Integer;
  end;

function TKlasse<T>.Funktion: Integer;
begin
  if a = b then // Operator ist auf diesen Operandentyp nicht anwendbar
    Result := 1
  else
    Result := 3;
end;

Ich kann schon gewissermaßen verstehen warum es nicht geht, aber gibt es eine Möglichkeit sowas hinzukriegen? (Ggf. auf Umwegen)

[Uwe Raabe]

Delphi-Quellcode:

uses
  System.Generics.Defaults;


function TKlasse<T>.Funktion: Integer;
begin
//  if a = b then // Operator ist auf diesen Operandentyp nicht anwendbar
  if TEqualityComparer<T>.Default.Equals(a, b) then
    Result := 1
  else
    Result := 3;
end;

[Mikkey]

Oder so:

Delphi-Quellcode:

type
  TKlasse<T: IComparable> = class(TObject)
    a: T;
    b: T;
    function Funktion: Integer;
  end;

function TKlasse<T>.Funktion: Integer;
begin
  if (0 = a.CompareTo(b)) then
    Result := 1
  else
    Result := 3;
end;

[Stevie]

Zitat von Mikkey:

Oder so:

Das schränkt den Gebrauch aber auf objekte oder Interfaces ein, ka, ob das der TE möchte.

[Neutral General]

Uwe Raabe: Danke so klappts!

[Uwe Raabe]

Zitat von Neutral General:

Uwe Raabe: Danke so klappts!

Je nach tatsächlichem Typ und was du für den als "gleich" definierst, musst du vielleicht auch einen eigenen Comparer schreiben. Dann kannst du ja noch mal hier nachfragen

[Neutral General]

Das ist klar, aber für meine Zwecke sollte das ausreichen, danke