//---------------------------------------------------------------------------- // Param.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0 // From: Param.pas //---------------------------------------------------------------------------- #ifndef ParamHPP #define ParamHPP //---------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include namespace Param { //-- type declarations ------------------------------------------------------- class __declspec(delphiclass) EValueName; class __declspec(pascalimplementation) EValueName : public Sysutils::Exception { typedef Sysutils::Exception inherited; public: /* Exception.Create */ __fastcall EValueName(const System::AnsiString Msg) : Sysutils::Exception(Msg ) { } /* Exception.CreateFmt */ __fastcall EValueName(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { } /* Exception.CreateRes */ __fastcall EValueName(int Ident) : Sysutils::Exception(Ident) { } /* Exception.CreateResFmt */ __fastcall EValueName(int Ident, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { } /* Exception.CreateHelp */ __fastcall EValueName(const System::AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { } /* Exception.CreateFmtHelp */ __fastcall EValueName(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext ) { } /* Exception.CreateResHelp */ __fastcall EValueName(int Ident, int AHelpContext) : Sysutils::Exception( Ident, AHelpContext) { } /* Exception.CreateResFmtHelp */ __fastcall EValueName(int Ident, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { } public: /* TObject.Destroy */ __fastcall virtual ~EValueName(void) { } }; class __declspec(delphiclass) TParameter; class __declspec(pascalimplementation) TParameter : public Classes::TComponent { typedef Classes::TComponent inherited; private: Classes::TStringList* FParams; System::AnsiString FDir; System::AnsiString FFileName; System::AnsiString FExeName; System::AnsiString __fastcall GetParam(int Index); System::AnsiString __fastcall GetVString(const System::AnsiString Name); bool __fastcall GetVBool(const System::AnsiString Name); int __fastcall GetVInteger(const System::AnsiString Name); Graphics::TFontStyles __fastcall GetVFontStyle(const System::AnsiString Name); Extended __fastcall GetVExtend(const System::AnsiString Name); System::AnsiString __fastcall GetDir(void); System::AnsiString __fastcall GetFileName(void); System::AnsiString __fastcall GetFullName(void); System::AnsiString __fastcall GetExeName(void); void __fastcall SetParam(int Index, const System::AnsiString Value); void __fastcall SetVString(const System::AnsiString Name, const System::AnsiString Value); void __fastcall SetVBool(const System::AnsiString Name, bool Value); void __fastcall SetVInteger(const System::AnsiString Name, int Value); void __fastcall SetVFontStyle(const System::AnsiString Name, Graphics::TFontStyles Value); void __fastcall SetVExtend(const System::AnsiString Name, Extended Value); void __fastcall SetDir(const System::AnsiString Value); void __fastcall SetFileName(const System::AnsiString Value); void __fastcall SetExeName(const System::AnsiString Value); protected: virtual int __fastcall GetCount(void); public: __fastcall virtual TParameter(Classes::TComponent* AOwner); __fastcall virtual ~TParameter(void); virtual int __fastcall Add(const System::AnsiString S); int __fastcall IndexOfName(const System::AnsiString Name); virtual void __fastcall Init(void); virtual void __fastcall Clear(void); HIDESBASE virtual void __fastcall Insert(int Index, const System::AnsiString S); virtual void __fastcall Delete(int Index); virtual void __fastcall LoadFromFile(void); virtual void __fastcall SaveToFile(void); __property System::AnsiString Params[int Index] = {read=GetParam, write=SetParam}; __property System::AnsiString VStrings[System::AnsiString Name] = {read=GetVString, write=SetVString }; __property bool VBools[System::AnsiString Name] = {read=GetVBool, write=SetVBool}; __property int VIntegers[System::AnsiString Name] = {read=GetVInteger, write=SetVInteger/*, default */}; __property Graphics::TFontStyles VFontStyles[System::AnsiString Name] = {read=GetVFontStyle, write= SetVFontStyle}; __property Extended VExtends[System::AnsiString Name] = {read=GetVExtend, write=SetVExtend}; __published: __property System::AnsiString Dir = {read=GetDir, write=SetDir, nodefault}; __property System::AnsiString FileName = {read=GetFileName, write=SetFileName, nodefault}; __property System::AnsiString FullName = {read=GetFullName, nodefault}; __property System::AnsiString ExeName = {read=GetExeName, write=SetExeName, nodefault}; __property int Count = {read=GetCount, nodefault}; }; //-- var, const, procedure --------------------------------------------------- extern void __fastcall Register(void); } /* namespace Param */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Param; #endif //-- end unit ---------------------------------------------------------------- #endif // Param