Kod: Tümünü seç
TSinif = class
private
FSection: TCriticalSection;
public
procedure Proc1;
procedure Proc2;
end;
procedure TSinif.proc1;
begin
Fsection.Lock;
try
islem;
finally
Fsection.Unlock;
end;
end;
Kod: Tümünü seç
TSinif = class
private
FSection: TCriticalSection;
public
procedure Proc1;
procedure Proc2;
end;
procedure TSinif.proc1;
begin
Fsection.Lock;
try
islem;
finally
Fsection.Unlock;
end;
end;