+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس (/showthread.php?tid=8802)
كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس - chardoneret - 16-08-2017
السلام عليكم
سؤالي هذه المرة عن التفويج أو بالأحرى التقسيم إلى مجموعات متساوية
كيف أقوم بتوزيع أو تقسيم محموعة من الأشخاص على محموعات باستعمال الكمبوبكس و الديبيغراد
![[صورة: 270664351.png]](http://www7.0zz0.com/2017/08/16/03/270664351.png)
RE: كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس - محمد عبد العزيز - 16-08-2017
كود :
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;RE: كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس - chardoneret - 16-08-2017
الحمد لله
بارك الله فيك و زادك علما و نورا و جعلك من أصحاب الجنة أنت و والديك
و جعل الله ذريتك من الأتقياء
شكرا أخي و الله من أعماق قلبي
لا تسأم إن سألتك مجددا فالعطشان دائم البحث عن الماء
لكن لماذا k:=2;
لم أفهمها
RE: كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس - محمد عبد العزيز - 16-08-2017
صراحة كتبت 2 لانك كتبت i:=2 كما بالصورة فوق
والان بعد التفكير : عندما نقول تقسيم فان اصغر عدد يمكن ان يكون 2
ان قلنا التقسيم على 1 فهذا ليس منطقي!
ومنه عليك تصحيح محتوى الcombobox كي تكون اول قيمة 2
RE: كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس - chardoneret - 16-08-2017
شكرا جزيلا يا معلم و الله لقد أثلجت صدري
صراحتك أو بالأحرى نيتك الخالصة و الصادقة توافقت مع البرنامج و هو يشتغل 10/10 بل 100*100
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ