Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отчет с отчета (QuikReport)


Mintos ©   (2006-07-20 12:57:00) 

Кто может подсказать, как можно поучить все выведенные значения QRExpr`а в StringList формате?
Если непонятно спрашивайте, опишу конкретно для чего это надо...


Mintos   (2006-07-20 15:32:00) [1]

В моем случае результат текст (strResult).
Сенкс, очень помог.


Виталий Панасенко   (2006-07-20 15:02:00) [2]

procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
 BandPrinted: Boolean);
begin
 FSum := FSUm + QRExpr1.Value.dblResult;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FSum := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 QuickRep1.PreviewModal;
 Button1.Caption := FloatToStr(FSum);
end;


Mintos   (2006-07-20 14:29:00) [3]

Дело в том что отчет с прим. QR`а был давно уже написан, в нем имеется QRExpr, Expression которого задается програмно и зависит от очень многих факторов. Переписывать логику QR`а(Expression) в паскаль займет очень много времени...
  Поэтому думаю оптимальным пока вариантом будет получить выходные данные из QRExpr`а в StringList (Мне нужно этот же отчет выводить и в Worde).


Sergey13   (2006-07-20 13:00:00) [4]

А зачем для этого QR? Пробегись по "отчетному" датасету да посчитай по такому же выражению.


Наверх

Титульная страница Поиск, карта сайта Написать письмо