فتح عدة جداول

[السوفي]

لا تنسى اغلاقها في الحدث OnDestroy

كود :

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

السلام عليكم

رحمك الله ووالديك وجميع المؤمنين رحمة يدخلنا بها جنته أمين
لم يفتني الامر
وسوف اقوم بها ان شاء الله شكرا اخي الفاضل
واسف كثيرا اتعبتك معي
والسلام عليكم