Class TEditExp (unit EditExp) |
Inherits from
TEdit
EditExp Ver 1.00
Expression Evaluator
by Ricardo Barrenechea Compuserve 73050,261
Internet RBarre@spi-cis.com
constructor Create(AOwner:TComponent);
- Public declarations
Check if result is complex.
destructor Destroy;
No Error, No Var's, No Grid
function Error : boolean;
Public Methods
function GetError : string;
True or false
procedure Calc;
Protected Methodswith
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);
property Mask : string
Published declarations
property UseVar : boolean
property VarGrid : TStringGrid
property Exp : string
STRING
property SValue : string
VALUE
property Value : double
Error string} { Public Properties
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
constructor Create(AOwner:TComponent);
Public declarations
Check if result is complex. eg sqrt(-1) } { --------------------------------------------------------------------------
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);
property Mask : string
Published declarations
property UseVar : boolean
property VarGrid : TStringGrid
property Exp : string
STRING
property SValue : string
VALUE
property Value : double
Error string} { Public Properties
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