| Class TForm1 (unit testform) |
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);
procedure EG3ButtonClick(Sender: TObject);
procedure EG3TimerTimer(Sender: TObject);
procedure EG4ButtonClick(Sender: TObject);
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;