Доброго времени суток!
Проблема с 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. Причем его нет если только закомментировать эти строки и в скрипте фастрепорта и в дельфях. Все переменные в отчете заведены – мистика какая то!!! Натолкните на мысль, пожалуйста.
Проблема с 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. Причем его нет если только закомментировать эти строки и в скрипте фастрепорта и в дельфях. Все переменные в отчете заведены – мистика какая то!!! Натолкните на мысль, пожалуйста.