31-12-2011, 02:58 PM
تم حل المشكة بعد جهد وبحث
كود :
procedure TForm1.FormShow(Sender: TObject);
begin
ListBox1.Items.Clear;
ADOTable1.First;
while not ADOTable1.Eof do
begin
//DBListBox1.Items.Add(ADOTable1.Fields[0].Value); // DBListBox1 áÇÓÊÎÏÇãåÇ Ýí ãßæä
ListBox1.Items.Add(ADOTable1.Fields[0].Value);
ADOTable1.Next;
end;
end;