+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أفعل أكثر من مكون ADOQuery دون كتابة AdoQuery2.open (/showthread.php?tid=5494)
كيف أفعل أكثر من مكون ADOQuery دون كتابة AdoQuery2.open - igidher - 29-08-2013
السلام عليكم
لدي في برنامج عدد معتبر من AdoQuery لحساب إحصائيات في نفس الوقت
سؤالي كيف أفعلهم جميعا دون كتابة AdoQuery20.open لكل واحدة؟؟
كيف أفعل أكثر من مكون ADOQuery دون كتابة AdoQuery2.open - محمد عبد العزيز - 29-08-2013
السلام عليكم
أكتب شيئ مثل
كود :
var i:integer;
begin
for i := 0 to ComponentCount-1 do
if( Components[ i ] is TADOQuery )then
(Components[ i ] as TADOQuery).Open;
end;