دخول

karamofweb · 04-03-2011, 02:36 PM

السلام عليكم
صادفني مشكل اثناء تعلمي لاستعمال threads في دلفي حيث انني صنعت برنامج من عنصري لابل و زر boutton و thread في unit 2 حيث وضعت الكود الآتي في اجراء الـ thread.

كود :
var i:integer;
begin

 First := not First;
 if First then
 for i:=1 to 1000000 do
 begin
 Form1.Label1.Caption:=inttostr(i);
 sleep(200);
 end
 else
 for i:=1 to 1000000 do
 begin
 Form1.Label2.Caption:=inttostr(i);
 sleep(200);
 end;
end;

وعند عمل الـ compil يقوم البرنامج بالعد و عند الضغط عدة مرات على الزر تزيد سرعة العد.
و لحظة معينة تخرج رسالة خطأ تنوه opéraion de pointeur incorrecte. processus stoppé و هي من النوع EinvlaidPointer ثم تشير الى السطر ٍ sleep(200) ... هل من احد يحل مشكلتي بارك الله فيكم ؟
مع العلم ان Try..exceptions تفي بالغرض الاّ ان معرفة سبب هذا المشكل نقطة رئيسية لحن تعلم الـ thread.... البرنامج في المرفقات

karazeh2006

كود :
procedure TForm1.Button1Click(Sender: TObject);
var Counter:[color=Red]TCounterthread[/color];
begin
Counter:=[color=Red]TCounterthread[/color].Create(False);
end;

المتغيرات باللون الأحمر هو ما قمت بتصحيحه في برنامجك و كل شيء سار على ما يرام (Delphi2007)

karamofweb · 08-03-2011, 11:58 PM

اعرف .... لكن المشكل ليس في الكتابة ... لاني اخطات فقط حين النقل ... المشكل لو تركت البرنامج يعد
راقب عمله فهو يعن خطأ pointer:lol:

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة