فتح عدة جداول

[السوفي]

كود :

Var i:Integer; begin  for i := 0 to ComponentCount-1 do      if( Components[ i ] is TTable )then        (Components[ i ] as TTable).Open; end;

الله يرحمك ووالديك وجميع المؤمنين يوم يقوم الحساب

رغم اني لم اقبل باستخدامها بهذه الطريقة الا اني اشعر انها الامثل فكشرا خير
وها انا ارفع اليك القبع تواضعا وشكرا ودعاء لله ان يوفقك
بارك الله لنا فيك وورحمك ووالديك اخي الكريم
واسف على ازعاجي وشكرا
السلام عليكم