Typcasting: TVarData -> TCustomVariantType

**scream**

Hallo erstmal.
Ich bin relativer Neueinsteiger in Delphi und erstelle mir gerade eine Klasse namens TFrac. Diese Klasse ist einfach ein Bruch (ja, des Teil aus'm Mathematikunterricht, genau

). Jetzt möchte ich "comparison operators", zu Deutsch, Vergleichsoperationen einbinden, werde aus der Dokumentation aber nicht recht schlau. Ich habe nun die Funktion TCustomVariantType.compare eingebunden, aber ich krieg das nicht ganz hin:
Ich habe in meiner Klasse TFrac eine Funktion namens toFloat, die den Bruch in eine Gleitkommazahl umwandelt. Jetzt möchte ich in der Procedure "Compare( const Left, Right: TVarData; var Relationship: TVarCompareResult )" einfach "Left" und "Right" als TFrac behandeln und dann halt Left.toFloat und right.toFloat verlgeichen. Aber wie mache ich das? Wie behandle ich ein TVarData als meine eigene Klasse TFrac?

Hier ist mein Code. Die Funktionen expand, add, subtract, multiply, divide und cancelDown (deutsch: kürzen) habe ich der Übersicht halber ausgelassen

:

zusammenfalten · markieren

Delphi-Quellcode:

			type TVarCompareResult = (crLessThan, crEqual, crGreaterThan);

type

  TFrac = class(TCustomVariantType)

    zaehler: Integer;

    nenner: Integer;

    VarType: TVarType;

    //Verschiedene Prozeduren und Funktionen

    constructor create( tempZaehler: Integer; tempNenner: Integer );

    procedure Compare( const Left, Right: TVarData; var Relationship: TVarCompareResult );

    function toFloat: real;

    function expand( a: Integer ): TFrac;

    function add( a: TFrac ): TFrac;

    function subtract( a: TFrac ): TFrac;

    function multiply( a: TFrac ): TFrac;

    function divide( a: TFrac ): TFrac;

    function cancelDown(): TFrac;

end;

implementation

constructor TFrac.create( tempZaehler: integer; tempNenner: integer );

begin

    zaehler := tempZaehler;

    nenner := tempNenner;

    VarType := $0666;

end;

procedure TFrac.Compare( const Left, Right: TVarData; var Relationship: TVarCompareResult );

begin

    if ( Left.VType = VarType ) and ( Right.VType = VarType ) then

    begin

        if TFrac(Left).toFloat = Right.toFloat() then

            Relationship := crEqual

        else if Left.toFloat() < Right.toFloat() then

            Result := crLessThan

        else if Left.toFloat() > Right.toFloat() then

            Result := crGreaterThan;

    end;

end;

function TFrac.toFloat: real;

begin

    toFloat := zaehler / nenner;

end;

Typcasting: TVarData -> TCustomVariantType

Typcasting: TVarData -> TCustomVariantType

Forumregeln