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

[Anter2010]

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

تم ايجاد الحل باذن الله و هذا الكود لنقل البيانات من قاعدة البينات الى Checklistbox

PHP كود :

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  qx.Items.BeginUpdate;
try
  while not Use_Form.Eof
  do begin
    i := qx.Items.Add(Use_Form.FieldByName('Name_').AsString);
    qx.Checked[i] := Use_Form.FieldByName('Authorization').AsBoolean;
    Use_Form.Next;
  end;
finally
  qx.Items.EndUpdate;
end;
end;