Реферат - Потоки / 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.