السلام عليكم
سؤالي هذه المرة عن التفويج أو بالأحرى التقسيم إلى مجموعات متساوية
كيف أقوم بتوزيع أو تقسيم محموعة من الأشخاص على محموعات باستعمال الكمبوبكس و الديبيغراد
![[صورة: 270664351.png]](http://www7.0zz0.com/2017/08/16/03/270664351.png)
كود :
procedure TF_TOUT.TAFWIDJClick(Sender: TObject);
var
k,
i: integer;
begin
k:=2;
if ComboBox1.ItemIndex<>-1 then K:=StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
i := 0;
with adoTable1 do
begin
First;
while not EOF do
begin
edit;
Inc(i);
ADOTable1.FieldByName('TARTIB').Value := i;
if i = k then
i := 0;
Next;
end;
end;
end;
الحمد لله
بارك الله فيك و زادك علما و نورا و جعلك من أصحاب الجنة أنت و والديك
و جعل الله ذريتك من الأتقياء
شكرا أخي و الله من أعماق قلبي
لا تسأم إن سألتك مجددا فالعطشان دائم البحث عن الماء
لكن لماذا k:=2;
لم أفهمها
صراحة كتبت 2 لانك كتبت i:=2 كما بالصورة فوق
والان بعد التفكير : عندما نقول تقسيم فان اصغر عدد يمكن ان يكون 2
ان قلنا التقسيم على 1 فهذا ليس منطقي!
ومنه عليك تصحيح محتوى الcombobox كي تكون اول قيمة 2
شكرا جزيلا يا معلم و الله لقد أثلجت صدري
صراحتك أو بالأحرى نيتك الخالصة و الصادقة توافقت مع البرنامج و هو يشتغل 10/10 بل 100*100
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ