Class TForm1 (unit testform)

Inherits from

TForm

this unit implements the examples used to illustrate the use of the 'Expressions' unit. These examples are documented in Expressions.Pas. Please go refer to the main comment block (just before implementation) in that unit

Constructors



Functions

procedure EG1ButtonClick(Sender: TObject);


procedure EG2ButtonClick(Sender: TObject);

these identifiers do not require parameters, so raise an exception if they exist.

procedure EG3ButtonClick(Sender: TObject);


procedure EG3TimerTimer(Sender: TObject);

this identifier function is used for example 3.

procedure EG4ButtonClick(Sender: TObject);

this identifier function is used for example 4.

procedure FormDestroy(Sender: TObject);


procedure CheckInstances;


function EG2IDFunc( const Identifier: String; ParameterList: TParameterList): TExpression;


function EG3IDFunc( const Identifier: String; ParameterList: TParameterList): TExpression;


function EG4IDFunc( const Identifier: String; ParameterList: TParameterList): TExpression;


Properties

Events

Variables

EG1Button : TButton;


EG2Button : TButton;


EG3Button : TButton;


EG3Result : TLabel;


EG3Timer : TTimer;


EG4Button : TButton;


ICount : TLabel;


Label2 : TLabel;


EG3Expr : TExpression;



Constructors


Functions


procedure EG1ButtonClick(Sender: TObject);


procedure EG2ButtonClick(Sender: TObject);

these identifiers do not require parameters, so raise an exception if they exist. Note that if a parameter list is passed (due to bad syntax) and then we return a valid result, the parameter list will be orphaned and there will be a memory leak


procedure EG3ButtonClick(Sender: TObject);


procedure EG3TimerTimer(Sender: TObject);

this identifier function is used for example 3. It supports the identifier TimeString


procedure EG4ButtonClick(Sender: TObject);

this identifier function is used for example 4. It supports the function Mean(a, b: Float): Float;


procedure FormDestroy(Sender: TObject);


procedure CheckInstances;


function EG2IDFunc( const Identifier: String; ParameterList: TParameterList): TExpression;


function EG3IDFunc( const Identifier: String; ParameterList: TParameterList): TExpression;


function EG4IDFunc( const Identifier: String; ParameterList: TParameterList): TExpression;


Properties


Events


Variables


EG1Button : TButton;


EG2Button : TButton;


EG3Button : TButton;


EG3Result : TLabel;


EG3Timer : TTimer;


EG4Button : TButton;


ICount : TLabel;


Label2 : TLabel;


EG3Expr : TExpression;