شكرا علي الاجتهاد الرائع و المفيد ونتمني لك دوام الصحة و العافية والي المزيد من الاجتهاد
[COLOR="DarkOrange"][B]شكرا اخي
بارك الله فيك
[/COLOR][/B]
Bbsafia
professor DeXTeR
kml_hmd
kisokiso
العفو و شكرا للردود ، الاحترام والتقدير متبادل
كنت سأسعد كثيرا لو كانت المشاركات تعليقات عن المحتوى ( لأنه يوجد الكثير ما يتوجب الحديث عنه ) أو من الذين يحسنون الفرنسية ترجمة تعليقات القراء في المقال الأصلي.
صراحة أطمح إلى نقاش نرفع فيه المستوى إلى درجة التطوير.. لا أرى أننا سنتقدم أو سنقدم شيئا إذا بقينا على هذه الوتيرة
هذا طبعا إذا أردنا لهذا المنتدى أن يكون مرجعا للغة الدلفي في المنطقة العربية، وأيضا إذا أردنا أن نوفر دعم اللغة العربية أكثر في تطوير البرمجيات.
فقط رأي..
تحياتي 
إقتباس :باختبار بواسطة دلفي 7 نجد أن الطريقة الثانية أحسن بنسبة أداء بـ 1.7 : 1 (أسرع بـ 1.7 مرة)
كيف تم هذا الاختبار ؟ من اي اداة ؟
وجزاك الله خيرا
الطريقة المستعملة من طرف الكاتب الأصلي وآخرين هي عبر الإجراء GetTickCount
أنظر SDK Help المرفق مع دلفي عند Win32 Developper's References
أو من موقع ميكروسوفت : http://msdn2.microsoft.com/en-us/library/ms724408.aspx
أظنها تنفع مع جميع لغات البرمجة ضمن Windows
هذا مثال أدرجه أحد المبرمجين
كود :
var GTADD, GTDIV : cardinal;
procedure .... ;
begin
GTADD := GetTickCount;
For N := 1 to 10000000 do X := 22 + 8;
GTADD := GetTickCount - GTADD;
GTDIV := GetTickCount;
For N := 1 to 10000000 do X := 22 / 8;
GTDIV := GetTickCount - GTDIV;
caption := format('Add=%d ms / Div=%d ms',[GTADD, GTDIV]);
end;
مع العلم أنه استعمل تكرار من 10000000 للحصول على قيمة قابلة للقياس، لأن GetTickCount ترجع قيمة milliseconds أي جزء من ألف جزء من الثانية (للعمليات الصغيرة قد ينتج 0)
وحسب المعالج processor فمثلا أحدهم قد يحصل على GTADD = 20 ms ، GTDIV = 30 ms بالنسبة للمثال أعلاه وآخر - مثلي - يحصل على GTADD = 15 ms ، GTDIV = 32 ms
.
الف شكر على الترجمة بانتظار المزيد
جزاك الله خيرا اخي الكريم وربنا يباركلك