delphi4arab منتديات دلفي للعرب

السلام علكيم ورحمة الله وبركاته
احتاج الجزئيه التالية

كود :
http://www.36r-m.com/up/uploads/13250168961.gif

وجدت مثال للاخ المبرمج لاكن المثال لا يعمل معي يحتاج الى مكونات وواجهة مشاكل ولم استفد منه
http://www.delphi4arab.net/forum/showthread.php?p=14432
وشكراً لكم

تم حل المشكة بعد جهد وبحث

كود :
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;

قديم الشوق

قديم الشوق