paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Enhanced FloatToStrF to 18 digits (Delphi compatibility, bug #3106

Browse Source
This commit is contained in:
michael 2004-06-12 13:57:18 +00:00
parent 525f18fcb6
commit 2b66cb3edd
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

@ -1235,7 +1235,7 @@ Begin
Begin
If Digits = -1 Then Digits := 2
Else If Digits > 15 Then Digits := 15;
Else If Digits > 18 Then Digits := 18;
Str(Value:0:Digits, Result);
If Result[1] = ' ' Then
System.Delete(Result, 1, 1);
@ -2171,7 +2171,10 @@ const
{
$Log$
Revision 1.11 2004-06-12 13:23:17 michael
Revision 1.12 2004-06-12 13:57:18 michael
+ Enhanced FloatToStrF to 18 digits (Delphi compatibility, bug 3106
Revision 1.11 2004/06/12 13:23:17 michael
+ Fixed currency<->string conversion support
Revision 1.10 2004/04/28 20:48:20 peter