كيف يمكن اضافة جميع محتويات Listbox الى قاعدة بيانات

[محمد عبد العزيز]

كود :

var i:Word; begin ADOTable1.open; for i:=0 to listbox1.items.count-1 do begin ADOTable1.Append; ADOTable1.FieldByName('Matricule').Text := ListBox1.Items[i]; ADOTable1.Post; end;