Class TEditExp (unit EditExp)

Inherits from

TEdit

EditExp Ver 1.00 Expression Evaluator by Ricardo Barrenechea Compuserve 73050,261 Internet RBarre@spi-cis.com

Constructors


constructor Create(AOwner:TComponent);

Public declarations

Check if result is complex.



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 : string

Published declarations

property UseVar : boolean


property VarGrid : TStringGrid


property Exp : string

STRING

property SValue : string

VALUE

property Value : double

Error 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


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 : string

Published declarations


property UseVar : boolean


property VarGrid : TStringGrid


property Exp : string

STRING


property SValue : string

VALUE


property Value : double

Error 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