madorin / fibplus

FibPlus Library for Delphi and C++Builder. Data access components for Firebird & Interbase.
168 stars 58 forks source link

Проблема с TFIBBCDField.GetAsVariant для D5 #26

Closed shavluk closed 5 years ago

shavluk commented 6 years ago

Есть такой код function TFIBBCDField.GetAsVariant: Variant; ... if Size=4 then Result :=AsCurrency else Result :=AsExtended;

Если точность поля например 18,2, то теряем точность, Решение if Size<=4 then

madorin commented 5 years ago

Thanks, fixed.