Реферат - Потоки / lab4thread2 / critsect4 / thrd

unit thrd;

interface

uses
 Classes,Graphics,Windows,SysUtils,StdCtrls,syncobjs;

type
  tmythread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    public
Count : Integer;
s:string;
end;

implementation

uses trd;

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure tmythread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ tmythread }

procedure tmythread.Execute;
Var
i, ob, sr : Integer;
begin
 While True Do Begin ob := 0;
For i := 1 To 10 Do
inc(ob,round(sqrt(abs(sin(i)))));
sr := sr Div 10;
    Inc( Count ) ;
  with Critical do begin
    enter;
s:='Hello from threadland';
leave;
End;
end;
end;

end.