24-10-2014, 12:33 PM
السلام عليكم اخواني
لدي مصفوفةالان كيف استخراج هذه البانات من الداتا
و لكنها بطاء جدا و قمت بادراج
Application.ProcessMessages;
داخل for .. loop و لم ينفع
المشكلة في for loop
هل تو جد طريقة لتقليل for loop
مثلا الـ for loop
يعد من 0 الى 700 بلا من 7000000 و يستخرج البانات كاملة دون القفز 10000 خطوة
و بارك الله بيكم
لدي مصفوفة
كود :
_data : array [0..7000000] of Integer;كود :
var
i : integer;
begin
i := 0;
for i := 0 to 7000000 do
begin
//......
end;Application.ProcessMessages;
داخل for .. loop و لم ينفع
المشكلة في for loop
هل تو جد طريقة لتقليل for loop
مثلا الـ for loop
يعد من 0 الى 700 بلا من 7000000 و يستخرج البانات كاملة دون القفز 10000 خطوة
و بارك الله بيكم
سبحان الله و بحمده سبحان الله العظيم