Как считать значенияконтролов после запуска отчета

отредактировано 00:14 Раздел: FastReport 3.0
Требуется при запуске отчета сохранить введенные пользователем значения
и а при повторном запуске отчета - восстановить сохраненные значения.

Код восстановления работает, а код сохранения - нет

// Восстанивливаем значения контролов для отчета
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;

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.