+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استخرج بيانات من مصفوفة (/showthread.php?tid=6508)
كيف استخرج بيانات من مصفوفة - Anew - 24-10-2014
السلام عليكم اخواني
لدي مصفوفة
كود :
_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 خطوة
و بارك الله بيكم
كيف استخرج بيانات من مصفوفة - ALmuhhnad - 25-10-2014
ماذا تستعمل ؟
Delphi7 ?
XE ?
كيف استخرج بيانات من مصفوفة - Anew - 27-10-2014
انا استخدم دلفي 7
كيف استخرج بيانات من مصفوفة - محمد عبد العزيز - 28-10-2014
وعليكم السلام
عندما تكون البيانات كثيرة استخدم قاعدة بيانات بدلا من مصفوفة
كيف استخرج بيانات من مصفوفة - ALmuhhnad - 29-10-2014
إقتباس : عندما تكون البيانات كثيرة استخدم قاعدة بيانات بدلا من مصفوفة1+
فقط جرب الكود الذي قمت بكتابته في الاعلى في برنامجك
وانظر هل يصبح جهازك ثقيل أم لا ( عن نفسي اضطررت إلى اعادة تشغيل جهازي مره آخرى -__- )
كذلك نقطة آخرى وهي انك ستقوم باستعمال قرابة 26 ميقا بايت في الذاكرة لتخزين هذه المصفوفة فقط !
اما من ناحية طريقة استخراج البيانات المصفوفه وهي تتم من خلال Loop
يتم فيه تحديد طوال المصفوفة وبعد ذلك يتم قراءة البيانات في المصفوفة عنصراً عنصراً .
مثال :
PHP كود :
var
_data: array [0..7000000] of Integer;
i: Cardinal;
CurrentItem: Integer;
begin
for i := 0 to 7000000 do
begin
// read item number (i) and give it to CurrentItem;
CurrentItem := _data[i];
//
// do something with CurrentItem;
//
end;
end;