procedure TFloatField.GetText(var AText: string; ADisplayText: Boolean);
Var
fmt : string;
E : Double;
Digits : integer;
ff: TFloatFormat;
begin
AText:='';
If Not GetData(@E) then exit;
If ADisplayText or (Length(FEditFormat) = 0) Then
Fmt:=FDisplayFormat
else
Fmt:=FEditFormat;
Digits := 0;
if not FCurrency then
ff := ffGeneral
else
begin
Digits := CurrencyDecimals;
if ADisplayText then
ff := ffCurrency
else
ff := ffFixed;
end;
If fmt<>'' then
AText:=FormatFloat(fmt,E)
else
AText:=FloatToStrF(E,ff,FPrecision,Digits);
end;