fs_iinterpreter.hpp

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

	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsStringVariable(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfsParamItem : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
private:
	Variant FDefValue;
	bool FIsOptional;
	bool FIsVarParam;
	
public:
	__fastcall TfsParamItem(const AnsiString AName, TfsVarType ATyp, const AnsiString ATypeName, bool AIsOptional, bool AIsVarParam);
	__property Variant DefValue = {read=FDefValue, write=FDefValue};
	__property bool IsOptional = {read=FIsOptional, nodefault};
	__property bool IsVarParam = {read=FIsVarParam, nodefault};
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsParamItem(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfsProcVariable : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
private:
	bool FExecuting;
	bool FIsFunc;
	TfsScript* FProgram;
	
protected:
	virtual Variant __fastcall GetValue();
	
public:
	__fastcall TfsProcVariable(const AnsiString AName, TfsVarType ATyp, const AnsiString ATypeName, TfsScript* AParent, bool AIsFunc);
	__fastcall virtual ~TfsProcVariable(void);
	__property bool Executing = {read=FExecuting, nodefault};
	__property bool IsFunc = {read=FIsFunc, nodefault};
	__property TfsScript* Prog = {read=FProgram};
};


class PASCALIMPLEMENTATION TfsCustomExpression : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
public:
	#pragma option push -w-inl
	/* TfsCustomVariable.Create */ inline __fastcall TfsCustomExpression(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 ~TfsCustomExpression(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsCustomHelper;
class PASCALIMPLEMENTATION TfsCustomHelper : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
private:
	TfsCustomVariable* FParentRef;
	Variant FParentValue;
	TfsScript* FProgram;
	
public:
	__property TfsCustomVariable* ParentRef = {read=FParentRef, write=FParentRef};
	__property Variant ParentValue = {read=FParentValue, write=FParentValue};
	__property TfsScript* Prog = {read=FProgram, write=FProgram};
public:
	#pragma option push -w-inl
	/* TfsCustomVariable.Create */ inline __fastcall TfsCustomHelper(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 ~TfsCustomHelper(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsArrayHelper;
class PASCALIMPLEMENTATION TfsArrayHelper : public TfsCustomHelper 
{
	typedef TfsCustomHelper inherited;
	
protected:
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Variant __fastcall GetValue();
	
public:
	__fastcall TfsArrayHelper(const AnsiString AName, int DimCount, TfsVarType Typ, const AnsiString TypeName);
	__fastcall virtual ~TfsArrayHelper(void);
};


class DELPHICLASS TfsStringHelper;
class PASCALIMPLEMENTATION TfsStringHelper : public TfsCustomHelper 
{
	typedef TfsCustomHelper inherited;
	
protected:
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Variant __fastcall GetValue();
	
public:
	__fastcall TfsStringHelper(void);
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsStringHelper(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfsPropertyHelper : public TfsCustomHelper 
{
	typedef TfsCustomHelper inherited;
	
private:
	TMetaClass* FClassRef;
	bool FIsPublished;
	TfsGetValueEvent FOnGetValue;
	TfsSetValueEvent FOnSetValue;
	TfsGetValueNewEvent FOnGetValueNew;
	TfsSetValueNewEvent FOnSetValueNew;
	
protected:
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Variant __fastcall GetValue();
	
public:
	__property bool IsPublished = {read=FIsPublished, nodefault};
	__property TfsGetValueEvent OnGetValue = {read=FOnGetValue, write=FOnGetValue};
	__property TfsSetValueEvent OnSetValue = {read=FOnSetValue, write=FOnSetValue};
	__property TfsGetValueNewEvent OnGetValueNew = {read=FOnGetValueNew, write=FOnGetValueNew};
	__property TfsSetValueNewEvent OnSetValueNew = {read=FOnSetValueNew, write=FOnSetValueNew};
public:
	#pragma option push -w-inl
	/* TfsCustomVariable.Create */ inline __fastcall TfsPropertyHelper(const AnsiString AName, TfsVarType ATyp, const AnsiString ATypeName) : TfsCustomHelper(AName, ATyp, ATypeName) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsPropertyHelper(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfsMethodHelper : public TfsCustomHelper 
{
	typedef TfsCustomHelper inherited;
	
public:
	Variant operator[](int Index) { return Params[Index]; }
	
private:
	AnsiString FCategory;
	TMetaClass* FClassRef;
	AnsiString FDescription;
	bool FIndexMethod;
	TfsCallMethodEvent FOnCall;
	TfsCallMethodNewEvent FOnCallNew;
	Variant FSetValue;
	AnsiString FSyntax;
	Variant FVarArray;
	Variant __fastcall GetVParam(int Index);
	void __fastcall SetVParam(int Index, const Variant &Value);
	
protected:
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Variant __fastcall GetValue();
	
public:
	__fastcall TfsMethodHelper(const AnsiString Syntax, TfsScript* Script);
	__fastcall virtual ~TfsMethodHelper(void);
	__property AnsiString Category = {read=FCategory, write=FCategory};
	__property AnsiString Description = {read=FDescription, write=FDescription};
	__property bool IndexMethod = {read=FIndexMethod, nodefault};
	__property Variant Params[int Index] = {read=GetVParam, write=SetVParam/*, default*/};
	__property AnsiString Syntax = {read=FSyntax};
	__property TfsCallMethodEvent OnCall = {read=FOnCall, write=FOnCall};
	__property TfsCallMethodNewEvent OnCallNew = {read=FOnCallNew, write=FOnCallNew};
};


class DELPHICLASS TfsComponentHelper;
class PASCALIMPLEMENTATION TfsComponentHelper : public TfsCustomHelper 
{
	typedef TfsCustomHelper inherited;
	
private:
	Classes::TComponent* FComponent;
	
protected:
	virtual Variant __fastcall GetValue();
	
public:
	__fastcall TfsComponentHelper(Classes::TComponent* Component);
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsComponentHelper(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsCustomEvent;
class PASCALIMPLEMENTATION TfsCustomEvent : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TfsProcVariable* FHandler;
	System::TObject* FInstance;
	
protected:
	void __fastcall CallHandler(System::TVarRec * Params, const int Params_Size);
	
public:
	__fastcall virtual TfsCustomEvent(System::TObject* AObject, TfsProcVariable* AHandler);
	virtual void * __fastcall GetMethod(void) = 0 ;
	__property TfsProcVariable* Handler = {read=FHandler};
	__property System::TObject* Instance = {read=FInstance};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TfsCustomEvent(void) { }
	#pragma option pop
	
};


typedef TMetaClass* TfsEventClass;

class DELPHICLASS TfsEventHelper;
class PASCALIMPLEMENTATION TfsEventHelper : public TfsCustomHelper 
{
	typedef TfsCustomHelper inherited;
	
private:
	TMetaClass* FClassRef;
	TMetaClass* FEvent;
	
protected:
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Variant __fastcall GetValue();
	
public:
	__fastcall TfsEventHelper(const AnsiString Name, TMetaClass* AEvent);
public:
	#pragma option push -w-inl
	/* TfsItemList.Destroy */ inline __fastcall virtual ~TfsEventHelper(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfsClassVariable : public TfsCustomVariable 
{
	typedef TfsCustomVariable inherited;
	
private:
	AnsiString FAncestor;
	TMetaClass* FClassRef;
	TfsCustomHelper* FDefProperty;
	TfsItemList* FMembers;
	TfsScript* FProgram;
	void __fastcall AddComponent(Classes::TComponent* c);
	void __fastcall AddPublishedProperties(TMetaClass* AClass);
	TfsCustomHelper* __fastcall GetMembers(int Index);
	int __fastcall GetMembersCount(void);
	
protected:
	virtual Variant __fastcall GetValue();
	
public:
	__fastcall TfsClassVariable(TMetaClass* AClass, const AnsiString Ancestor);
	__fastcall virtual ~TfsClassVariable(void);
	void __fastcall AddConstructor(AnsiString Syntax, TfsCallMethodNewEvent CallEvent)/* overload */;
	void __fastcall AddConstructor(AnsiString Syntax, TfsCallMethodEvent CallEvent)/* overload */;
	void __fastcall AddProperty(const AnsiString Name, const AnsiString Typ, TfsGetValueEvent GetEvent, TfsSetValueEvent SetEvent = 0x0);
	void __fastcall AddPropertyEx(const AnsiString Name, const AnsiString Typ, TfsGetValueNewEvent GetEvent, TfsSetValueNewEvent SetEvent = 0x0);
	void __fastcall AddDefaultProperty(const AnsiString Name, const AnsiString Params, const AnsiString Typ, TfsCallMethodNewEvent CallEvent, bool AReadOnly = false)/* overload */;
	void __fastcall AddDefaultProperty(const AnsiString Name, const AnsiString Params, const AnsiString Typ, TfsCallMethodEvent CallEvent, bool AReadOnly = false)/* overload */;
	void __fastcall AddIndexProperty(const AnsiString Name, const AnsiString Params, const AnsiString Typ, TfsCallMethodNewEvent CallEvent, bool AReadOnly = false)/* overload */;
	void __fastcall AddIndexProperty(const AnsiString Name, const AnsiString Params, const AnsiString Typ, TfsCallMethodEvent CallEvent, bool AReadOnly = false)/* overload */;
	void __fastcall AddMethod(const AnsiString Syntax, TfsCallMethodNewEvent CallEvent)/* overload */;
	void __fastcall AddMethod(const AnsiString Syntax, TfsCallMethodEvent CallEvent)/* overload */;
	void __fastcall AddEvent(const AnsiString Name, TMetaClass* AEvent);
	TfsCustomHelper* __fastcall Find(const AnsiString Name);
	__property AnsiString Ancestor = {read=FAncestor};
	__property TMetaClass* ClassRef = {read=FClassRef};
	__property TfsCustomHelper* DefProperty = {read=FDefProperty};
	__property TfsCustomHelper* Members[int Index] = {read=GetMembers};
	__property int MembersCount = {read=GetMembersCount, nodefault};
};


class DELPHICLASS TfsVariableDesignator;
class PASCALIMPLEMENTATION TfsVariableDesignator : public TfsDesignator 
{
	typedef TfsDesignator inherited;
	
protected:
	virtual Variant __fastcall GetValue();
	virtual void __fastcall SetValue(const Variant &Value);
public:
	#pragma option push -w-inl
	/* TfsDesignator.Create */ inline __fastcall TfsVariableDesignator(TfsScript* AProgram) : TfsDesignator(AProgram) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TfsDesignator.Destroy */ inline __fastcall virtual ~TfsVariableDesignator(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsStringDesignator;
class PASCALIMPLEMENTATION TfsStringDesignator : public TfsDesignator 
{
	typedef TfsDesignator inherited;
	
protected:
	virtual Variant __fastcall GetValue();
	virtual void __fastcall SetValue(const Variant &Value);
public:
	#pragma option push -w-inl
	/* TfsDesignator.Create */ inline __fastcall TfsStringDesignator(TfsScript* AProgram) : TfsDesignator(AProgram) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TfsDesignator.Destroy */ inline __fastcall virtual ~TfsStringDesignator(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsArrayDesignator;
class PASCALIMPLEMENTATION TfsArrayDesignator : public TfsDesignator 
{
	typedef TfsDesignator inherited;
	
protected:
	virtual Variant __fastcall GetValue();
	virtual void __fastcall SetValue(const Variant &Value);
public:
	#pragma option push -w-inl
	/* TfsDesignator.Create */ inline __fastcall TfsArrayDesignator(TfsScript* AProgram) : TfsDesignator(AProgram) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TfsDesignator.Destroy */ inline __fastcall virtual ~TfsArrayDesignator(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfsRTTIModule;
class PASCALIMPLEMENTATION TfsRTTIModule : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TfsScript* FScript;
	
public:
	__fastcall virtual TfsRTTIModule(TfsScript* AScript);
	__property TfsScript* Script = {read=FScript};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TfsRTTIModule(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TfsScript* __fastcall fsGlobalUnit(void);
extern PACKAGE Classes::TList* __fastcall fsRTTIModules(void);

}	/* namespace Fs_iinterpreter */
using namespace Fs_iinterpreter;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Fs_iinterpreter