From 9aa7d07896c126976595288740071ba087f25e78 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 20 Sep 2017 15:10:50 +0000
Subject: [PATCH] * Fix return type of PageCount when not using marker

git-svn-id: trunk@37272 -
---
 packages/fcl-report/src/fpreport.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-report/src/fpreport.pp b/packages/fcl-report/src/fpreport.pp
index 1d487e5633..4be2146265 100644
--- a/packages/fcl-report/src/fpreport.pp
+++ b/packages/fcl-report/src/fpreport.pp
@@ -6582,7 +6582,7 @@ begin
   if UsePageCountMarker then
     Result.ResString := cPageCountMarker
   else
-    Result.ResString := IntToStr(FPageCount);
+    Result.ResInteger := FPageCount;
 end;