nesco писал(а):
По первому пункту, в корне не согласен.
procedure THIIf_else._work_doCompare;
var
op1,op2,dt:TData;
begin
dt := _Data;
Op1 := ReadData(_Data,_data_Op1,@_prop_Op1);
Op2 := ReadData(_Data,_data_Op2,@_prop_Op2);
if Compare(Op1,Op2,_prop_Type) then
_hi_CreateEvent(_Data,@_event_onTrue,Dt)
else
_hi_CreateEvent(_Data,@_event_onFalse,Dt);
end;
procedure THICase._work_doCase;
var dt:TData;
begin
dt := _Data;
if Compare(ReadFromThread(_Data),_prop_Value,0) then
_hi_OnEvent_(_event_onTrue, FData)
else
_hi_OnEvent(_event_onNextCase,dt);
end;
Поиск
Друзья
Администрация