|
QuickReport는 꼭 DataSource(Table이나 DBGrid)과 연결없이도 사용이 가능하더군요.
도움말에 있는 다음 소스를 보시면 쉽게 이해하실 수 있습니다.
키는 OnNeedData라는 함수를 이해하시면 됩니다.
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;
|