Как считать значенияконтролов после запуска отчета
Требуется при запуске отчета сохранить введенные пользователем значения
и а при повторном запуске отчета - восстановить сохраненные значения.
Код восстановления работает, а код сохранения - нет
// Восстанивливаем значения контролов для отчета
for i := 0 to frm.frxReport1.PagesCount - 1 do
if frm.frxReport1.Pages is TfrxDialogPage then
with (frm.frxReport1.Pages as TfrxDialogPage) do
begin
for j := 0 to Objects.Count - 1 do
if TObject(Objects[j]) is TfrxDateEditControl then
(TObject(Objects[j]) as TfrxDateEditControl).Date := repini.ReadDate(frm.frxReport1.ReportOptions.Name, TComponent(Objects[j]).Name, Date);
end;
if frm.frxReport1.PrepareReport(True) then
begin
// Сохраняем значения контролов
for i := 0 to frm.frxReport1.PagesCount - 1 do
if frm.frxReport1.Pages is TfrxDialogPage then
with (frm.frxReport1.Pages as TfrxDialogPage) do
begin
for j := 0 to Objects.Count - 1 do
if TObject(Objects[j]) is TfrxDateEditControl then
begin
repini.WriteDate(frm.frxReport1.ReportOptions.Name, TComponent(Objects[j]).Name, (TObject(Objects[j]) as TfrxDateEditControl).Date)
end
end;
и а при повторном запуске отчета - восстановить сохраненные значения.
Код восстановления работает, а код сохранения - нет
// Восстанивливаем значения контролов для отчета
for i := 0 to frm.frxReport1.PagesCount - 1 do
if frm.frxReport1.Pages is TfrxDialogPage then
with (frm.frxReport1.Pages as TfrxDialogPage) do
begin
for j := 0 to Objects.Count - 1 do
if TObject(Objects[j]) is TfrxDateEditControl then
(TObject(Objects[j]) as TfrxDateEditControl).Date := repini.ReadDate(frm.frxReport1.ReportOptions.Name, TComponent(Objects[j]).Name, Date);
end;
if frm.frxReport1.PrepareReport(True) then
begin
// Сохраняем значения контролов
for i := 0 to frm.frxReport1.PagesCount - 1 do
if frm.frxReport1.Pages is TfrxDialogPage then
with (frm.frxReport1.Pages as TfrxDialogPage) do
begin
for j := 0 to Objects.Count - 1 do
if TObject(Objects[j]) is TfrxDateEditControl then
begin
repini.WriteDate(frm.frxReport1.ReportOptions.Name, TComponent(Objects[j]).Name, (TObject(Objects[j]) as TfrxDateEditControl).Date)
end
end;