QuickRep

← →
OlgaGril (2004-04-02 09:42) [0]

Подскажите , пожалуйста, как можно вставить данные из динамических массивов в отчет , и как создать таблицу в отчете из этих данных?

← →
Anatoly Podgoretsky © (2004-04-02 09:51) [1]

Смотри пример в QuickReport по OnNeedData

← →
MetalFan © (2004-04-02 10:22) [2]

Выдержка из мануала по QR

5.56. Событие OnNeedData
Объявление
Property OnNeedData: procedure (Sender: TObject; MoreData: Boolean)
Применимо к
TQuickRep,
TQRSubDetail
Использование
Событие OnNeedData используется для создания отчетов из других источников данных, чем источники данных Delphi (datasources), таких как списки строки (string lists), массивы (arrays), текстовые файлы (text files) и другие подобные. Событие OnNeedData возникает, когда QuickReport использует команду DataSet.Next для перехода на следующую запись. Установка параметра MoreData в значение False является признаком прекращения отчета (или sub-Detail группы).
Пример
Данный код печатает список всех строк из StringList в отчете:
var
CurrentItem : Integer;
SomeStringList : TStringList;

procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
begin
CurrentItem := 0;
PrintReport := SomeStringList.Count > 0;
end;

procedure TForm1.QuickRep1NeedData(Sender:TObject;
var MoreData:Boolean);
begin
if CurrentItem < SomeStringList.Count then
QRLabel1.Caption := SomeStringList[CurrentItem];
Inc(CurrentItem);
MoreData := CurrentItem <= SomeStringList.Count;
end;
Для дополнительной информации по созданию обработчиков смотрите соответствующие главы в данном документе.

← →
Johnmen © (2004-04-02 11:35) [3]

>MetalFan © (02.04.04 10:22) [2]
>Выдержка из мануала по QR

Странный мануал... В смысле грамотности примера.
Откуда он ?

>OlgaGril

Наиболее правильный пример использования - в демо для QR, входящим в D6 (needdata.pas)

если интересует - могу выслать...
не помню, откуда скачал (по QR2&QR3)

QuickRep Найти похожие ветки