fs_iinterpreter.hpp

这个是功能强大的报表软件

public:
	#pragma option push -w-inl
	/* TfsAssignmentStmt.Destroy */ inline __fastcall virtual ~TfsAssignMulStmt(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsAssignMulStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsAssignmentStmt(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsAssignDivStmt;
class PASCALIMPLEMENTATION TfsAssignDivStmt : public TfsAssignmentStmt 
{
	typedef TfsAssignmentStmt inherited;
	
public:
	virtual void __fastcall Execute(void);
public:
	#pragma option push -w-inl
	/* TfsAssignmentStmt.Destroy */ inline __fastcall virtual ~TfsAssignDivStmt(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsAssignDivStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsAssignmentStmt(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsCallStmt;
class PASCALIMPLEMENTATION TfsCallStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsDesignator* FDesignator;
	AnsiString FModificator;
	
public:
	__fastcall virtual ~TfsCallStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsDesignator* Designator = {read=FDesignator, write=FDesignator};
	__property AnsiString Modificator = {read=FModificator, write=FModificator};
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsCallStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsIfStmt;
class PASCALIMPLEMENTATION TfsIfStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsCustomExpression* FCondition;
	TfsStatement* FElseStmt;
	
public:
	__fastcall virtual TfsIfStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos);
	__fastcall virtual ~TfsIfStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsCustomExpression* Condition = {read=FCondition, write=FCondition};
	__property TfsStatement* ElseStmt = {read=FElseStmt, write=FElseStmt};
};


class DELPHICLASS TfsCaseSelector;
class DELPHICLASS TfsSetExpression;
class PASCALIMPLEMENTATION TfsSetExpression : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
private:
	TfsCustomExpression* __fastcall GetItem(int Index);
	
protected:
	virtual Variant __fastcall GetValue();
	
public:
	bool __fastcall Check(const Variant &Value);
	__property TfsCustomExpression* Items[int Index] = {read=GetItem};
public:
	#pragma option push -w-inl
	/* TfsCustomVariable.Create */ inline __fastcall TfsSetExpression(const AnsiString AName, TfsVarType ATyp, const AnsiString ATypeName) : TfsCustomVariable(AName, ATyp, ATypeName) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsSetExpression(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfsCaseSelector : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsSetExpression* FSetExpression;
	
public:
	__fastcall virtual ~TfsCaseSelector(void);
	bool __fastcall Check(const Variant &Value);
	__property TfsSetExpression* SetExpression = {read=FSetExpression, write=FSetExpression};
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsCaseSelector(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsCaseStmt;
class PASCALIMPLEMENTATION TfsCaseStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsCustomExpression* FCondition;
	TfsStatement* FElseStmt;
	
public:
	__fastcall virtual TfsCaseStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos);
	__fastcall virtual ~TfsCaseStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsCustomExpression* Condition = {read=FCondition, write=FCondition};
	__property TfsStatement* ElseStmt = {read=FElseStmt, write=FElseStmt};
};


class DELPHICLASS TfsRepeatStmt;
class PASCALIMPLEMENTATION TfsRepeatStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsCustomExpression* FCondition;
	bool FInverseCondition;
	
public:
	__fastcall virtual ~TfsRepeatStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsCustomExpression* Condition = {read=FCondition, write=FCondition};
	__property bool InverseCondition = {read=FInverseCondition, write=FInverseCondition, nodefault};
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsRepeatStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsWhileStmt;
class PASCALIMPLEMENTATION TfsWhileStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsCustomExpression* FCondition;
	
public:
	__fastcall virtual ~TfsWhileStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsCustomExpression* Condition = {read=FCondition, write=FCondition};
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsWhileStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsForStmt;
class PASCALIMPLEMENTATION TfsForStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsCustomExpression* FBeginValue;
	bool FDown;
	TfsCustomExpression* FEndValue;
	TfsCustomVariable* FVariable;
	
public:
	__fastcall virtual ~TfsForStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsCustomExpression* BeginValue = {read=FBeginValue, write=FBeginValue};
	__property bool Down = {read=FDown, write=FDown, nodefault};
	__property TfsCustomExpression* EndValue = {read=FEndValue, write=FEndValue};
	__property TfsCustomVariable* Variable = {read=FVariable, write=FVariable};
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsForStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsVbForStmt;
class PASCALIMPLEMENTATION TfsVbForStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsCustomExpression* FBeginValue;
	TfsCustomExpression* FEndValue;
	TfsCustomExpression* FStep;
	TfsCustomVariable* FVariable;
	
public:
	__fastcall virtual ~TfsVbForStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsCustomExpression* BeginValue = {read=FBeginValue, write=FBeginValue};
	__property TfsCustomExpression* EndValue = {read=FEndValue, write=FEndValue};
	__property TfsCustomExpression* Step = {read=FStep, write=FStep};
	__property TfsCustomVariable* Variable = {read=FVariable, write=FVariable};
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsVbForStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsCppForStmt;
class PASCALIMPLEMENTATION TfsCppForStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsStatement* FFirstStmt;
	TfsCustomExpression* FExpression;
	TfsStatement* FSecondStmt;
	
public:
	__fastcall virtual TfsCppForStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos);
	__fastcall virtual ~TfsCppForStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsStatement* FirstStmt = {read=FFirstStmt, write=FFirstStmt};
	__property TfsCustomExpression* Expression = {read=FExpression, write=FExpression};
	__property TfsStatement* SecondStmt = {read=FSecondStmt, write=FSecondStmt};
};


class DELPHICLASS TfsTryStmt;
class PASCALIMPLEMENTATION TfsTryStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	bool FIsExcept;
	TfsStatement* FExceptStmt;
	
public:
	__fastcall virtual TfsTryStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos);
	__fastcall virtual ~TfsTryStmt(void);
	virtual void __fastcall Execute(void);
	__property bool IsExcept = {read=FIsExcept, write=FIsExcept, nodefault};
	__property TfsStatement* ExceptStmt = {read=FExceptStmt, write=FExceptStmt};
};


class DELPHICLASS TfsBreakStmt;
class PASCALIMPLEMENTATION TfsBreakStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
public:
	virtual void __fastcall Execute(void);
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsBreakStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsBreakStmt(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsContinueStmt;
class PASCALIMPLEMENTATION TfsContinueStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
public:
	virtual void __fastcall Execute(void);
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsContinueStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsContinueStmt(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsExitStmt;
class PASCALIMPLEMENTATION TfsExitStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
public:
	virtual void __fastcall Execute(void);
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsExitStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsExitStmt(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsWithStmt;
class PASCALIMPLEMENTATION TfsWithStmt : public TfsStatement 
{
	typedef TfsStatement inherited;
	
private:
	TfsDesignator* FDesignator;
	TfsCustomVariable* FVariable;
	
public:
	__fastcall virtual ~TfsWithStmt(void);
	virtual void __fastcall Execute(void);
	__property TfsDesignator* Designator = {read=FDesignator, write=FDesignator};
	__property TfsCustomVariable* Variable = {read=FVariable, write=FVariable};
public:
	#pragma option push -w-inl
	/* TfsStatement.Create */ inline __fastcall virtual TfsWithStmt(TfsScript* AProgram, const AnsiString UnitName, const AnsiString SourcePos) : TfsStatement(AProgram, UnitName, SourcePos) { }
	#pragma option pop
	
};


class DELPHICLASS TfsVariable;
class PASCALIMPLEMENTATION TfsVariable : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
protected:
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Variant __fastcall GetValue();
public:
	#pragma option push -w-inl
	/* TfsCustomVariable.Create */ inline __fastcall TfsVariable(const AnsiString AName, TfsVarType ATyp, const AnsiString ATypeName) : TfsCustomVariable(AName, ATyp, ATypeName) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsVariable(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsTypeVariable;
class PASCALIMPLEMENTATION TfsTypeVariable : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
public:
	#pragma option push -w-inl
	/* TfsCustomVariable.Create */ inline __fastcall TfsTypeVariable(const AnsiString AName, TfsVarType ATyp, const AnsiString ATypeName) : TfsCustomVariable(AName, ATyp, ATypeName) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsTypeVariable(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsStringVariable;
class PASCALIMPLEMENTATION TfsStringVariable : public TfsVariable 
{
	typedef TfsVariable inherited;
	
private:
	AnsiString FStr;
	
protected:
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Variant __fastcall GetValue();
public:
	#pragma option push -w-inl
	/* TfsCustomVariable.Create */ inline __fastcall TfsStringVariable(const AnsiString AName, TfsVarType ATyp, const AnsiString ATypeName) : TfsVariable(AName, ATyp, ATypeName) { }