Решение проблемы стекового переполнения в Fast Report VCL в Delphi

Delphi , Базы данных , Отчеты

При работе с Delphi 5 и Fast Report 4 для создания отчета, вы столкнулись с проблемой стекового переполнения (EStackOverflow Exception), когда пытаетесь присвоить значение переменной "ReportTitle" в runtime. Давайте разберемся, как решить эту проблему.

Описание проблемы: В вашем коде вы загружаете отчет из файла, пытаетесь присвоить значение переменной "ReportTitle" и отображаете отчет. Однако, при выполнении этой операции возникает исключение EStackOverflow.

frxrprt1.LoadFromFile('c:\MyReport.fr3');
frxrprt1.Variables['ReportTitle'] := 'Sales Summary Report';
frxrprt1.ShowReport;

Причина проблемы: Проблема заключается в том, что значения переменных в Fast Report обрабатываются как полноценные выражения. Если вы хотите, чтобы значение было строкой, оно должно быть стандартной константой Pascal, использующей одинарные кавычки. Так как вы присваиваете значение из кода на Pascal, вам нужно экранировать кавычки, используя двойные кавычки.

Скорее всего, стековое переполнение происходит из-за того, что скриптовый движок Fast Report пытается интерпретировать то, что вы wrote, и сталкивается с рекурсивной проблемой.

Решение проблемы:

1. Используйте следующий способ присваивания значения переменной:

frxrprt1.Variables['ReportTitle'] := '''Sales Summary Report''';

В этом случае вы явно указываете, что значение является строкой, используя одинарные кавычки и экранируя их двойными кавычками.

1. Альтернативный способ - использовать функцию QuotedStr():

frxrprt1.Variables['ReportTitle'] := QuotedStr('Sales Summary Report');

Функция QuotedStr() возвращает строку S, заключенную в одинарные кавычки, при этом каждый символ одинарной кавычки в S удваивается. Это эквивалентно вызову AnsiQuotedStr(s, '''').

Рекомендация: Для упрощения процесса присвоения значений переменным в Fast Report можно создать вспомогательную функцию:

procedure SetVarLiteral(rpt: TFDReport; varname, value: string);
begin
  rpt.Variables[varname] := '''' + value + '''';
end;

Эта функция принимает отчет, имя переменной и значение, которое нужно присвоить. Она экранирует кавычки и присваивает значение переменной, что упрощает работу с переменными в Fast Report.

Используя одно из приведенных выше решений, вы сможете избежать проблемы стекового переполнения при работе с Fast Report в Delphi.

Создано по материалам из источника по ссылке.

В контексте описывается решение проблемы стекового переполнения, возникающей при работе с Delphi 5 и Fast Report 4, когда пытаются присвоить значение переменной 'ReportTitle' в runtime.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Отчеты ::