Как создать объект "Монитор" в Delphi 7?

← →
НЕКТО (2010-12-17 19:37) [0]

В каком модуле он объявлен. Монитор, всмысле инструмент для синхронизации потоков.

← →
Leonid Troyanovsky © (2010-12-17 19:48) [1]

> НЕКТО (17.12.10 19:37)

> В каком модуле он объявлен. Монитор, всмысле инструмент
> для синхронизации потоков.

А откуда информация, что он объявлен?

--
Regards, LVT.

← →
НЕКТО (2010-12-17 19:49) [2]

Leonid Troyanovsky © (17.12.10 19:48) [1]
А его нет? Тогда где можно скачать исходных код этого класса??

← →
Leonid Troyanovsky © (2010-12-17 19:58) [3]

> НЕКТО (17.12.10 19:49) [2]

> А его нет? Тогда где можно скачать исходных код этого класса?

Если его нет, то и скачать неоткуда, IMHO.

--
Regards, LVT.

← →
НЕКТО (2010-12-17 20:11) [4]

Leonid Troyanovsky ©
Поглядите, пожалуйста, такой класс сойдет за монитор?
type
TMonitor = class
public
constructor Create;
destructor Destroy;
procedure Enter(X: Pointer);
procedure Exit(X: Pointer);
Ps: TList;
end;

implementation

constructor TMonitor.Create;
begin
Ps = TList.Create;
end;

destructor TMonitor.Destroy;
begin
Ps.Free;
end;

procedure TMonitor.Enter(X: Pointer);
begin
if (Ps.IndexOf(X) = -1) then
Ps.Add(X);
else
begin
while (Ps.IndexOf(X) <> -1) do
begin
end;
Ps.Add(X);
end;
end;

procedure TMonitor.Exit(X: Pointer);
begin
if (Ps.IndexOf(X) <> -1) then
Ps.Delete(Ps.IndexOf(X));
end;

RTFS: Syncobjs.pas

> Поглядите, пожалуйста, такой класс сойдет за монитор?

Да, сойдёт

Как создать объект "Монитор" в Delphi 7? Найти похожие ветки