//---------------------------------------------------------------------------- // kparams.hpp - dcc32 generated hdr (DO NOT EDIT) rev: 0 // From: kparams.pas //---------------------------------------------------------------------------- #ifndef kparamsHPP #define kparamsHPP //---------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include #include namespace Kparams { //-- type declarations ------------------------------------------------------- class __declspec(delphiclass) TKParamList; class __declspec(pascalimplementation) TKParamList : public Inipara::TParamList { typedef Inipara::TParamList inherited; public: virtual Inipara::TParamValue* __fastcall NewParam( System::AnsiString &name); public: /* TParamList.Create */ __fastcall TKParamList(Classes::TComponent* AOwner) : Inipara::TParamList(AOwner ) { } public: /* TStringList.Destroy */ __fastcall virtual ~TKParamList(void) { } }; class __declspec(delphiclass) TParams; class __declspec(pascalimplementation) TParams : public Classes::TComponent { typedef Classes::TComponent inherited; private: System::AnsiString FValueIniName; System::AnsiString FValueSection; System::AnsiString FTypeIniName; Inipara::TFormParams* ParamForm; Inipara::TParamList* ParamList; protected: virtual void __fastcall SetValueIniName( System::AnsiString s); virtual void __fastcall SetValueSection( System::AnsiString s); virtual void __fastcall SetTypeIniName( System::AnsiString s); public: virtual Inipara::TParamList* __fastcall CreateParamList(Classes::TComponent* AOwner); __fastcall virtual ~TParams(void); virtual System::AnsiString __fastcall CreateList(void); virtual System::AnsiString __fastcall CreateList3( System::AnsiString typ, System::AnsiString val, System::AnsiString sec); __fastcall virtual TParams(Classes::TComponent* AOwner); virtual void __fastcall Edit(void); virtual Inipara::TParamValue* __fastcall NewParam( System::AnsiString &name); double __fastcall Get(const System::AnsiString name); int __fastcall GetIndex(const System::AnsiString name); double __fastcall ReadValue(int i); double __fastcall Value(int i); void __fastcall WriteValue(int i, double d); void __fastcall WriteBit(int i, int b, bool v); void __fastcall SetBit(int i, int b, bool v); bool __fastcall GetBit(int i, int b); bool __fastcall ReadBit(int i, int b); Inipara::TParamValue* __fastcall FindParam(const System::AnsiString name); double __fastcall ReadValueByName(const System::AnsiString name); __published: __property Inipara::TParamList* Params = {read=ParamList, nodefault}; __property System::AnsiString ValueIniName = {read=FValueIniName, write=SetValueIniName, nodefault} ; __property System::AnsiString ValueSection = {read=FValueSection, write=SetValueSection, nodefault} ; __property System::AnsiString TypeIniName = {read=FTypeIniName, write=SetTypeIniName, nodefault}; }; //-- var, const, procedure --------------------------------------------------- extern void __fastcall Register(void); } /* namespace Kparams */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Kparams; #endif //-- end unit ---------------------------------------------------------------- #endif // kparams