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

ide: FPC 2.6.4 compatibility

Browse Source 
git-svn-id: trunk@53603 -
This commit is contained in:
ondrej 2016-12-08 13:54:43 +00:00
parent 6160f4e419
commit 7074c04587
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/debugmanager.pas
View File

@ -260,7 +260,7 @@ var
FS: TFormatSettings; FS: TFormatSettings;
MyDate: Extended; MyDate: Extended;
begin begin
FS := Default(TFormatSettings); FillChar(FS, SizeOf(TFormatSettings), 0);
FS.DecimalSeparator := '.'; FS.DecimalSeparator := '.';
if TryStrToFloat(aValue, MyDate, FS) then if TryStrToFloat(aValue, MyDate, FS) then
begin begin