View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0006748 | JEDI VCL | 00 JVCL Components | public | 2022-04-29 05:18 | 2022-07-28 13:29 |
Reporter | acgubamg | Assigned To | |||
Priority | normal | Severity | block | Reproducibility | always |
Status | new | Resolution | open | ||
Platform | Alexandria 11.1 | OS | Windows | OS Version | 10 |
Product Version | Daily / GIT | ||||
Target Version | Fixed in Version | ||||
Summary | 0006748: JvBaseEdits, IsValidFloat | ||||
Description | a failure occurs in TJVDBCalcEdit, when trying to type a value starting as cents, without typing the number zero before the comma. Example: 0,15, ok, accept nice. But if you type: ,15, it doesn't work. The error occurs in the JvBaseEdits unit, IsValidFloat function, after activating the TextToFloat function. function: function IsValidFloat(const Value: string; var RetValue: Extended): Boolean; var I: Integer; begin Result := False; for I := 1 to Length(Value) do if not CharInSet(Value[I], [JclFormatSettings.DecimalSeparator, '-', '+', '0'..'9', 'e', 'E']) then exit; Result := TextToFloat(PChar(Value), RetValue, fvExtended); end; In Delphi Alexandria 11, Result := TextToFloat(PChar(Value), RetValue, fvExtended); returns "True". In Delphi Alexandria 11.1, Result := TextToFloat(PChar(Value), RetValue, fvExtended); returns "False". The value of the variable "Value", is "," The value entered was just the comma, without the zero before. | ||||
Steps To Reproduce | install delphi alexandria 11.1 Install last jvcl and jcl place a TJVDBCalcEdit in the form now, clear TJVDBCalcEdit now, type , or . 15 Ex: ,15 | ||||
Tags | No tags attached. | ||||