Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
ВнизОшибка в команде 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c