Имя Пароль
Зарегистрироваться


* При перепечатке материалов ссылка на www.SeoLiga.ru обязательна! RSS



Событие OnNeedData
19 февраля 2009

Объявление
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;
Для дополнительной информации по созданию обработчиков смотрите соответствующие главы в данном документе.


Теги: Borland Delphi

Статьи по теме:

Data Marts
FilePathFull
Создание и отправка сообщения
Основные принципы создания пользовательского интерфейса
Параметры сокета
Метод PrintBackground
ППП общего назначения
Упрощение интерфейса
Свойство Master для TQRChildBand
Панель Spacing
Использование QRPrinter
StoreDefs
ShowDeleted
Сабклассинг окон с помощью Windows API
Storage
| Borland Delphi | ext |
 


Пн Вт Ср Чт Пт Сб Вс
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31


     



Rambler's Top100

Данный сайт или домен продается ICQ: 403-353-727

© 2009 Seoliga.ru | Borland Delphi | Событие OnNeedData . Регион сайта: Москва и Санкт-Петербург