Скачать: CL | DM;

Ошибка в команде NewPage при использовании QuickReport   Найти похожие ветки 

← →
Мефодий   (2002-06-10 19:48) [0]

Для проверки работы QuickReport перед созданием сложного отчета составил следующую программку, которая не хочет выполняться.
В проекте есть Form1 c Button1 и QuickReport1 c DetailBand. На клик кнопки я прописал:

procedure TForm1.Button1Click(Sender: TObject);
var Lbl:TQRLabel;
i,k: integer;
begin
with QuickReport1 do
begin
k := 1;
for i := 1 to 500 do
begin
Lbl := TQRLabel.Create(Self);
Lbl.Parent := Bands.DetailBand;
Lbl.AutoStretch := True;
Lbl.Font.Name := "Arial";
Lbl.Font.Size := 10;
Lbl.Top := 2*Lbl.Font.Size*(k-1);
Lbl.Left := 20;
Lbl.Caption := "Test "+IntToStr(i);
Inc(k);
if (i mod 50) = 0 then
begin
NewPage;
k := 1;
end;
end;
Preview;
end;
end;

При выполнении выдается ошибка "Access Violation" на строке NewPage.
Где ошибка ?
Заранее спасибо.

---

← →
Мефодий   (2002-06-11 21:59) [1]

Мастера где же вы ?
Отзовитесь !!!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c