If I specify a constant with a small value (say 1e-6) the value comes out as 1e-7. I know you don't believe me. Frankly I don't believe me .... but here is a demo project to show this. On a new WebCore application I added a few labels and a button and then defined a constant and showed the constant and some calculations using it. See code snippet below:
var
Form1: TForm1;
const
SmallConstant = 1e-6;
implementation
{$R *.dfm}
procedure TForm1.btn_ShowResultsClick(Sender: TObject);
var val : Double;
begin
l_ReadValue.Caption := Format('%g',[SmallConstant]);
l_CalcedVal.Caption := Format('%g',[SmallConstant*1000000]);
val := SmallConstant;
l_ValValue.Caption := FloatToStr(val);
end;
And the results:
Cheers,
Mark [We have a site license but only one login]