Билдер 6.
Программа пробегает таблицу, берет из нее инфу, на ее основе создает лист отчета и посылает ее на печать. Для этого в QReporte делаю: Prepare() и затем Print().
Таких листов генерится несколько тысяч.
При этом программа после генерации каждого листа съедает часть памяти (примерно 250кб).
Не есть гуд.
Если не делать Prepare() страниц, то они также генерятся и печатаются, занимаемая программой память при этом увеличивается. Но окно проги не перерисовывается. Почему?

После печати каждой страницы уже пробовал Destroying(), Destroycomponents().
Не помогло.


Help

Интересно, а как ты определил что 250 кб теряется, да и вообще покажи код.

Используемую программой память смотрю в диспетчере задач.
В результате формирования определенного кол-ва страниц вычислил среднее значение используемой памяти на одну страницу как разницу до и после выполения программы, деленное на кол-во сформированных страниц (к примеру, страница пустого отчета с одним компонентом TQuickRep занимает 47 кб.).

Главное - не это значение, а вообще утечка памяти.
По идее нужно освобождать память после формирования очередной страницы.

В общем делаю формирование и печать страниц по циклу без просмотра страниц.
Что-то типа:
for(...) {
qreport->Prepare();
qreport->Print(); }

В хэлпе по Prepare:
"Use prepare if you want to generate a report without automatically bring up a preview window or print it."

Попробуй

QuickRep1->QRPrinter->Free();

Выдает ошибку Access violation...

Если подойти к проблеме с другой стороны: зачем подготавливать и печатать каждую страницу, если можно подготовить один раз весть многостраничный отчет и потом один раз его напечатать.
Для этого использую компонент TCompositeReport.
В нем в событии OnAddReports нужно прописать для каждой страницы
QRCompositeReport1->Reports->Add(Form1->QuickRep);

Но кол-во и содержание страниц неизвестно заранее.
Нужно делать что-то типа
for(...) {
QRCompositeReport1->Reports->Add(Form1->QuickRep);
}
QRCompositeReport1->Prepare();
QRCompositeReport1->Print();

НО! В результате отчет пустой: нет для печати ни одной страницы.

Где ошибка? Почему не формируется многостран. отчет?

Давай конкретный код, а то по твоим скелетам ошибку не вычислить.

Вот код: пробегаем по результатам OracleDataSet, для каждой его строки формируем страницу отчета в функции makelist и печатаем:

Где qr - TQReport.
В результате отчет нормальный, но утечка памяти.

Следующий вариант более предпочтителен: делать формирование многостран отчета один раз и затем печать всего, то:

Где cr - TCompositeReport
В результате - пустой отчет.
ХЗ почему.

Утечку памяти нужно ловить специальными средствами(хотя бы CodeGuard), а не диспечером.
Если CodeGuard сообщит об утечке, то надо верить, да и это не всегда. А учет диспечером от лукавого.
А что бы убедится в этом, после того как Ваша программа нахватала памяти, попробуйте ее свернуть и потом развернуть. Вполне вероятно будете весьма удивлены результатом.

Да в общем, мой вопрос свелся к изменению метода формирования многостраничного отчета.

Содержимое страниц динамическое.
На странице отчета компонент TOracleDataSet имеет пустой SQL.
Он заполняется перед формированием отчета.
В обработчике TCompositeReport по циклу выполненяю cr->Reports->Add(form1->qr);
Однако в Prewiev формируются только статические элемены отчета.
Динамические TQRDBText все пустые. ???

Ну так это означает, что у TQRDBText не присвоены DataField или DataSet