paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 15:00:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Set DecimalSeparator to be locale independent.

Browse Source 
git-svn-id: trunk@5959 -
This commit is contained in:
yury 2007-01-14 01:04:45 +00:00
parent 97e6235535
commit 848d94f573
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/webtbs/tw7637.pp
View File

@ -3,6 +3,7 @@ uses sysutils;
var
s: ansistring;
begin
DecimalSeparator:='.';
s := format('%e',[1.72]);
{$ifdef FPC_HAS_TYPE_EXTENDED}
if s <> '1.7200000000000000E+000' then