بخصوص طباعة for في QuickReport

[محمد عبد العزيز]

جربته على النسخة DELPHI7 ب لم يعمل اظن...

لا يعمل لا تكفي! لم يظهر شيئ ؟ ظهر خطأ ؟ ما هو ؟

بالنسبة للمرفق فهو بدلفي 7 فقط QuickReport نسخة احدث Pro
حسنا انسى المرفق وجرب الكود فوق
مشروع جديد، ضف اليه صفحة/مكون QuickRep انتبه PrintIfEmpty يجب ان تكون True
ضف مكون QRSubDetail1 ولا تنسى تغيير ForceNewPage الى True
ضف مكون QRLabel1
اذهب للحدث OnNeedData ضف الكوذ التالي (انتبه للمتغير i يكون قبل الحدث حتى يكون متغير Global)

كود :

Var i : word; procedure TForm1.QRSubDetail1NeedData(Sender: TObject;  var MoreData: Boolean); begin MoreData := (i<3); inc(i); QRLabel1.Caption := inttostr(i); end;