Скачать: CL | DM;

Как создать объект "Монитор" в 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;

---

← →
Игорь Шевченко ©   (2010-12-17 20:18) [5]

RTFS: Syncobjs.pas

---

← →
Ega23 ©   (2010-12-17 20:25) [6]

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


Да, сойдёт

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.004 c