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:

Zitat von Mikkey (Beitrag 1290447)

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:

Zitat von Neutral General (Beitrag 1290546)

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 ;)