كيف استخدم الThread

[palunix]

مثلا عندي فور تعد من 1 حتي 30 كيف يمكن انشاء في كل مره ثرد جديد فيه فنكشن تعد الاعداد السابقه و تضربه في رقنم المره التي هو فيها
الثرد الثاني يجمع لسابقيه 0 و 1 و يضرب في رقم المره يعني يضرب في 2..
مع العلم كل مره غب ثرد مختلف ...

[أبو محمد اللحياني]

في الرابط طريقة تعمل مع delphi 2010

كود :

http://www.progdigy.com/?p=85

أحببت أن أجربها على سؤالك

[cargem]

لاول مرة ارى شي مثل هذا
(begin

end)

PHP كود :

try
    Thread( procedure var i, c: Integer;
    begin
      // sleep(2000);
      // SetEvent(done);
      c := Counter; // copy Counter;
      for i := 1 to 30 do PrintCounter(Format('[%d] : %d * %d = %d;',
      [c, i, c, i * c]));
       end);
    // WaitForSingleObject(done, INFINITE);
  finally
    // CloseHandle(done);
  end; 


[أبو محمد اللحياني]

في دلفي 2010 ميزة استخدام الإجراءات بدون اسم ، بدون برامترات .

أي كتلة من الكود تكون بمثابة بارامتر واحد .


أزِل التعليقات إذا كنت تريد انتظار الـ Thread

[palunix]

جربته ولم يعمل معي اخري الكريم ؟
الواضح من الفكره انه انا اضع الفنكشن كلها داخل الثرد و هذه بالضبط ما احتاجه
لكن لم يعمل معي

هذه ليس اثرد ... هذه الدالة العشوائيه .. تبقي ضمن الثرد الرئيسي ..

[أبو محمد اللحياني]

لكن لم يعمل معي

ما هو إصدار الدلفي عندك ، وما هو الخطأ الذي ظهر لك.

هذه ليس اثرد

نعم هنا لم نستخدم TThread الموجود في الوحدة Classes ولكن استخدمنا طريقة حديثة تستخدم توابع API وكلها THREAD .

أيضاً بإمكانك النظر في المواضيع الآخرى :
http://www.delphi4arab.net/forum/showthr...p?tid=4673
http://www.delphi4arab.net/forum/showthr...p?tid=2706
http://www.delphi4arab.net/forum/showthr...p?tid=2021
http://www.delphi4arab.net/forum/showthr...p?tid=3745

[palunix]

السلام عليكم

الاسهل و الافضل هو الكلاس المسماه ترد اوبجكت الموجوده في الدلفي او الراد ستوديو

و الاهم هو عمل تزامن حتي يشتغل الثرد بافضل شكل ممكن ..

كل هذه حصلت عليه بعد التجربه

بارك الله فيكم