Generisches Objekt - Zwei T-Variablen vergleichen

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