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

[shavluk]

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

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

[Dorin Marcoci]

Thanks, fixed.