delphi4arab منتديات دلفي للعرب

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

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

كود :
http://www.progdigy.com/?p=85

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

لاول مرة ارى شي مثل هذا
(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

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

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

إقتباس :لكن لم يعمل معي

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

إقتباس :هذه ليس اثرد

نعم هنا لم نستخدم 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

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

cargem

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

palunix

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

palunix