TDate und Real vertragen sich nicht bei Funktionsaufruf

[Mike_on_Tour]

Hallo,

ich folgendes Problem mit diesen Funktionen:

UNIT_A.pas:

Delphi-Quellcode:

function GetValue (ParamIdent : String; ParamDefault : Real) : Real; overload;
function GetValue (ParamIdent : String; ParamDefault : TDate) : TDate; overload;

function GetValue (ParamIdent : String; ParamDefault : Real) : Real;
begin
  Result := ReadFloat (...);
end;

function GetValue (ParamIdent : String; ParamDefault : TDate) : TDate;
begin
  Result := ReadDate (...);
end;

UNIT_B.pas:

Delphi-Quellcode:

uses
  Unit_A;

var
  rValue : Real;
  dtValue : TDate;
begin
  rValue := GetValue ('Betrag', 0.00);
  dtValue  := GetValue ('Datum', Date);
end;

Der Compiler schmeißt bei der zweiten Zeile (dtValue) eine Fehlermeldung "E2251 Doppeldeutiger überladener Aufruf von 'GetValue'". Delphi will hier auch die Funktion mit Real-Werten nehmen und das paßt halt nicht zum Datumstyp.

Am Ende eines langen Tages fällt mir aber dazu auch nichts anderes sein. Aber vielleicht kann mir ja jemand weiter helfen ?

Mike