كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات

[S.FATEH]

السلام عليكم

لديك مجموعة من CheckBox تريد ان تنقل قيمها البولينية الى قاعدة البيانات

PHP كود :

begin
  for i := 0 to CheckListBox1.Count - 1
  begin
     Allow.FieldByName('Name').AsString:= CheckListBox1.Items[i];
     Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
  end;
end; 


PHP كود :

r:=r+CheckListBox1.items[x]; 


لماذا تضيف النص الذي قبله الى النص الجديد !!!
الاصح

PHP كود :

r := CheckListBox1.Items[x] 


PHP كود :

Allow.FieldByName('Active').AsBoolean:= true; 


ماذا لو لم تكن للمستخدم الصلاحية اي False
الاصح

PHP كود :

Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex]; 


و الله اعلم

سلامي