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

+ Fixed bug #3957

Browse Source
This commit is contained in:
michael 2005-05-09 18:35:06 +00:00
parent 71f56b3d61
commit b60c5b9cd2
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1035,7 +1035,8 @@ Begin
Begin
Str(Value:digits:precision, Result);
P := Pos('.', Result);
Result[P] := DecimalSeparator;
if P<>0 then
Result[P] := DecimalSeparator;
TooLarge := P > Precision + 1;
End;
@ -1051,11 +1052,13 @@ Begin
Dec(P);
end;
end
else
else if (P<>0) then // we have a decimalseparator
begin
P := Length(Result);
While Result[P] = '0' Do Dec(P);
If Result[P] = DecimalSeparator Then Dec(P);
While (P>0) and (Result[P] = '0') Do
Dec(P);
If (P>0) and (Result[P]=DecimalSeparator) Then
Dec(P);
SetLength(Result, P);
end;
End;
@ -2104,7 +2107,10 @@ const
{
$Log$
Revision 1.37 2005-04-28 09:15:44 florian
Revision 1.38 2005-05-09 18:35:06 michael
+ Fixed bug 3957
Revision 1.37 2005/04/28 09:15:44 florian
+ variants: string -> float/int casts
Revision 1.36 2005/04/26 16:40:51 michael