Browse Source

* Fix return type of PageCount when not using marker

git-svn-id: trunk@37272 -
michael 8 years ago
parent
commit
9aa7d07896
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-report/src/fpreport.pp

+ 1 - 1
packages/fcl-report/src/fpreport.pp

@@ -6582,7 +6582,7 @@ begin
   if UsePageCountMarker then
   if UsePageCountMarker then
     Result.ResString := cPageCountMarker
     Result.ResString := cPageCountMarker
   else
   else
-    Result.ResString := IntToStr(FPageCount);
+    Result.ResInteger := FPageCount;
 end;
 end;