* Fix recno

git-svn-id: trunk@43800 -

packages/fcl-report/demos/rptexpressions.pp

@@ -206,7 +206,7 @@ begin
   Memo.Layout.Top := 2;
   Memo.Layout.Width := 25;
   Memo.Layout.Height := 5;
-  Memo.Text := '[2 + RecNo - 6]';
+  Memo.Text := '[2 + RecNo('''') - 6]';
   Memo.Options := [moHideZeros];
 
   Memo := TFPReportMemo.Create(DataBand);
@@ -214,7 +214,7 @@ begin
   Memo.Layout.Top := 2;
   Memo.Layout.Width := 25;
   Memo.Layout.Height := 5;
-  Memo.Text := 'RecNo = [RecNo].';
+  Memo.Text := 'RecNo = [RecNo('''')].';
 
   PageFooter := TFPReportPageFooterBand.Create(p);
   PageFooter.Layout.Height := 20;