كيف يمكنني ربط stringGrid بTable

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
جمعة مباركة وتقبل الله منا ومنكم الصلاة بمزيد من الاجر والثواب
لدي عدة حقول ودمجتها في المكون stringGrid
بدلا من استعمال المكون DBText بعدد كبير
لذا اردت ان اعرف هل من الممكن ربط stringgrid بـ Table1
ووفقكم الله

[Mr.DOS]

سلام عليكم

ممكن عمل loading data to stringgrid
var

كود :

  i: integer; begin   ADOTable1.Open;   StringGrid.ColCount := ADOTable1.FieldCount + 2;   StringGrid.RowCount := ADOTable1.RecordCount + 1;   for i := 0 to ADOTable1.FieldCount - 1 do     StringGrid.Cells[i, 0] := ADOTable1.Fields[i].FieldName;   ADOTable1.First;   while not ADOTable1.Eof do begin     for i := 0 to ADOTable1.FieldCount - 1 do       StringGrid.Cells[i, ADOTable1.RecNo] := ADOTable1.Fields[i].AsString;     ADOTable1.Next;   end; end;

[medreg]

اشكرك على المرور
لكن اخي ليس هذا م قصدته
بل كنت اثصد
ان يكون لكل سجل stringgrid
يعني كل ما انتقلت الى سجل يجب ان يكون StringGrid به معطيات السجل وليس معطيات كل السجلات
بارك الله فيك