unit hiСomplexMath;
interface
uses Kol,Share,Debug;
type
THIСomplexMath = class(TDebug)
private
_Err:boolean;
Res:string;
Def:string;
AngleMode:real;
procedure SetDefault(Value:real);
procedure SetAngleMode(Value:byte);
public
_prop_OpType:byte;
_prop_Op1:string;
_prop_Op2:string;
_event_onResult:THI_Event;
_event_onError:THI_Event;
_data_Op1:THI_Event;
_data_Op2:THI_Event;
procedure _work_doOperation(var _Data:TData; Index:word);
procedure _work_doClear(var _Data:TData; Index:word);
procedure _work_doDefault(var _Data:TData; Index:word);
procedure _work_doAngleMode(var _Data:TData; Index:word);
procedure _var_Result(var _Data:TData; Index:word);
property _prop_Default:real write SetDefault;
property _prop_AngleMode:byte write SetAngleMode;
end;
implementation
uses hiMathParse;
const
digE = 2.718281828459045;
Pi2 = 6.283185307179686;
procedure THIСomplexMath.SetDefault;
begin
Def:=Value;
Res:=Def;
_Err:=false;
end;
procedure THIСomplexMath._work_doDefault;
begin
SetDefault(ToString(_Data));
end;
procedure THIСomplexMath._work_doAngleMode;
begin
SetAngleMode(ToInteger(_Data));
end;
procedure THIСomplexMath._work_doClear;
begin
Res:=Def;
_Err:=false;
end;
procedure THIСomplexMath._var_Result;
begin
if _Err then dtNull(_Data)
else dtString(_Data,Res);
end;
procedure THIСomplexMath._work_doOperation;
var
begin
end;
end.
interface
uses Kol,Share,Debug;
type
THIСomplexMath = class(TDebug)
private
_Err:boolean;
Res:string;
Def:string;
AngleMode:real;
procedure SetDefault(Value:real);
procedure SetAngleMode(Value:byte);
public
_prop_OpType:byte;
_prop_Op1:string;
_prop_Op2:string;
_event_onResult:THI_Event;
_event_onError:THI_Event;
_data_Op1:THI_Event;
_data_Op2:THI_Event;
procedure _work_doOperation(var _Data:TData; Index:word);
procedure _work_doClear(var _Data:TData; Index:word);
procedure _work_doDefault(var _Data:TData; Index:word);
procedure _work_doAngleMode(var _Data:TData; Index:word);
procedure _var_Result(var _Data:TData; Index:word);
property _prop_Default:real write SetDefault;
property _prop_AngleMode:byte write SetAngleMode;
end;
implementation
uses hiMathParse;
const
digE = 2.718281828459045;
Pi2 = 6.283185307179686;
procedure THIСomplexMath.SetDefault;
begin
Def:=Value;
Res:=Def;
_Err:=false;
end;
procedure THIСomplexMath._work_doDefault;
begin
SetDefault(ToString(_Data));
end;
procedure THIСomplexMath._work_doAngleMode;
begin
SetAngleMode(ToInteger(_Data));
end;
procedure THIСomplexMath._work_doClear;
begin
Res:=Def;
_Err:=false;
end;
procedure THIСomplexMath._var_Result;
begin
if _Err then dtNull(_Data)
else dtString(_Data,Res);
end;
procedure THIСomplexMath._work_doOperation;
var
begin
end;
end.
------------ Дoбавленo в 14.01:
Что-то код с ошибками вставляется, пришлось цитировать