paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #3708

Browse Source
This commit is contained in:
Jonas Maebe 2005-02-28 11:12:17 +00:00
parent 19d097ef37
commit 1162235207
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysutils/sysstr.inc
View File

@ -947,7 +947,7 @@ Begin
TooSmall := (Abs(Value) < 0.00001) and (Value>0.0); TooSmall := (Abs(Value) < 0.00001) and (Value>0.0);
If Not TooSmall Then If Not TooSmall Then
Begin Begin
Str(Value:0:999, Result); Str(Value:digits:precision, Result);
P := Pos('.', Result); P := Pos('.', Result);
Result[P] := DecimalSeparator; Result[P] := DecimalSeparator;
TooLarge := P > Precision + 1; TooLarge := P > Precision + 1;
@ -2009,7 +2009,10 @@ const
{ {
$Log$ $Log$
Revision 1.30 2005-02-26 10:21:17 florian Revision 1.31 2005-02-28 11:12:17 jonas
* fixed web bug 3708
Revision 1.30 2005/02/26 10:21:17 florian
+ implemented WideFormat + implemented WideFormat
+ some Widestring stuff implemented + some Widestring stuff implemented
* some Widestring stuff fixed * some Widestring stuff fixed