* Fix use of formatfloat

git-svn-id: trunk@33264 -
This commit is contained in:
michael 2016-03-18 07:30:04 +00:00
parent 2fe19d990b
commit be3aa9d6c2

View File

@ -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);