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
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;
EG1Button : TButton;
EG2Button : TButton;
EG3Button : TButton;
EG3Result : TLabel;
EG3Timer : TTimer;
EG4Button : TButton;
ICount : TLabel;
Label2 : TLabel;
EG3Expr : TExpression;
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;
EG1Button : TButton;
EG2Button : TButton;
EG3Button : TButton;
EG3Result : TLabel;
EG3Timer : TTimer;
EG4Button : TButton;
ICount : TLabel;
Label2 : TLabel;
EG3Expr : TExpression;