| Class TEditExp (unit EditExp) |
TEdit
EditExp Ver 1.00 Expression Evaluator by Ricardo Barrenechea Compuserve 73050,261 Internet RBarre@spi-cis.com
| Constructors |
constructor Create(AOwner:TComponent);Check if result is complex.
| Functions |
destructor Destroy;
function Error : boolean;
function GetError : string;
procedure Calc;with
procedure ChangeVar;
function GetExp : string;
function GetSValue : string;
function GetValue : double;GetValue GetExp & GetSValue first do CALC It can be done in a diferent way !
procedure SetMask(value :string);
procedure SetUseVar(value:boolean);
procedure SetVarGrid(value:TStringGrid);| Properties |
property Mask : string
property UseVar : boolean
property VarGrid : TStringGrid
property Exp : string
property SValue : string
property Value : double| Events |
| Variables |
FError : integer;
FExp : string;
FMask : string;
FSValue : string;
FUseVar : boolean;
FValue : double;
FVarGrid : TStringGrid;| Constructors |
constructor Create(AOwner:TComponent);Public declarations
Check if result is complex. eg sqrt(-1) } { --------------------------------------------------------------------------
| Functions |
destructor Destroy;No Error, No Var's, No Grid
function Error : boolean;Public Methods
function GetError : string;True or false
procedure Calc;Protected Methods
with
procedure ChangeVar;CORE !
function GetExp : string;
function GetSValue : string;
function GetValue : double;Expression without Var's} { Get Functions for Properties
GetValue GetExp & GetSValue first do CALC It can be done in a diferent way !
procedure SetMask(value :string);Set Procedure for properties
procedure SetUseVar(value:boolean);
procedure SetVarGrid(value:TStringGrid);| Properties |
property Mask : stringPublished declarations
property UseVar : boolean
property VarGrid : TStringGrid
property Exp : stringSTRING
property SValue : stringVALUE
property Value : doubleError string} { Public Properties
| Events |
| Variables |
FError : integer;Mask to convert FValue to FSValue
FExp : string;Use Var's ?
FMask : string;Value of expression - string
FSValue : string;Value of expression
FUseVar : boolean;TStringGrid where to read Var's
FValue : double;Protected declarations
FVarGrid : TStringGrid;Number of Error