FloatSpinEdit returns inaccurately value
Original Reporter info from Mantis: JtryIT
-
Reporter name:
Original Reporter info from Mantis: JtryIT
- Reporter name:
Description:
This little chart was created with the program below
1.10 1.100000000 1.100000024
1.20 1.200000000 1.200000048
1.30 1.300000000 1.299999952
1.40 1.400000000 1.399999976
1.50 1.500000000 1.5
1.60 1.600000000 1.600000024
1.70 1.700000000 1.700000048
1.80 1.800000000 1.799999952
1.90 1.900000000 1.899999976
2.00 2.000000000 2
Best regards
jTryIt
Lazarus version 0.9.24 Beta
Additional information:
procedure TForm1.FloatSpinEdit1Change(Sender: TObject);
begin
Memo1.Lines.Add(FloatSpinEdit1.Text+' '+FormatFloat('0.000000000',StrToFloat(FloatSpinEdit1.Text))+' '+FloatToStr(FloatSpinEdit1.Value));
end;
procedure TForm1.FormShow(Sender: TObject);
begin
DecimalSeparator := '.';
ThousandSeparator := ',';
FloatSpinEdit1.Value:= 1;
FloatSpinEdit1.Increment:=0.1;
FloatSpinEdit1.DecimalPlaces:=2;
Memo1.Clear;
end;
Mantis conversion info:
- Mantis ID: 12006
- Version: 0.9.2
- Fixed in version: 0.9.27 (SVN)
- Fixed in revision: 19826 (#df85c2d5)
- Monitored by: » cjrh (cjrh), » @flyingsheep (Bart Broersma)
- Target version: 1.0.0
- LazTarget: 1.0