Как вернуть очет в исходный вид

alex_ss1

Замучался с простой проблемой.
У меня есть отчет frxReport1. В нем, предположим, 1 поле Memo1.

В программе есть функция, которая вызывает этот отчет, и в элемент Memo1 вбивает нужную информацию.

Вот так:
(frxReport1.FindObject('Memo1') as TfrxMemoView).memo.text:='Какой-то текст';

Теперь вопрос. После внесения изменений, как мне очистить отчет, т.е. вернуть его в исходное состояние, когда Memo1 было пустым.
Вопрос возник, т.к. в моем отчете таких полей очень много и нужна 1 команда, которая как бы очистит этот отчет.

xlaalaa

Костыль конечно. Но вы можете в самом начале сохранить шаблон отчета в TMemoryStream.

  strm := TMemoryStream.Create();
  frxReport1.SaveToStream(strm);

А потом восстанавливать его каждый раз когда вам надо

  strm.Seek(0, soFromBeginning);
  frxReport1.Clear;
  frxReport1.LoadFromStream(strm);

В конце не забудьте прочистить память.

  FreeAndNil(strm);

gpi

Ещё можно хранить шаблоны отчётов в файлах и перегружать шаблон при необходимости

alex_ss1

Спасибо за подсказку, насчет TMemoryStream.
А насчет файла - не очень удобно с ним возится в моей задаче.
А подскажите, если динамически создавать новый объект типа TfrxReport, копировать туда уже существующий frxReport1, а потом убивать этот объект. Можно ли так и как правильно это сделать?

xlaalaa

также через стрим

alex_ss1

Ок. спасибо.