mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-15 12:09:18 +02:00
* Fix use of formatfloat
git-svn-id: trunk@33264 -
This commit is contained in:
parent
2fe19d990b
commit
be3aa9d6c2
@ -1919,7 +1919,7 @@ end;
|
||||
|
||||
class function TPDFObject.FloatStr(F: TPDFFloat): String;
|
||||
begin
|
||||
Result:=FormatFloat('0.##',F);
|
||||
Str(F:5:2,Result);
|
||||
end;
|
||||
|
||||
procedure TPDFObject.Write(const AStream: TStream);
|
||||
|
Loading…
Reference in New Issue
Block a user