Variant Overflow

[Arno Garrels]

Hello,

procedure TForm1.Button1Click(Sender: TObject); 
var 
    d, v : Variant; 
begin 
    d := '19.1.1999'; 
    v := 1e300; 
    if d < v then 
        v := d; 
end; 


This simple ButtonClick routine works fine, however in a component 
(FastReport v.254) statement "if d < v then v := d" with the same 
values raises an EVariantOverflowError. 


Message: �berlauf bei der Konvertierung einer Variante vom Typ 
(Double) in Typ (Date). 


And that's on the stack: 


main thread ($458): 
00434bff A.exe Variants        VarOverflowError 
00434f05 A.exe Variants        VarResultCheck 
00437b47 A.exe Variants        VarToDateViaOS 
00437cd0 A.exe Variants        @VarToDate 
0043aebb A.exe Variants        VarCompareSimple 
0043b36a A.exe Variants        VarCompare 
0043ddbd A.exe Variants        @VarCmpLT 
005d1910 A.exe FR_Class   6350 TfrBand.DoAggregate //if d < v then v := 
d; 


It happens in D7, D4 is working fine. 


Any idea what might be going on here? 


Thanks in advance, 


Arno Garrels 



_______________________________________________
Delphi mailing list -> Delphi@elists.org
http://www.elists.org/mailman/listinfo/delphi