Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2011-04-16 23:13:54 ЛС | профиль | цитата
CriDos,лучше пятый способ:
procedure THiAsmClass.doWork;
var i:integer;
begin
i:= ToIntegerEvent(int);
If Odd(i) then _hi_OnEvent(onFalse, i) else _hi_OnEvent(onTrue,i);
end;
или так:
procedure THiAsmClass.doWork;
var i:integer;
begin
i:=ToIntegerEvent(int);
Case Odd(i) of
True : _hi_OnEvent(onFalse,i);
False: _hi_OnEvent(onTrue,i);
end;
end;

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:CriDos