--- In IBObjects@yahoogroups.com, "Dieter Tremel" <tremel@t...>
wrote:

> if IsCurrencyDataType then
> tmpStr[Length( tmpStr ) + SQLScale] := DecimalSeparator;
> AsString := tmpStr;

> Any idea or fix?

Of course I could fix it myself like
if IsCurrencyDataType then begin
// Tremel 27.5.2004 work around
if (Length( tmpStr ) + SQLScale) > 0 then
tmpStr[Length( tmpStr ) + SQLScale] :=
DecimalSeparator;
end;
AsString := tmpStr;

Is this a unknown bug? By the way I use WI-V6.3.0.4306 Firebird 1.5.
Thank You
Dieter