MAV писал(а):
Возник ещё один вопросик Кладов в kol.pas писал(а)function Abs( X: Integer ): Integer;
почему "Integer" а не "Extended", в этом есть необходимость?
MAV писал(а):
у Кладова спрашивать не буду 
Вот Dilma тоже решил у Кладова не спрашиватьprocedure THIMath._work_doOperation33;{abs}
begin
Res := ReadReal(_Data,_data_Op1,_prop_Op1);
_Err:=false;
if Res<0 then Res := -Res;
if _prop_ResultType = 0 then
_hi_OnEvent(_event_onResult,integer(Round(Res)))
else _hi_OnEvent(_event_onResult,Res);
end;
Поиск
Друзья
Администрация