paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 04:44:22 +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 Begin
If Digits = -1 Then Digits := 2 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); Str(Value:0:Digits, Result);
If Result[1] = ' ' Then If Result[1] = ' ' Then
System.Delete(Result, 1, 1); System.Delete(Result, 1, 1);
@ -2171,7 +2171,10 @@ const
{ {
$Log$ $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 + Fixed currency<->string conversion support
Revision 1.10 2004/04/28 20:48:20 peter Revision 1.10 2004/04/28 20:48:20 peter