26-01-2016, 10:59 PM
لا تنسى اغلاقها في الحدث OnDestroy
كود :
Var i:Integer;
begin
for i := 0 to ComponentCount-1 do
if( Components[ i ] is TTable )then
(Components[ i ] as TTable).Close;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ