Overload-Problem bei currency und TDateTime

[VizeTE]

Hallo,

ich habe da ein Problem mit einer überladenen Funktion.

Delphi-Quellcode:

  ...
  protected
    procedure Test(Value: currency); overload; virtual; abstract;
    procedure Test(Value: TDateTime); overload; virtual; abstract;
  ..

In einer Methode rufe ich dann folgendes auf:

Delphi-Quellcode:

...
var
  Value : currency;
begin
  Test(Value);
...

Das wird mit der Fehlermeldung "Doppeldeutiger überladener Aufruf von 'Test'" quittiert.
Abstrakt ist es nur zum testen, das gleiche Problem habe ich auch wenn die Prozeduren nicht abstrakt sind. Getestet habe ich das in Delphi5 und Delphi7.

TDateTime ist ja eigentlich ein double. Daher verstehe ich nicht warum es hier ein Problem gibt. Und noch viel mehr würde mich eine Lösung interessieren

Vielen Dank

[Bernhard Geyer]

Zitat von VizeTE:

TDateTime ist ja eigentlich ein double. Daher verstehe ich nicht warum es hier ein Problem gibt. Und noch viel mehr würde mich eine Lösung interessieren

currency ist auch 8 Byte und wird vermutlich auf double mit fester nachkommastellenanzahl gemappt. vermutlich kann der Compiler auf dieser Ebene nicht mehr unterscheiden.

Du brauchst also unterschiedliche Methodennamen.

[mkinzler]

Currencz ist auch ein Fliesskommatyp, da weiss der Compiler dann wohl nicht welcher gemeint ist

[himitsu]

Nein, Currency ist eigentlich ein Int64, welcher als Festkommatyp interpretiert wird.
Delphi sieht ihn leider zu oft als Fließkommatyp an und übersieht erstmal andere Currency-Definitionen.
TDateTime ist auch ein Double.


Was du versuchen kannst ist die Reihenfolge zu tauschen (erst TDateTime und dann Currency)
oder ist dieses

Delphi-Quellcode:

type
  TCurrency = type Currency;

...
protected
  procedure Test(Value: TCurrency); overload; virtual; abstract;
  procedure Test(Value: TDateTime); overload; virtual; abstract;
  ...

var
  Value : TCurrency;
begin
  Test(Value);

Ob das geht, ist nicht sichergestellt.

Aber direkt ist es nicht möglich Double und Currency zu mischen
Mein Ausweg war daher immer die Currency-Funktion umzubennen (TestC ... also überall ein C anzuhängen).

[VizeTE]

Zitat von mkinzler:

Currencz ist auch ein Fliesskommatyp, da weiss der Compiler dann wohl nicht welcher gemeint ist

Wenn ich in dem Beispiel TDateTime durch extended austausche funktioniert es aber.
Also scheint das nicht an den reinen Fließkomma-Format zu liegen. Vielleicht machen dort die 2 Byte mehr schon den Unterschied...

Zitat von himitsu:

Aber direkt ist es nicht möglich Double und Currency zu mischen
Mein Ausweg war daher immer die Currency-Funktion umzubennen (TestC ... also überall ein C anzuhängen).

Werde mal probieren ob ich den TDateTime-Aufruf auch mit einem extended umsetzen kann.

[himitsu]

Single oder Extended + Currency

hier wird vermutlich TDateTime auch die Funktion von Currency aufrufen

[VizeTE]

Zitat von himitsu:

Single oder Extended + Currency

hier wird vermutlich TDateTime auch die Funktion von Currency aufrufen

Das hast du wohl (leider) recht.

Zitat von himitsu:

Delphi-Quellcode:

type
  TCurrency = type Currency;

...
protected
  procedure Test(Value: TCurrency); overload; virtual; abstract;
  procedure Test(Value: TDateTime); overload; virtual; abstract;
  ...

var
  Value : TCurrency;
begin
  Test(Value);

Das hat leider auch nicht funktioniert.

Also bleibt mir wohl nichts anderes als die Methoden nicht zu überladen und stattdessen eindeutige Methodenbezeichner zu verwenden.