Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

» Передача переменных в FastReport

Автор: zharik_jr
Дата сообщения: 02.12.2009 08:57
Доброго времени суток!
Проблема с FastReport, не могу передать корректно переменные. Точнее какие то передаются, а какие то –нет. Передаю переменные так:

if rb1.Checked then
frxrprt1.Variables['All'] := 'True'
else frxrprt1.Variables['All'] := 'False';

if rb2.Checked then
begin
frxrprt1.Variables['BegNum'] := edt1.Text;
frxrprt1.Variables['EndNum'] := edt2.Text;
end
else
begin
frxrprt1.Variables['BegNum'] := '';
frxrprt1.Variables['EndNum'] := '';
end;

if rb3.Checked then
begin
frxrprt1.Variables['FirstDate'] := edt4.Text;
frxrprt1.Variables['SecondDate'] := edt3.Text;
end
else
begin
frxrprt1.Variables['FirstDate'] := '';
frxrprt1.Variables['SecondDate'] := '';
end;

обращаюсь к ним так
begin
if VarToStr(Get('All')) = 'True' then
SysMemo1.Text :='Перечень деклараций';
if VarToStr(Get('BegNum')) <> '' then
SysMemo1.Text :='Перечень деклараций с порядковым номером с' + VarToStr(Get('BegNum')) + ' по ' + VarToStr(Get('EndNum'));
if VarToStr('BegDate') <> '' then
SysMemo1.Text :='Перечень деклараций с датой регистрации с' + DateToStr(Get('BegDate')) + ' по ' + DateToStr(Get('EndDate'));
end.

Так вот эксепшен вылетает, когда дело доходит до переменных BegDate и EndDate. Причем его нет если только закомментировать эти строки и в скрипте фастрепорта и в дельфях. Все переменные в отчете заведены – мистика какая то!!! Натолкните на мысль, пожалуйста.
Автор: snike555
Дата сообщения: 02.12.2009 09:15
Содержание экзепшена в студию.
Автор: mdid
Дата сообщения: 02.12.2009 10:26
1. Есть отдельная тема для FR
2. попробуйте так

Код:
frxReport1.Script.Variables[Pname]:=Param;
Автор: sldaac
Дата сообщения: 02.12.2009 12:24
zharik_jr
ты хочеш обратиться к переменой, т.е. к значению переменной BegDate как к переменой, зачем ее еще переводить во что-то если она уже символьная.

Передаем
FR_Report.Script.Variables['BegDate']:= ...... string

SysMemo1.Text :='Перечень деклараций с датой регистрации с' + [BegDate] + ' по ' + .....
Автор: zharik_jr
Дата сообщения: 03.12.2009 15:34
Всем, спсибо, все заработало. Все сделал как mdid сказал. Ему особенный респект.

Страницы: 1

Предыдущая тема: Отладка многопоточных приложений в OllyDbg


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.