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

[Med-01]

اهلا AbdelAziZ .
شكرااا جزيلا الكود عمل بشكل جيدا
لاكن ماذا لو ادرت ان يبدا الترقيم من 5 متلا الى 10 ?
عموما انا قمت بعمل حلقة for ونجح الامر في ادخال البينات الى قاعدة البيانات لاكن لم يعجبني هذا لان الكود يعتمد على مسح البيانات
وادخالها في كل مرة وهدا ليس عملي لانو قواعد البيانات جعلت لحفظ البيانات وليس لمسح و ادخال في كل مرة يعني حل مؤقت

شكرااا كثيرااا يا عبد العزير في ميزان حسناتك ان شاء الله

---

Delphi4Us اين اجد kbmMemTable

شكرااا لمشارتك Delphi4Us

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

ماذا لو ادرت ان يبدا الترقيم من 5 متلا الى 10 ?

فكر... الحلقات ليست فقط For

كود :

MoreData := (i<6); inc(i); QRLabel1.Caption := inttostr(4+i);

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

ان كان ولا بد من وجود الرقم 5 و10 في الكود يمكن تعديلها بشيئ مثل

كود :

Var i : word; procedure TForm2.FormCreate(Sender: TObject); begin i:=5; end; procedure TForm2.QRSubDetail1NeedData(Sender: TObject; var MoreData: Boolean); begin MoreData := (i<=10); QRLabel1.Caption := inttostr(i); inc(i); end;

[Med-01]

اهلا عبد العزير شكراااا جزيلا في ميزان حسناتك ان شاء الله
اعتذر على التاخر في الرد الحاسوب كان معطل

---

ياريت تشرح لي QRSubDetail1NeedData
و MoreData
و inc