كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس
|
كيف تقسيم محموعة من الأشخاص باستعمال الكمبوبكس
|
16-08-2017, 01:27 AM
(آخر تعديل لهذه المشاركة: 16-08-2017, 07:04 AM بواسطة محمد عبد العزيز.)
السلام عليكم
سؤالي هذه المرة عن التفويج أو بالأحرى التقسيم إلى مجموعات متساوية كيف أقوم بتوزيع أو تقسيم محموعة من الأشخاص على محموعات باستعمال الكمبوبكس و الديبيغراد ![[صورة: 270664351.png]](http://www7.0zz0.com/2017/08/16/03/270664351.png)
16-08-2017, 07:08 AM
كود : 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;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
16-08-2017, 09:48 AM
(آخر تعديل لهذه المشاركة: 16-08-2017, 10:17 AM بواسطة chardoneret.)
الحمد لله
بارك الله فيك و زادك علما و نورا و جعلك من أصحاب الجنة أنت و والديك و جعل الله ذريتك من الأتقياء شكرا أخي و الله من أعماق قلبي لا تسأم إن سألتك مجددا فالعطشان دائم البحث عن الماء لكن لماذا k:=2; لم أفهمها
16-08-2017, 11:42 AM
صراحة كتبت 2 لانك كتبت i:=2 كما بالصورة فوق
والان بعد التفكير : عندما نقول تقسيم فان اصغر عدد يمكن ان يكون 2 ان قلنا التقسيم على 1 فهذا ليس منطقي! ومنه عليك تصحيح محتوى الcombobox كي تكون اول قيمة 2
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
16-08-2017, 12:23 PM
شكرا جزيلا يا معلم و الله لقد أثلجت صدري
صراحتك أو بالأحرى نيتك الخالصة و الصادقة توافقت مع البرنامج و هو يشتغل 10/10 بل 100*100 رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ |
|
|
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)