Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

НЕКТО © (2010-12-17 19:37:00)
В каком модуле он объявлен. Монитор, всмысле инструмент для синхронизации потоков.

Ega23 (2010-12-17 20:25:00) [1]

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

Да, сойдёт

Игорь Шевченко (2010-12-17 20:18:00) [2]
RTFS: Syncobjs.pas

НЕКТО (2010-12-17 20:11:00) [3]
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;

Leonid Troyanovsky (2010-12-17 19:58:00) [4]

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

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

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

--
Regards, LVT.

НЕКТО (2010-12-17 19:49:00) [5]
Leonid Troyanovsky © (17.12.10 19:48) [1]
А его нет? Тогда где можно скачать исходных код этого класса??

Leonid Troyanovsky (2010-12-17 19:48:00) [6]

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

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

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

--
Regards, LVT.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »