paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 13:59:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: removed old workaround from TFloatSpinEdit. It worked around a bug which was fixed in FPC 2.4.0. Bug #18674.

Browse Source 
git-svn-id: trunk@29397 -
This commit is contained in:
maxim 2011-02-05 17:14:00 +00:00
parent de68945dc9
commit 5492a17fbb
1 changed files with 1 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/include/spinedit.inc
View File

@ -184,23 +184,9 @@ begin
end; end;
function TCustomFloatSpinEdit.StrToValue(const S: String): Double; function TCustomFloatSpinEdit.StrToValue(const S: String): Double;
// this is a workaround for the fpc rtl bug in StrToFloatDef function
// which happens when DecimalSeparator = ThousandSeparator
// (look at issue 0013293)
function MyStrToFloatDef(S: String; Def: Double): Double;
var
V: Extended;
begin
if TextToFloat(PChar(S), V) then
Result := V
else
Result := Def;
end;
begin begin
try try
Result := GetLimitedValue(MyStrToFloatDef(S, FValue)); Result := GetLimitedValue(StrToFloatDef(S, FValue));
except except
Result := FValue; Result := FValue;
end; end;