HiAsm

Форумы Между делом Массив ← Ctrl1 2 345Ctrl →

Разработчик

Ответов: 26303

Рейтинг: 2146

#1: 2007-04-01 13:19:37 ЛС | профиль | цитата

Galkov писал(а):

Вот пример, дающий преимщество независимого управления потоком

И где там написано Commutator -- это просто схема реализованная на этом компоненте (у тебя на стандартном), но это -- схема, именно и предназначенная для независимого управления потоком. Хорошо, ты показал несостоятельность компонента (заметь, я не просил добавить его в дистрибутив), написанного год назад (ну не пришла мне на ум такая реализация, знаний малова-то было, а потом и шло все по накатанной). Теперь, твоими усилиями, мы будем знать, как это можно сделать.
Но вот это, точно не помешает при каналах более двух -- нижняя точка Index в компоненте ChannelToIndex, и ничего менять особо не надо, добавить пару строчек кода

[Methods]
Index=Индекс активированной точки входа|3|int

в ini-файле. И изменить pas вот так

type
  ThiChanelToIndexEx = class(TDebug)
   private
    dt:TData;
    eIndex:word;
   public
    _prop_Count:integer;
    _event_onIndex:THI_Event;

    procedure doWork(var _Data:TData; Index:word);
    procedure _var_Data(var _Data:TData; Index:word);
    procedure _var_Index(var _Data:TData; Index:word);
  end;

implementation

procedure ThiChanelToIndexEx.doWork(var _Data:TData; Index:word);
begin
   dt:=_Data;
   eIndex:=Index;
   _hi_OnEvent(_event_onIndex,Index);
end;

procedure ThiChanelToIndexEx._var_Data(var _Data:TData; Index:word);
begin
   _Data:=dt;
end;

procedure ThiChanelToIndexEx._var_Index;
begin
   _Data := _DoData(eIndex);
end;

end.

[size=-2]------ Добавлено в 13:19
Galkov, не сердись на меня -- бывет тоже глюки ловлю

карма: 22

Форумы Между делом Массив ← Ctrl1 2 345Ctrl →