دلفي & threads مفاهيم و تطبيقات .

[kachwahed]

في نسخة Delphi 2010 يمكن كتابة إجراء Synchronize كما يلي:

PHP كود :

Procedure MyThread.Execute;
Begin
 repeat
   Sleep(100); //500 = 1/2 s
   Synchronize( Procedure ()
                Begin
                Inc(_i);
                If _i <= 255 Then
                MainFrm.Label3.Caption:= IntToStr(_i) Else
                 _i:= 0;
                End);
  until Terminated;
End; 


بالتوفيق أخي TF6M.