Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.03.06;
Скачать: 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 вся ветка

Текущий архив: 2011.03.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.007 c
2-1291978918
Any
2010-12-10 14:01
2011.03.06
Ошибка при выполнении запроса


2-1292254343
radiokarazinec
2010-12-13 18:32
2011.03.06
ПОМОГИТЕ КАК ВЫТЯНУТЬ ДАННЫЕ ИЗ TXT НА КАРТИНКУ TImage


2-1292235834
Ikar
2010-12-13 13:23
2011.03.06
Тип Char


2-1292508375
Scott Storch
2010-12-16 17:06
2011.03.06
очистить xml-файл


3-1253703164
ganda
2009-09-23 14:52
2011.03.06
Хранимые процедуры и внешние файлы