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

السلام عليكم ورحمه الله وبركاته
شباب عندي جدول به عمودين a,b والجدول به حوالي 50 سجل
اريد ان ابدء ترقيم العمود a بدء من 1 الي 40 ( كل 5 ارقام لها رقم واحد ) اي ليس لنهاية الجدول بالكامل

استخدمت هذا الكود ولكنه يقوم بترقيم العمود لنهاية الجدول

كود :
var

  i, s: Integer;
begin
  s := 1;
  i := 1;
  ADOTable1.First;
  While not(ADOTable1.eof) do
  begin
    for i := 1 to 5 do
    begin
      ADOTable1.Edit;
      ADOTable1.FieldByName('l').AsInteger := s;
      ADOTable1.Post;
      ADOTable1.Next;
    end;
    s := s + 1
  end;

وعليكم السلام ورحمة الله

كود :
First
s:=1;
While not(ADOTable1.eof) do
 begin
 
   for i := 0 to 4 do
   begin
     ADOTable1.Edit;
     ADOTable1.FieldByName('l').AsInteger := s;
     ADOTable1.Post;
     ADOTable1.Next;
 if i:=4 then s:=inc(s) // or s:=s+1
   end;
   
 end;

بارك الله فيك اخي

بس لا اعتقد ان الكود يصلح

اخي ما اريده ا
اعمل حلقة تكرارية كل 5 سجلات يكون لها رقم واحد ( اي كل 5 طلاب يكونوا في لجنه وحده رقم 1 ) ثم الخمسة التليين رقم 2 وهكذا

ولكن اريد الترقيم ليس لنهاية الجدول اريده مثلا لاول 50 طالب فقط

الكود الذي وضعته في اول مشاركة يرقم الجدول بالكامل

السلام عليكم ورحمة الله وبركاته ،
نفس الكود الذي طرحته ، لكن كل مرة تحسب عدد السجلات المرقمة ، إذا كان عدد السجلات أكثر من 50 سجلا تخرج من الحلقة التكرارية.

كود :
var

 i, s,k: Integer;
begin
 s := 1;
 i := 0;
 k := 1 ;
 ADOTable1.First;
 While (not(ADOTable1.eof)) AND (k <= 50)  do
 begin
   i := i + 1 ;
   if i = 5 then
   begin
     s := s + 1 ;
     i := 1 ;
   end;   
   
     ADOTable1.Edit;
     ADOTable1.FieldByName('k').AsInteger := s;
     ADOTable1.Post;
     k := k +1 ;
    ADOTable1.Next;
   
   
 end;

بارك الله فيك اخي
لقد نفع الكووود معي
شكرا لك اخي

لم التفت انه ليس كل الجدول اسف

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

elzawey2020

mobile

elzawey2020

أبو معاذ

elzawey2020

mobile