delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

اهلا 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;

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

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

الصفحات : 1 2

Med-01

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

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

Med-01