home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / SYSUTILS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  53KB  |  1,048 lines
  1. //----------------------------------------------------------------------------
  2. // SysUtils.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: SysUtils.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef SysUtilsHPP
  6. #define SysUtilsHPP
  7. //----------------------------------------------------------------------------
  8. #include <Windows.hpp>
  9. #include <System.hpp>
  10. #pragma warn -par
  11. #pragma warn -hid 
  12. #pragma warn -inl
  13.  
  14. namespace Sysutils
  15. {
  16. //-- type declarations -------------------------------------------------------
  17. #pragma pack(push, 1)
  18. struct WordRec
  19. {
  20.     Byte Lo;
  21.     Byte Hi;
  22. } ;
  23. #pragma pack(pop)
  24.  
  25. #pragma pack(push, 1)
  26. struct LongRec
  27. {
  28.     Word Lo;
  29.     Word Hi;
  30. } ;
  31. #pragma pack(pop)
  32.  
  33. struct TMethod
  34. {
  35.     void *Code;
  36.     void *Data;
  37. } ;
  38.  
  39. typedef Byte TByteArray[32768];
  40.  
  41. typedef TByteArray *PByteArray;
  42.  
  43. typedef Word TWordArray[16384];
  44.  
  45. typedef TWordArray *PWordArray;
  46.  
  47. typedef void __fastcall (*TProcedure)(void);
  48.  
  49. typedef System::AnsiString TFileName;
  50.  
  51. struct TSearchRec
  52. {
  53.     int Time;
  54.     int Size;
  55.     int Attr;
  56.     System::AnsiString Name;
  57.     int ExcludeAttr;
  58.     int FindHandle;
  59.     WIN32_FIND_DATAA FindData;
  60. } ;
  61.  
  62. struct TFileRec
  63. {
  64.     int Handle;
  65.     int Mode;
  66.     Cardinal RecSize;
  67.     Byte Private[28];
  68.     Byte UserData[32];
  69.     char Name[260];
  70. } ;
  71.  
  72. typedef char TTextBuf[128];
  73.  
  74. typedef TTextBuf *PTextBuf;
  75.  
  76. struct TTextRec
  77. {
  78.     int Handle;
  79.     int Mode;
  80.     Cardinal BufSize;
  81.     Cardinal BufPos;
  82.     Cardinal BufEnd;
  83.     char *BufPtr;
  84.     void *OpenFunc;
  85.     void *InOutFunc;
  86.     void *FlushFunc;
  87.     void *CloseFunc;
  88.     Byte UserData[32];
  89.     char Name[260];
  90.     char Buffer[128];
  91. } ;
  92.  
  93. enum TFloatValue { fvExtended, fvCurrency };
  94.  
  95. enum TFloatFormat { ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency };
  96.  
  97. #pragma pack(push, 1)
  98. struct TFloatRec
  99. {
  100.     short Exponent;
  101.     bool Negative;
  102.     char Digits[21];
  103. } ;
  104. #pragma pack(pop)
  105.  
  106. struct TTimeStamp
  107. {
  108.     int Time;
  109.     int Date;
  110. } ;
  111.  
  112. enum TMbcsByteType { mbSingleByte, mbLeadByte, mbTrailByte };
  113.  
  114. #pragma pack(push, 1)
  115. struct TSysLocale
  116. {
  117.     int DefaultLCID;
  118.     Word PriLangID;
  119.     Word SubLangID;
  120.     bool FarEast;
  121. } ;
  122. #pragma pack(pop)
  123.  
  124. class __declspec(delphiclass) Exception;
  125. class __declspec(pascalimplementation) Exception : public System::TObject
  126. {
  127.     typedef System::TObject inherited;
  128.     
  129. private:
  130.     System::AnsiString FMessage;
  131.     int FHelpContext;
  132.     
  133. public:
  134.     __fastcall Exception(const System::AnsiString Msg);
  135.     __fastcall Exception(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size
  136.         );
  137.     __fastcall Exception(int Ident);
  138.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size);
  139.     __fastcall Exception(const System::AnsiString Msg, int AHelpContext);
  140.     __fastcall Exception(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size
  141.         , int AHelpContext);
  142.     __fastcall Exception(int Ident, int AHelpContext);
  143.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size, int AHelpContext
  144.         );
  145.     __property int HelpContext = {read=FHelpContext, write=FHelpContext, nodefault};
  146.     __property System::AnsiString Message = {read=FMessage, write=FMessage, nodefault};
  147. public:
  148.     /* TObject.Destroy */ __fastcall virtual ~Exception(void) { }
  149.     
  150. };
  151.  
  152. typedef System::TMetaClass*ExceptClass;
  153.  
  154. class __declspec(delphiclass) EAbort;
  155. class __declspec(pascalimplementation) EAbort : public Exception
  156. {
  157.     typedef Exception inherited;
  158.     
  159. public:
  160.     /* Exception.Create */ __fastcall EAbort(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
  161.         
  162.     /* Exception.CreateFmt */ __fastcall EAbort(const System::AnsiString Msg, const System::TVarRec * Args
  163.         , const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  164.     /* Exception.CreateRes */ __fastcall EAbort(int Ident) : Sysutils::Exception(Ident) { }
  165.     /* Exception.CreateResFmt */ __fastcall EAbort(int Ident, const System::TVarRec * Args, const int Args_Size
  166.         ) : Sysutils::Exception(Ident, Args, Args_Size) { }
  167.     /* Exception.CreateHelp */ __fastcall EAbort(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  168.         Exception(Msg, AHelpContext) { }
  169.     /* Exception.CreateFmtHelp */ __fastcall EAbort(const System::AnsiString Msg, const System::TVarRec 
  170.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  171.         ) { }
  172.     /* Exception.CreateResHelp */ __fastcall EAbort(int Ident, int AHelpContext) : Sysutils::Exception(
  173.         Ident, AHelpContext) { }
  174.     /* Exception.CreateResFmtHelp */ __fastcall EAbort(int Ident, const System::TVarRec * Args, const int 
  175.         Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  176.     
  177. public:
  178.     /* TObject.Destroy */ __fastcall virtual ~EAbort(void) { }
  179.     
  180. };
  181.  
  182. class __declspec(delphiclass) EOutOfMemory;
  183. class __declspec(pascalimplementation) EOutOfMemory : public Exception
  184. {
  185.     typedef Exception inherited;
  186.     
  187. public:
  188.     __fastcall virtual ~EOutOfMemory(void);
  189.     virtual void __fastcall FreeInstance(void);
  190. public:
  191.     /* Exception.Create */ __fastcall EOutOfMemory(const System::AnsiString Msg) : Sysutils::Exception(
  192.         Msg) { }
  193.     /* Exception.CreateFmt */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  194.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  195.     /* Exception.CreateRes */ __fastcall EOutOfMemory(int Ident) : Sysutils::Exception(Ident) { }
  196.     /* Exception.CreateResFmt */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  197.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  198.     /* Exception.CreateHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, int AHelpContext) : 
  199.         Sysutils::Exception(Msg, AHelpContext) { }
  200.     /* Exception.CreateFmtHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  201.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  202.         ) { }
  203.     /* Exception.CreateResHelp */ __fastcall EOutOfMemory(int Ident, int AHelpContext) : Sysutils::Exception(
  204.         Ident, AHelpContext) { }
  205.     /* Exception.CreateResFmtHelp */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  206.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  207.     
  208. };
  209.  
  210. class __declspec(delphiclass) EInOutError;
  211. class __declspec(pascalimplementation) EInOutError : public Exception
  212. {
  213.     typedef Exception inherited;
  214.     
  215. public:
  216.     int ErrorCode;
  217. public:
  218.     /* Exception.Create */ __fastcall EInOutError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  219.         ) { }
  220.     /* Exception.CreateFmt */ __fastcall EInOutError(const System::AnsiString Msg, const System::TVarRec 
  221.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  222.     /* Exception.CreateRes */ __fastcall EInOutError(int Ident) : Sysutils::Exception(Ident) { }
  223.     /* Exception.CreateResFmt */ __fastcall EInOutError(int Ident, const System::TVarRec * Args, const 
  224.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  225.     /* Exception.CreateHelp */ __fastcall EInOutError(const System::AnsiString Msg, int AHelpContext) : 
  226.         Sysutils::Exception(Msg, AHelpContext) { }
  227.     /* Exception.CreateFmtHelp */ __fastcall EInOutError(const System::AnsiString Msg, const System::TVarRec 
  228.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  229.         ) { }
  230.     /* Exception.CreateResHelp */ __fastcall EInOutError(int Ident, int AHelpContext) : Sysutils::Exception(
  231.         Ident, AHelpContext) { }
  232.     /* Exception.CreateResFmtHelp */ __fastcall EInOutError(int Ident, const System::TVarRec * Args, const 
  233.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  234.     
  235. public:
  236.     /* TObject.Destroy */ __fastcall virtual ~EInOutError(void) { }
  237.     
  238. };
  239.  
  240. class __declspec(delphiclass) EIntError;
  241. class __declspec(pascalimplementation) EIntError : public Exception
  242. {
  243.     typedef Exception inherited;
  244.     
  245. public:
  246.     /* Exception.Create */ __fastcall EIntError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  247.         ) { }
  248.     /* Exception.CreateFmt */ __fastcall EIntError(const System::AnsiString Msg, const System::TVarRec 
  249.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  250.     /* Exception.CreateRes */ __fastcall EIntError(int Ident) : Sysutils::Exception(Ident) { }
  251.     /* Exception.CreateResFmt */ __fastcall EIntError(int Ident, const System::TVarRec * Args, const int 
  252.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  253.     /* Exception.CreateHelp */ __fastcall EIntError(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  254.         Exception(Msg, AHelpContext) { }
  255.     /* Exception.CreateFmtHelp */ __fastcall EIntError(const System::AnsiString Msg, const System::TVarRec 
  256.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  257.         ) { }
  258.     /* Exception.CreateResHelp */ __fastcall EIntError(int Ident, int AHelpContext) : Sysutils::Exception(
  259.         Ident, AHelpContext) { }
  260.     /* Exception.CreateResFmtHelp */ __fastcall EIntError(int Ident, const System::TVarRec * Args, const 
  261.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  262.     
  263. public:
  264.     /* TObject.Destroy */ __fastcall virtual ~EIntError(void) { }
  265.     
  266. };
  267.  
  268. class __declspec(delphiclass) EDivByZero;
  269. class __declspec(pascalimplementation) EDivByZero : public EIntError
  270. {
  271.     typedef EIntError inherited;
  272.     
  273. public:
  274.     /* Exception.Create */ __fastcall EDivByZero(const System::AnsiString Msg) : Sysutils::EIntError(Msg
  275.         ) { }
  276.     /* Exception.CreateFmt */ __fastcall EDivByZero(const System::AnsiString Msg, const System::TVarRec 
  277.         * Args, const int Args_Size) : Sysutils::EIntError(Msg, Args, Args_Size) { }
  278.     /* Exception.CreateRes */ __fastcall EDivByZero(int Ident) : Sysutils::EIntError(Ident) { }
  279.     /* Exception.CreateResFmt */ __fastcall EDivByZero(int Ident, const System::TVarRec * Args, const int 
  280.         Args_Size) : Sysutils::EIntError(Ident, Args, Args_Size) { }
  281.     /* Exception.CreateHelp */ __fastcall EDivByZero(const System::AnsiString Msg, int AHelpContext) : 
  282.         Sysutils::EIntError(Msg, AHelpContext) { }
  283.     /* Exception.CreateFmtHelp */ __fastcall EDivByZero(const System::AnsiString Msg, const System::TVarRec 
  284.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EIntError(Msg, Args, Args_Size, AHelpContext
  285.         ) { }
  286.     /* Exception.CreateResHelp */ __fastcall EDivByZero(int Ident, int AHelpContext) : Sysutils::EIntError(
  287.         Ident, AHelpContext) { }
  288.     /* Exception.CreateResFmtHelp */ __fastcall EDivByZero(int Ident, const System::TVarRec * Args, const 
  289.         int Args_Size, int AHelpContext) : Sysutils::EIntError(Ident, Args, Args_Size, AHelpContext) { }
  290.     
  291. public:
  292.     /* TObject.Destroy */ __fastcall virtual ~EDivByZero(void) { }
  293.     
  294. };
  295.  
  296. class __declspec(delphiclass) ERangeError;
  297. class __declspec(pascalimplementation) ERangeError : public EIntError
  298. {
  299.     typedef EIntError inherited;
  300.     
  301. public:
  302.     /* Exception.Create */ __fastcall ERangeError(const System::AnsiString Msg) : Sysutils::EIntError(Msg
  303.         ) { }
  304.     /* Exception.CreateFmt */ __fastcall ERangeError(const System::AnsiString Msg, const System::TVarRec 
  305.         * Args, const int Args_Size) : Sysutils::EIntError(Msg, Args, Args_Size) { }
  306.     /* Exception.CreateRes */ __fastcall ERangeError(int Ident) : Sysutils::EIntError(Ident) { }
  307.     /* Exception.CreateResFmt */ __fastcall ERangeError(int Ident, const System::TVarRec * Args, const 
  308.         int Args_Size) : Sysutils::EIntError(Ident, Args, Args_Size) { }
  309.     /* Exception.CreateHelp */ __fastcall ERangeError(const System::AnsiString Msg, int AHelpContext) : 
  310.         Sysutils::EIntError(Msg, AHelpContext) { }
  311.     /* Exception.CreateFmtHelp */ __fastcall ERangeError(const System::AnsiString Msg, const System::TVarRec 
  312.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EIntError(Msg, Args, Args_Size, AHelpContext
  313.         ) { }
  314.     /* Exception.CreateResHelp */ __fastcall ERangeError(int Ident, int AHelpContext) : Sysutils::EIntError(
  315.         Ident, AHelpContext) { }
  316.     /* Exception.CreateResFmtHelp */ __fastcall ERangeError(int Ident, const System::TVarRec * Args, const 
  317.         int Args_Size, int AHelpContext) : Sysutils::EIntError(Ident, Args, Args_Size, AHelpContext) { }
  318.     
  319. public:
  320.     /* TObject.Destroy */ __fastcall virtual ~ERangeError(void) { }
  321.     
  322. };
  323.  
  324. class __declspec(delphiclass) EIntOverflow;
  325. class __declspec(pascalimplementation) EIntOverflow : public EIntError
  326. {
  327.     typedef EIntError inherited;
  328.     
  329. public:
  330.     /* Exception.Create */ __fastcall EIntOverflow(const System::AnsiString Msg) : Sysutils::EIntError(
  331.         Msg) { }
  332.     /* Exception.CreateFmt */ __fastcall EIntOverflow(const System::AnsiString Msg, const System::TVarRec 
  333.         * Args, const int Args_Size) : Sysutils::EIntError(Msg, Args, Args_Size) { }
  334.     /* Exception.CreateRes */ __fastcall EIntOverflow(int Ident) : Sysutils::EIntError(Ident) { }
  335.     /* Exception.CreateResFmt */ __fastcall EIntOverflow(int Ident, const System::TVarRec * Args, const 
  336.         int Args_Size) : Sysutils::EIntError(Ident, Args, Args_Size) { }
  337.     /* Exception.CreateHelp */ __fastcall EIntOverflow(const System::AnsiString Msg, int AHelpContext) : 
  338.         Sysutils::EIntError(Msg, AHelpContext) { }
  339.     /* Exception.CreateFmtHelp */ __fastcall EIntOverflow(const System::AnsiString Msg, const System::TVarRec 
  340.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EIntError(Msg, Args, Args_Size, AHelpContext
  341.         ) { }
  342.     /* Exception.CreateResHelp */ __fastcall EIntOverflow(int Ident, int AHelpContext) : Sysutils::EIntError(
  343.         Ident, AHelpContext) { }
  344.     /* Exception.CreateResFmtHelp */ __fastcall EIntOverflow(int Ident, const System::TVarRec * Args, const 
  345.         int Args_Size, int AHelpContext) : Sysutils::EIntError(Ident, Args, Args_Size, AHelpContext) { }
  346.     
  347. public:
  348.     /* TObject.Destroy */ __fastcall virtual ~EIntOverflow(void) { }
  349.     
  350. };
  351.  
  352. class __declspec(delphiclass) EMathError;
  353. class __declspec(pascalimplementation) EMathError : public Exception
  354. {
  355.     typedef Exception inherited;
  356.     
  357. public:
  358.     /* Exception.Create */ __fastcall EMathError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  359.         ) { }
  360.     /* Exception.CreateFmt */ __fastcall EMathError(const System::AnsiString Msg, const System::TVarRec 
  361.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  362.     /* Exception.CreateRes */ __fastcall EMathError(int Ident) : Sysutils::Exception(Ident) { }
  363.     /* Exception.CreateResFmt */ __fastcall EMathError(int Ident, const System::TVarRec * Args, const int 
  364.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  365.     /* Exception.CreateHelp */ __fastcall EMathError(const System::AnsiString Msg, int AHelpContext) : 
  366.         Sysutils::Exception(Msg, AHelpContext) { }
  367.     /* Exception.CreateFmtHelp */ __fastcall EMathError(const System::AnsiString Msg, const System::TVarRec 
  368.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  369.         ) { }
  370.     /* Exception.CreateResHelp */ __fastcall EMathError(int Ident, int AHelpContext) : Sysutils::Exception(
  371.         Ident, AHelpContext) { }
  372.     /* Exception.CreateResFmtHelp */ __fastcall EMathError(int Ident, const System::TVarRec * Args, const 
  373.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  374.     
  375. public:
  376.     /* TObject.Destroy */ __fastcall virtual ~EMathError(void) { }
  377.     
  378. };
  379.  
  380. class __declspec(delphiclass) EInvalidOp;
  381. class __declspec(pascalimplementation) EInvalidOp : public EMathError
  382. {
  383.     typedef EMathError inherited;
  384.     
  385. public:
  386.     /* Exception.Create */ __fastcall EInvalidOp(const System::AnsiString Msg) : Sysutils::EMathError(Msg
  387.         ) { }
  388.     /* Exception.CreateFmt */ __fastcall EInvalidOp(const System::AnsiString Msg, const System::TVarRec 
  389.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  390.     /* Exception.CreateRes */ __fastcall EInvalidOp(int Ident) : Sysutils::EMathError(Ident) { }
  391.     /* Exception.CreateResFmt */ __fastcall EInvalidOp(int Ident, const System::TVarRec * Args, const int 
  392.         Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  393.     /* Exception.CreateHelp */ __fastcall EInvalidOp(const System::AnsiString Msg, int AHelpContext) : 
  394.         Sysutils::EMathError(Msg, AHelpContext) { }
  395.     /* Exception.CreateFmtHelp */ __fastcall EInvalidOp(const System::AnsiString Msg, const System::TVarRec 
  396.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  397.         ) { }
  398.     /* Exception.CreateResHelp */ __fastcall EInvalidOp(int Ident, int AHelpContext) : Sysutils::EMathError(
  399.         Ident, AHelpContext) { }
  400.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidOp(int Ident, const System::TVarRec * Args, const 
  401.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  402.     
  403. public:
  404.     /* TObject.Destroy */ __fastcall virtual ~EInvalidOp(void) { }
  405.     
  406. };
  407.  
  408. class __declspec(delphiclass) EZeroDivide;
  409. class __declspec(pascalimplementation) EZeroDivide : public EMathError
  410. {
  411.     typedef EMathError inherited;
  412.     
  413. public:
  414.     /* Exception.Create */ __fastcall EZeroDivide(const System::AnsiString Msg) : Sysutils::EMathError(
  415.         Msg) { }
  416.     /* Exception.CreateFmt */ __fastcall EZeroDivide(const System::AnsiString Msg, const System::TVarRec 
  417.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  418.     /* Exception.CreateRes */ __fastcall EZeroDivide(int Ident) : Sysutils::EMathError(Ident) { }
  419.     /* Exception.CreateResFmt */ __fastcall EZeroDivide(int Ident, const System::TVarRec * Args, const 
  420.         int Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  421.     /* Exception.CreateHelp */ __fastcall EZeroDivide(const System::AnsiString Msg, int AHelpContext) : 
  422.         Sysutils::EMathError(Msg, AHelpContext) { }
  423.     /* Exception.CreateFmtHelp */ __fastcall EZeroDivide(const System::AnsiString Msg, const System::TVarRec 
  424.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  425.         ) { }
  426.     /* Exception.CreateResHelp */ __fastcall EZeroDivide(int Ident, int AHelpContext) : Sysutils::EMathError(
  427.         Ident, AHelpContext) { }
  428.     /* Exception.CreateResFmtHelp */ __fastcall EZeroDivide(int Ident, const System::TVarRec * Args, const 
  429.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  430.     
  431. public:
  432.     /* TObject.Destroy */ __fastcall virtual ~EZeroDivide(void) { }
  433.     
  434. };
  435.  
  436. class __declspec(delphiclass) EOverflow;
  437. class __declspec(pascalimplementation) EOverflow : public EMathError
  438. {
  439.     typedef EMathError inherited;
  440.     
  441. public:
  442.     /* Exception.Create */ __fastcall EOverflow(const System::AnsiString Msg) : Sysutils::EMathError(Msg
  443.         ) { }
  444.     /* Exception.CreateFmt */ __fastcall EOverflow(const System::AnsiString Msg, const System::TVarRec 
  445.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  446.     /* Exception.CreateRes */ __fastcall EOverflow(int Ident) : Sysutils::EMathError(Ident) { }
  447.     /* Exception.CreateResFmt */ __fastcall EOverflow(int Ident, const System::TVarRec * Args, const int 
  448.         Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  449.     /* Exception.CreateHelp */ __fastcall EOverflow(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  450.         EMathError(Msg, AHelpContext) { }
  451.     /* Exception.CreateFmtHelp */ __fastcall EOverflow(const System::AnsiString Msg, const System::TVarRec 
  452.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  453.         ) { }
  454.     /* Exception.CreateResHelp */ __fastcall EOverflow(int Ident, int AHelpContext) : Sysutils::EMathError(
  455.         Ident, AHelpContext) { }
  456.     /* Exception.CreateResFmtHelp */ __fastcall EOverflow(int Ident, const System::TVarRec * Args, const 
  457.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  458.     
  459. public:
  460.     /* TObject.Destroy */ __fastcall virtual ~EOverflow(void) { }
  461.     
  462. };
  463.  
  464. class __declspec(delphiclass) EUnderflow;
  465. class __declspec(pascalimplementation) EUnderflow : public EMathError
  466. {
  467.     typedef EMathError inherited;
  468.     
  469. public:
  470.     /* Exception.Create */ __fastcall EUnderflow(const System::AnsiString Msg) : Sysutils::EMathError(Msg
  471.         ) { }
  472.     /* Exception.CreateFmt */ __fastcall EUnderflow(const System::AnsiString Msg, const System::TVarRec 
  473.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  474.     /* Exception.CreateRes */ __fastcall EUnderflow(int Ident) : Sysutils::EMathError(Ident) { }
  475.     /* Exception.CreateResFmt */ __fastcall EUnderflow(int Ident, const System::TVarRec * Args, const int 
  476.         Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  477.     /* Exception.CreateHelp */ __fastcall EUnderflow(const System::AnsiString Msg, int AHelpContext) : 
  478.         Sysutils::EMathError(Msg, AHelpContext) { }
  479.     /* Exception.CreateFmtHelp */ __fastcall EUnderflow(const System::AnsiString Msg, const System::TVarRec 
  480.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  481.         ) { }
  482.     /* Exception.CreateResHelp */ __fastcall EUnderflow(int Ident, int AHelpContext) : Sysutils::EMathError(
  483.         Ident, AHelpContext) { }
  484.     /* Exception.CreateResFmtHelp */ __fastcall EUnderflow(int Ident, const System::TVarRec * Args, const 
  485.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  486.     
  487. public:
  488.     /* TObject.Destroy */ __fastcall virtual ~EUnderflow(void) { }
  489.     
  490. };
  491.  
  492. class __declspec(delphiclass) EInvalidPointer;
  493. class __declspec(pascalimplementation) EInvalidPointer : public Exception
  494. {
  495.     typedef Exception inherited;
  496.     
  497. public:
  498.     /* Exception.Create */ __fastcall EInvalidPointer(const System::AnsiString Msg) : Sysutils::Exception(
  499.         Msg) { }
  500.     /* Exception.CreateFmt */ __fastcall EInvalidPointer(const System::AnsiString Msg, const System::TVarRec 
  501.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  502.     /* Exception.CreateRes */ __fastcall EInvalidPointer(int Ident) : Sysutils::Exception(Ident) { }
  503.     /* Exception.CreateResFmt */ __fastcall EInvalidPointer(int Ident, const System::TVarRec * Args, const 
  504.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  505.     /* Exception.CreateHelp */ __fastcall EInvalidPointer(const System::AnsiString Msg, int AHelpContext
  506.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  507.     /* Exception.CreateFmtHelp */ __fastcall EInvalidPointer(const System::AnsiString Msg, const System::TVarRec 
  508.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  509.         ) { }
  510.     /* Exception.CreateResHelp */ __fastcall EInvalidPointer(int Ident, int AHelpContext) : Sysutils::Exception(
  511.         Ident, AHelpContext) { }
  512.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidPointer(int Ident, const System::TVarRec * Args
  513.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  514.         ) { }
  515.     
  516. public:
  517.     /* TObject.Destroy */ __fastcall virtual ~EInvalidPointer(void) { }
  518.     
  519. };
  520.  
  521. class __declspec(delphiclass) EInvalidCast;
  522. class __declspec(pascalimplementation) EInvalidCast : public Exception
  523. {
  524.     typedef Exception inherited;
  525.     
  526. public:
  527.     /* Exception.Create */ __fastcall EInvalidCast(const System::AnsiString Msg) : Sysutils::Exception(
  528.         Msg) { }
  529.     /* Exception.CreateFmt */ __fastcall EInvalidCast(const System::AnsiString Msg, const System::TVarRec 
  530.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  531.     /* Exception.CreateRes */ __fastcall EInvalidCast(int Ident) : Sysutils::Exception(Ident) { }
  532.     /* Exception.CreateResFmt */ __fastcall EInvalidCast(int Ident, const System::TVarRec * Args, const 
  533.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  534.     /* Exception.CreateHelp */ __fastcall EInvalidCast(const System::AnsiString Msg, int AHelpContext) : 
  535.         Sysutils::Exception(Msg, AHelpContext) { }
  536.     /* Exception.CreateFmtHelp */ __fastcall EInvalidCast(const System::AnsiString Msg, const System::TVarRec 
  537.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  538.         ) { }
  539.     /* Exception.CreateResHelp */ __fastcall EInvalidCast(int Ident, int AHelpContext) : Sysutils::Exception(
  540.         Ident, AHelpContext) { }
  541.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidCast(int Ident, const System::TVarRec * Args, const 
  542.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  543.     
  544. public:
  545.     /* TObject.Destroy */ __fastcall virtual ~EInvalidCast(void) { }
  546.     
  547. };
  548.  
  549. class __declspec(delphiclass) EConvertError;
  550. class __declspec(pascalimplementation) EConvertError : public Exception
  551. {
  552.     typedef Exception inherited;
  553.     
  554. public:
  555.     /* Exception.Create */ __fastcall EConvertError(const System::AnsiString Msg) : Sysutils::Exception(
  556.         Msg) { }
  557.     /* Exception.CreateFmt */ __fastcall EConvertError(const System::AnsiString Msg, const System::TVarRec 
  558.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  559.     /* Exception.CreateRes */ __fastcall EConvertError(int Ident) : Sysutils::Exception(Ident) { }
  560.     /* Exception.CreateResFmt */ __fastcall EConvertError(int Ident, const System::TVarRec * Args, const 
  561.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  562.     /* Exception.CreateHelp */ __fastcall EConvertError(const System::AnsiString Msg, int AHelpContext)
  563.          : Sysutils::Exception(Msg, AHelpContext) { }
  564.     /* Exception.CreateFmtHelp */ __fastcall EConvertError(const System::AnsiString Msg, const System::TVarRec 
  565.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  566.         ) { }
  567.     /* Exception.CreateResHelp */ __fastcall EConvertError(int Ident, int AHelpContext) : Sysutils::Exception(
  568.         Ident, AHelpContext) { }
  569.     /* Exception.CreateResFmtHelp */ __fastcall EConvertError(int Ident, const System::TVarRec * Args, 
  570.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  571.          { }
  572.     
  573. public:
  574.     /* TObject.Destroy */ __fastcall virtual ~EConvertError(void) { }
  575.     
  576. };
  577.  
  578. class __declspec(delphiclass) EAccessViolation;
  579. class __declspec(pascalimplementation) EAccessViolation : public Exception
  580. {
  581.     typedef Exception inherited;
  582.     
  583. public:
  584.     /* Exception.Create */ __fastcall EAccessViolation(const System::AnsiString Msg) : Sysutils::Exception(
  585.         Msg) { }
  586.     /* Exception.CreateFmt */ __fastcall EAccessViolation(const System::AnsiString Msg, const System::TVarRec 
  587.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  588.     /* Exception.CreateRes */ __fastcall EAccessViolation(int Ident) : Sysutils::Exception(Ident) { }
  589.     /* Exception.CreateResFmt */ __fastcall EAccessViolation(int Ident, const System::TVarRec * Args, const 
  590.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  591.     /* Exception.CreateHelp */ __fastcall EAccessViolation(const System::AnsiString Msg, int AHelpContext
  592.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  593.     /* Exception.CreateFmtHelp */ __fastcall EAccessViolation(const System::AnsiString Msg, const System::TVarRec 
  594.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  595.         ) { }
  596.     /* Exception.CreateResHelp */ __fastcall EAccessViolation(int Ident, int AHelpContext) : Sysutils::
  597.         Exception(Ident, AHelpContext) { }
  598.     /* Exception.CreateResFmtHelp */ __fastcall EAccessViolation(int Ident, const System::TVarRec * Args
  599.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  600.         ) { }
  601.     
  602. public:
  603.     /* TObject.Destroy */ __fastcall virtual ~EAccessViolation(void) { }
  604.     
  605. };
  606.  
  607. class __declspec(delphiclass) EPrivilege;
  608. class __declspec(pascalimplementation) EPrivilege : public Exception
  609. {
  610.     typedef Exception inherited;
  611.     
  612. public:
  613.     /* Exception.Create */ __fastcall EPrivilege(const System::AnsiString Msg) : Sysutils::Exception(Msg
  614.         ) { }
  615.     /* Exception.CreateFmt */ __fastcall EPrivilege(const System::AnsiString Msg, const System::TVarRec 
  616.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  617.     /* Exception.CreateRes */ __fastcall EPrivilege(int Ident) : Sysutils::Exception(Ident) { }
  618.     /* Exception.CreateResFmt */ __fastcall EPrivilege(int Ident, const System::TVarRec * Args, const int 
  619.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  620.     /* Exception.CreateHelp */ __fastcall EPrivilege(const System::AnsiString Msg, int AHelpContext) : 
  621.         Sysutils::Exception(Msg, AHelpContext) { }
  622.     /* Exception.CreateFmtHelp */ __fastcall EPrivilege(const System::AnsiString Msg, const System::TVarRec 
  623.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  624.         ) { }
  625.     /* Exception.CreateResHelp */ __fastcall EPrivilege(int Ident, int AHelpContext) : Sysutils::Exception(
  626.         Ident, AHelpContext) { }
  627.     /* Exception.CreateResFmtHelp */ __fastcall EPrivilege(int Ident, const System::TVarRec * Args, const 
  628.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  629.     
  630. public:
  631.     /* TObject.Destroy */ __fastcall virtual ~EPrivilege(void) { }
  632.     
  633. };
  634.  
  635. class __declspec(delphiclass) EStackOverflow;
  636. class __declspec(pascalimplementation) EStackOverflow : public Exception
  637. {
  638.     typedef Exception inherited;
  639.     
  640. public:
  641.     /* Exception.Create */ __fastcall EStackOverflow(const System::AnsiString Msg) : Sysutils::Exception(
  642.         Msg) { }
  643.     /* Exception.CreateFmt */ __fastcall EStackOverflow(const System::AnsiString Msg, const System::TVarRec 
  644.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  645.     /* Exception.CreateRes */ __fastcall EStackOverflow(int Ident) : Sysutils::Exception(Ident) { }
  646.     /* Exception.CreateResFmt */ __fastcall EStackOverflow(int Ident, const System::TVarRec * Args, const 
  647.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  648.     /* Exception.CreateHelp */ __fastcall EStackOverflow(const System::AnsiString Msg, int AHelpContext
  649.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  650.     /* Exception.CreateFmtHelp */ __fastcall EStackOverflow(const System::AnsiString Msg, const System::TVarRec 
  651.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  652.         ) { }
  653.     /* Exception.CreateResHelp */ __fastcall EStackOverflow(int Ident, int AHelpContext) : Sysutils::Exception(
  654.         Ident, AHelpContext) { }
  655.     /* Exception.CreateResFmtHelp */ __fastcall EStackOverflow(int Ident, const System::TVarRec * Args, 
  656.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  657.          { }
  658.     
  659. public:
  660.     /* TObject.Destroy */ __fastcall virtual ~EStackOverflow(void) { }
  661.     
  662. };
  663.  
  664. class __declspec(delphiclass) EControlC;
  665. class __declspec(pascalimplementation) EControlC : public Exception
  666. {
  667.     typedef Exception inherited;
  668.     
  669. public:
  670.     /* Exception.Create */ __fastcall EControlC(const System::AnsiString Msg) : Sysutils::Exception(Msg
  671.         ) { }
  672.     /* Exception.CreateFmt */ __fastcall EControlC(const System::AnsiString Msg, const System::TVarRec 
  673.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  674.     /* Exception.CreateRes */ __fastcall EControlC(int Ident) : Sysutils::Exception(Ident) { }
  675.     /* Exception.CreateResFmt */ __fastcall EControlC(int Ident, const System::TVarRec * Args, const int 
  676.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  677.     /* Exception.CreateHelp */ __fastcall EControlC(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  678.         Exception(Msg, AHelpContext) { }
  679.     /* Exception.CreateFmtHelp */ __fastcall EControlC(const System::AnsiString Msg, const System::TVarRec 
  680.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  681.         ) { }
  682.     /* Exception.CreateResHelp */ __fastcall EControlC(int Ident, int AHelpContext) : Sysutils::Exception(
  683.         Ident, AHelpContext) { }
  684.     /* Exception.CreateResFmtHelp */ __fastcall EControlC(int Ident, const System::TVarRec * Args, const 
  685.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  686.     
  687. public:
  688.     /* TObject.Destroy */ __fastcall virtual ~EControlC(void) { }
  689.     
  690. };
  691.  
  692. class __declspec(delphiclass) EVariantError;
  693. class __declspec(pascalimplementation) EVariantError : public Exception
  694. {
  695.     typedef Exception inherited;
  696.     
  697. public:
  698.     /* Exception.Create */ __fastcall EVariantError(const System::AnsiString Msg) : Sysutils::Exception(
  699.         Msg) { }
  700.     /* Exception.CreateFmt */ __fastcall EVariantError(const System::AnsiString Msg, const System::TVarRec 
  701.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  702.     /* Exception.CreateRes */ __fastcall EVariantError(int Ident) : Sysutils::Exception(Ident) { }
  703.     /* Exception.CreateResFmt */ __fastcall EVariantError(int Ident, const System::TVarRec * Args, const 
  704.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  705.     /* Exception.CreateHelp */ __fastcall EVariantError(const System::AnsiString Msg, int AHelpContext)
  706.          : Sysutils::Exception(Msg, AHelpContext) { }
  707.     /* Exception.CreateFmtHelp */ __fastcall EVariantError(const System::AnsiString Msg, const System::TVarRec 
  708.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  709.         ) { }
  710.     /* Exception.CreateResHelp */ __fastcall EVariantError(int Ident, int AHelpContext) : Sysutils::Exception(
  711.         Ident, AHelpContext) { }
  712.     /* Exception.CreateResFmtHelp */ __fastcall EVariantError(int Ident, const System::TVarRec * Args, 
  713.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  714.          { }
  715.     
  716. public:
  717.     /* TObject.Destroy */ __fastcall virtual ~EVariantError(void) { }
  718.     
  719. };
  720.  
  721. class __declspec(delphiclass) EPropReadOnly;
  722. class __declspec(pascalimplementation) EPropReadOnly : public Exception
  723. {
  724.     typedef Exception inherited;
  725.     
  726. public:
  727.     /* Exception.Create */ __fastcall EPropReadOnly(const System::AnsiString Msg) : Sysutils::Exception(
  728.         Msg) { }
  729.     /* Exception.CreateFmt */ __fastcall EPropReadOnly(const System::AnsiString Msg, const System::TVarRec 
  730.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  731.     /* Exception.CreateRes */ __fastcall EPropReadOnly(int Ident) : Sysutils::Exception(Ident) { }
  732.     /* Exception.CreateResFmt */ __fastcall EPropReadOnly(int Ident, const System::TVarRec * Args, const 
  733.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  734.     /* Exception.CreateHelp */ __fastcall EPropReadOnly(const System::AnsiString Msg, int AHelpContext)
  735.          : Sysutils::Exception(Msg, AHelpContext) { }
  736.     /* Exception.CreateFmtHelp */ __fastcall EPropReadOnly(const System::AnsiString Msg, const System::TVarRec 
  737.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  738.         ) { }
  739.     /* Exception.CreateResHelp */ __fastcall EPropReadOnly(int Ident, int AHelpContext) : Sysutils::Exception(
  740.         Ident, AHelpContext) { }
  741.     /* Exception.CreateResFmtHelp */ __fastcall EPropReadOnly(int Ident, const System::TVarRec * Args, 
  742.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  743.          { }
  744.     
  745. public:
  746.     /* TObject.Destroy */ __fastcall virtual ~EPropReadOnly(void) { }
  747.     
  748. };
  749.  
  750. class __declspec(delphiclass) EPropWriteOnly;
  751. class __declspec(pascalimplementation) EPropWriteOnly : public Exception
  752. {
  753.     typedef Exception inherited;
  754.     
  755. public:
  756.     /* Exception.Create */ __fastcall EPropWriteOnly(const System::AnsiString Msg) : Sysutils::Exception(
  757.         Msg) { }
  758.     /* Exception.CreateFmt */ __fastcall EPropWriteOnly(const System::AnsiString Msg, const System::TVarRec 
  759.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  760.     /* Exception.CreateRes */ __fastcall EPropWriteOnly(int Ident) : Sysutils::Exception(Ident) { }
  761.     /* Exception.CreateResFmt */ __fastcall EPropWriteOnly(int Ident, const System::TVarRec * Args, const 
  762.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  763.     /* Exception.CreateHelp */ __fastcall EPropWriteOnly(const System::AnsiString Msg, int AHelpContext
  764.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  765.     /* Exception.CreateFmtHelp */ __fastcall EPropWriteOnly(const System::AnsiString Msg, const System::TVarRec 
  766.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  767.         ) { }
  768.     /* Exception.CreateResHelp */ __fastcall EPropWriteOnly(int Ident, int AHelpContext) : Sysutils::Exception(
  769.         Ident, AHelpContext) { }
  770.     /* Exception.CreateResFmtHelp */ __fastcall EPropWriteOnly(int Ident, const System::TVarRec * Args, 
  771.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  772.          { }
  773.     
  774. public:
  775.     /* TObject.Destroy */ __fastcall virtual ~EPropWriteOnly(void) { }
  776.     
  777. };
  778.  
  779. class __declspec(delphiclass) EExternalException;
  780. class __declspec(pascalimplementation) EExternalException : public Exception
  781. {
  782.     typedef Exception inherited;
  783.     
  784. public:
  785.     EXCEPTION_RECORD *ExceptionRecord;
  786. public:
  787.     /* Exception.Create */ __fastcall EExternalException(const System::AnsiString Msg) : Sysutils::Exception(
  788.         Msg) { }
  789.     /* Exception.CreateFmt */ __fastcall EExternalException(const System::AnsiString Msg, const System::TVarRec 
  790.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  791.     /* Exception.CreateRes */ __fastcall EExternalException(int Ident) : Sysutils::Exception(Ident) { }
  792.         
  793.     /* Exception.CreateResFmt */ __fastcall EExternalException(int Ident, const System::TVarRec * Args, 
  794.         const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  795.     /* Exception.CreateHelp */ __fastcall EExternalException(const System::AnsiString Msg, int AHelpContext
  796.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  797.     /* Exception.CreateFmtHelp */ __fastcall EExternalException(const System::AnsiString Msg, const System::TVarRec 
  798.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  799.         ) { }
  800.     /* Exception.CreateResHelp */ __fastcall EExternalException(int Ident, int AHelpContext) : Sysutils::
  801.         Exception(Ident, AHelpContext) { }
  802.     /* Exception.CreateResFmtHelp */ __fastcall EExternalException(int Ident, const System::TVarRec * Args
  803.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  804.         ) { }
  805.     
  806. public:
  807.     /* TObject.Destroy */ __fastcall virtual ~EExternalException(void) { }
  808.     
  809. };
  810.  
  811. //-- var, const, procedure ---------------------------------------------------
  812. #define fmOpenRead (Byte)(0)
  813. #define fmOpenWrite (Byte)(1)
  814. #define fmOpenReadWrite (Byte)(2)
  815. #define fmShareCompat (Byte)(0)
  816. #define fmShareExclusive (Byte)(16)
  817. #define fmShareDenyWrite (Byte)(32)
  818. #define fmShareDenyRead (Byte)(48)
  819. #define fmShareDenyNone (Byte)(64)
  820. #define faReadOnly (Byte)(1)
  821. #define faHidden (Byte)(2)
  822. #define faSysFile (Byte)(4)
  823. #define faVolumeID (Byte)(8)
  824. #define faDirectory (Byte)(16)
  825. #define faArchive (Byte)(32)
  826. #define faAnyFile (Byte)(63)
  827. #define fmClosed (int)(55216)
  828. #define fmInput (int)(55217)
  829. #define fmOutput (int)(55218)
  830. #define fmInOut (int)(55219)
  831. #define SecsPerDay (int)(86400)
  832. #define MSecsPerDay (int)(86400000)
  833. #define DateDelta (int)(693594)
  834. extern System::AnsiString EmptyStr;
  835. extern System::AnsiString *NullStr;
  836. extern int Win32Platform;
  837. extern System::AnsiString CurrencyString;
  838. extern Byte CurrencyFormat;
  839. extern Byte NegCurrFormat;
  840. extern char ThousandSeparator;
  841. extern char DecimalSeparator;
  842. extern Byte CurrencyDecimals;
  843. extern char DateSeparator;
  844. extern System::AnsiString ShortDateFormat;
  845. extern System::AnsiString LongDateFormat;
  846. extern char TimeSeparator;
  847. extern System::AnsiString TimeAMString;
  848. extern System::AnsiString TimePMString;
  849. extern System::AnsiString ShortTimeFormat;
  850. extern System::AnsiString LongTimeFormat;
  851. extern System::AnsiString ShortMonthNames[12];
  852. extern System::AnsiString LongMonthNames[12];
  853. extern System::AnsiString ShortDayNames[7];
  854. extern System::AnsiString LongDayNames[7];
  855. extern TSysLocale SysLocale;
  856. //extern System::Set<Byte, 0, 255>  LeadBytes;
  857. extern void * __fastcall AllocMem(Cardinal Size);
  858. extern void __fastcall AddExitProc(TProcedure Proc);
  859. extern System::PAnsiString __fastcall NewStr(const System::AnsiString S);
  860. extern void __fastcall DisposeStr(System::PAnsiString P);
  861. extern void __fastcall AssignStr(System::PAnsiString &P, const System::AnsiString S);
  862. extern void __fastcall AppendStr( System::AnsiString &Dest, const System::AnsiString S);
  863. extern System::AnsiString __fastcall UpperCase(const System::AnsiString S);
  864. extern System::AnsiString __fastcall LowerCase(const System::AnsiString S);
  865. extern int __fastcall CompareStr(const System::AnsiString S1, const System::AnsiString S2);
  866. extern int __fastcall CompareText(const System::AnsiString S1, const System::AnsiString S2);
  867. extern System::AnsiString __fastcall AnsiUpperCase(const System::AnsiString S);
  868. extern System::AnsiString __fastcall AnsiLowerCase(const System::AnsiString S);
  869. extern int __fastcall AnsiCompareStr(const System::AnsiString S1, const System::AnsiString S2);
  870. extern int __fastcall AnsiCompareText(const System::AnsiString S1, const System::AnsiString S2);
  871. extern int __fastcall AnsiStrComp(char * S1, char * S2);
  872. extern int __fastcall AnsiStrIComp(char * S1, char * S2);
  873. extern int __fastcall AnsiStrLComp(char * S1, char * S2, Cardinal MaxLen);
  874. extern int __fastcall AnsiStrLIComp(char * S1, char * S2, Cardinal MaxLen);
  875. extern char * __fastcall AnsiStrLower(char * Str);
  876. extern char * __fastcall AnsiStrUpper(char * Str);
  877. extern System::AnsiString __fastcall Trim(const System::AnsiString S);
  878. extern System::AnsiString __fastcall TrimLeft(const System::AnsiString S);
  879. extern System::AnsiString __fastcall TrimRight(const System::AnsiString S);
  880. extern System::AnsiString __fastcall QuotedStr(const System::AnsiString S);
  881. extern System::AnsiString __fastcall AnsiQuotedStr(const System::AnsiString S, char Quote);
  882. extern System::AnsiString __fastcall AnsiExtractQuotedStr(char * &Src, char Quote);
  883. extern System::AnsiString __fastcall AdjustLineBreaks(const System::AnsiString S);
  884. extern bool __fastcall IsValidIdent(const System::AnsiString Ident);
  885. extern System::AnsiString __fastcall IntToStr(int Value);
  886. extern System::AnsiString __fastcall IntToHex(int Value, int Digits);
  887. extern int __fastcall StrToInt(const System::AnsiString S);
  888. extern int __fastcall StrToIntDef(const System::AnsiString S, int Default);
  889. extern System::AnsiString __fastcall LoadStr(int Ident);
  890. extern System::AnsiString __fastcall FmtLoadStr(int Ident, const System::TVarRec * Args, const int Args_Size
  891.     );
  892. extern int __fastcall FileOpen(const System::AnsiString FileName, int Mode);
  893. extern int __fastcall FileCreate(const System::AnsiString FileName);
  894. extern int __fastcall FileRead(int Handle, void *Buffer, int Count);
  895. extern int __fastcall FileWrite(int Handle, const void *Buffer, int Count);
  896. extern int __fastcall FileSeek(int Handle, int Offset, int Origin);
  897. extern void __fastcall FileClose(int Handle);
  898. extern int __fastcall FileAge(const System::AnsiString FileName);
  899. extern bool __fastcall FileExists(const System::AnsiString FileName);
  900. extern int __fastcall FileGetDate(int Handle);
  901. extern int __fastcall FileSetDate(int Handle, int Age);
  902. extern int __fastcall FileGetAttr(const System::AnsiString FileName);
  903. extern int __fastcall FileSetAttr(const System::AnsiString FileName, int Attr);
  904. extern int __fastcall FindFirst(const System::AnsiString Path, int Attr, TSearchRec &F);
  905. extern int __fastcall FindNext(TSearchRec &F);
  906. extern void __fastcall FindClose(TSearchRec &F);
  907. extern bool __fastcall RenameFile(const System::AnsiString OldName, const System::AnsiString NewName
  908.     );
  909. extern char * __fastcall AnsiStrLastChar(char * P);
  910. extern char * __fastcall AnsiLastChar(const System::AnsiString S);
  911. extern int __fastcall LastDelimiter(const System::AnsiString Delimiters, const System::AnsiString S)
  912.     ;
  913. extern System::AnsiString __fastcall ChangeFileExt(const System::AnsiString FileName, const System::AnsiString 
  914.     Extension);
  915. extern System::AnsiString __fastcall ExtractFilePath(const System::AnsiString FileName);
  916. extern System::AnsiString __fastcall ExtractFileDir(const System::AnsiString FileName);
  917. extern System::AnsiString __fastcall ExtractFileDrive(const System::AnsiString FileName);
  918. extern System::AnsiString __fastcall ExtractFileName(const System::AnsiString FileName);
  919. extern System::AnsiString __fastcall ExtractFileExt(const System::AnsiString FileName);
  920. extern System::AnsiString __fastcall ExpandFileName(const System::AnsiString FileName);
  921. extern System::AnsiString __fastcall ExpandUNCFileName(const System::AnsiString FileName);
  922. extern System::AnsiString __fastcall FileSearch(const System::AnsiString Name, const System::AnsiString 
  923.     DirList);
  924. extern int __fastcall DiskFree(Byte Drive);
  925. extern int __fastcall DiskSize(Byte Drive);
  926. extern System::TDateTime __fastcall FileDateToDateTime(int FileDate);
  927. extern int __fastcall DateTimeToFileDate(System::TDateTime DateTime);
  928. extern System::AnsiString __fastcall GetCurrentDir(void);
  929. extern bool __fastcall SetCurrentDir(const System::AnsiString Dir);
  930. extern bool __fastcall CreateDir(const System::AnsiString Dir);
  931. extern bool __fastcall RemoveDir(const System::AnsiString Dir);
  932. extern Cardinal __fastcall StrLen(char * Str);
  933. extern char * __fastcall StrEnd(char * Str);
  934. extern char * __fastcall StrMove(char * Dest, char * Source, Cardinal Count);
  935. extern char * __fastcall StrCopy(char * Dest, char * Source);
  936. extern char * __fastcall StrECopy(char * Dest, char * Source);
  937. extern char * __fastcall StrLCopy(char * Dest, char * Source, Cardinal MaxLen);
  938. extern char * __fastcall StrPCopy(char * Dest, const System::AnsiString Source);
  939. extern char * __fastcall StrPLCopy(char * Dest, const System::AnsiString Source, Cardinal MaxLen);
  940. extern char * __fastcall StrCat(char * Dest, char * Source);
  941. extern char * __fastcall StrLCat(char * Dest, char * Source, Cardinal MaxLen);
  942. extern int __fastcall StrComp(char * Str1, char * Str2);
  943. extern int __fastcall StrIComp(char * Str1, char * Str2);
  944. extern int __fastcall StrLComp(char * Str1, char * Str2, Cardinal MaxLen);
  945. extern int __fastcall StrLIComp(char * Str1, char * Str2, Cardinal MaxLen);
  946. extern char * __fastcall StrScan(char * Str, char Chr);
  947. extern char * __fastcall StrRScan(char * Str, char Chr);
  948. extern char * __fastcall StrPos(char * Str1, char * Str2);
  949. extern char * __fastcall StrUpper(char * Str);
  950. extern char * __fastcall StrLower(char * Str);
  951. extern System::AnsiString __fastcall StrPas(char * Str);
  952. extern char * __fastcall StrAlloc(Cardinal Size);
  953. extern Cardinal __fastcall StrBufSize(char * Str);
  954. extern char * __fastcall StrNew(char * Str);
  955. extern void __fastcall StrDispose(char * Str);
  956. extern Cardinal __fastcall FormatBuf(void *Buffer, Cardinal BufLen, const void *Format, Cardinal FmtLen
  957.     , const System::TVarRec * Args, const int Args_Size);
  958. extern char * __fastcall StrFmt(char * Buffer, char * Format, const System::TVarRec * Args, const int 
  959.     Args_Size);
  960. extern char * __fastcall StrLFmt(char * Buffer, Cardinal MaxLen, char * Format, const System::TVarRec 
  961.     * Args, const int Args_Size);
  962. extern System::AnsiString __fastcall Format(const System::AnsiString Format, const System::TVarRec * 
  963.     Args, const int Args_Size);
  964. extern void __fastcall FmtStr( System::AnsiString &Result, const System::AnsiString Format, const System::TVarRec 
  965.     * Args, const int Args_Size);
  966. extern System::AnsiString __fastcall FloatToStr(Extended Value);
  967. extern System::AnsiString __fastcall CurrToStr(System::Currency Value);
  968. extern System::AnsiString __fastcall FloatToStrF(Extended Value, TFloatFormat Format, int Precision, 
  969.     int Digits);
  970. extern System::AnsiString __fastcall CurrToStrF(System::Currency Value, TFloatFormat Format, int Digits
  971.     );
  972. extern System::AnsiString __fastcall FormatFloat(const System::AnsiString Format, Extended Value);
  973. extern System::AnsiString __fastcall FormatCurr(const System::AnsiString Format, System::Currency Value
  974.     );
  975. extern Extended __fastcall StrToFloat(const System::AnsiString S);
  976. extern System::Currency __fastcall StrToCurr(const System::AnsiString S);
  977. extern TTimeStamp __fastcall DateTimeToTimeStamp(System::TDateTime DateTime);
  978. extern System::TDateTime __fastcall TimeStampToDateTime(const TTimeStamp &TimeStamp);
  979. extern TTimeStamp __fastcall MSecsToTimeStamp(System::Comp MSecs);
  980. extern System::Comp __fastcall TimeStampToMSecs(const TTimeStamp &TimeStamp);
  981. extern System::TDateTime __fastcall EncodeTime(Word Hour, Word Min, Word Sec, Word MSec);
  982. extern void __fastcall DecodeTime(System::TDateTime Time, Word &Hour, Word &Min, Word &Sec, Word &MSec
  983.     );
  984. extern System::TDateTime __fastcall EncodeDate(Word Year, Word Month, Word Day);
  985. extern void __fastcall DecodeDate(System::TDateTime Date, Word &Year, Word &Month, Word &Day);
  986. extern int __fastcall DayOfWeek(System::TDateTime Date);
  987. extern System::TDateTime __fastcall Date(void);
  988. extern System::TDateTime __fastcall Time(void);
  989. extern System::TDateTime __fastcall Now(void);
  990. extern void __fastcall DateTimeToString( System::AnsiString &Result, const System::AnsiString Format
  991.     , System::TDateTime DateTime);
  992. extern System::AnsiString __fastcall DateToStr(System::TDateTime Date);
  993. extern System::AnsiString __fastcall TimeToStr(System::TDateTime Time);
  994. extern System::AnsiString __fastcall DateTimeToStr(System::TDateTime DateTime);
  995. extern System::AnsiString __fastcall FormatDateTime(const System::AnsiString Format, System::TDateTime 
  996.     DateTime);
  997. extern System::TDateTime __fastcall StrToDate(const System::AnsiString S);
  998. extern System::TDateTime __fastcall StrToTime(const System::AnsiString S);
  999. extern System::TDateTime __fastcall StrToDateTime(const System::AnsiString S);
  1000. extern System::AnsiString __fastcall SysErrorMessage(int ErrorCode);
  1001. extern System::AnsiString __fastcall GetLocaleStr(int Locale, int LocaleType, const System::AnsiString 
  1002.     Default);
  1003. extern char __fastcall GetLocaleChar(int Locale, int LocaleType, char Default);
  1004. extern void __fastcall GetFormatSettings(void);
  1005. extern System::TObject* __fastcall ExceptObject(void);
  1006. extern void * __fastcall ExceptAddr(void);
  1007. extern void __fastcall ShowException(System::TObject* ExceptObject, void * ExceptAddr);
  1008. extern void __fastcall Abort(void);
  1009. extern void __fastcall OutOfMemoryError(void);
  1010. extern TMbcsByteType __fastcall ByteType(const System::AnsiString S, int Index);
  1011. extern TMbcsByteType __fastcall StrByteType(char * Str, Cardinal Index);
  1012. extern int __fastcall ByteToCharLen(const System::AnsiString S, int MaxLen);
  1013. extern int __fastcall ByteToCharIndex(const System::AnsiString S, int Index);
  1014. extern int __fastcall CharToByteIndex(const System::AnsiString S, int Index);
  1015. extern int __fastcall CharToByteLen(const System::AnsiString S, int MaxLen);
  1016. extern bool __fastcall IsPathDelimiter(const System::AnsiString S, int Index);
  1017. extern bool __fastcall IsDelimiter(const System::AnsiString Delimiters, const System::AnsiString S, 
  1018.     int Index);
  1019. extern int __fastcall AnsiPos(const System::AnsiString Substr, const System::AnsiString S);
  1020. extern int __fastcall AnsiCompareFileName(const System::AnsiString S1, const System::AnsiString S2);
  1021.     
  1022. extern System::AnsiString __fastcall AnsiLowerCaseFileName(const System::AnsiString S);
  1023. extern System::AnsiString __fastcall AnsiUpperCaseFileName(const System::AnsiString S);
  1024. extern char * __fastcall AnsiStrPos(char * Str, char * SubStr);
  1025. extern char * __fastcall AnsiStrRScan(char * Str, char Chr);
  1026. extern char * __fastcall AnsiStrScan(char * Str, char Chr);
  1027. extern int __fastcall FloatToText(char * Buffer, const void *Value, TFloatValue ValueType, TFloatFormat 
  1028.     Format, int Precision, int Digits);
  1029. extern int __fastcall FloatToTextFmt(char * Buffer, const void *Value, TFloatValue ValueType, char * 
  1030.     Format);
  1031. extern void __fastcall FloatToDecimal(TFloatRec &Result, const void *Value, TFloatValue ValueType, int 
  1032.     Precision, int Decimals);
  1033. extern bool __fastcall TextToFloat(char * Buffer, void *Value, TFloatValue ValueType);
  1034. //-- template instantiations -------------------------------------------------
  1035. //template class System::Set<Byte, 0, 255>  ;
  1036.  
  1037. }    /* namespace Sysutils */
  1038.  
  1039. #pragma warn .par
  1040. #pragma warn .hid 
  1041. #pragma warn .inl
  1042.  
  1043. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1044. using namespace Sysutils;
  1045. #endif
  1046. //-- end unit ----------------------------------------------------------------
  1047. #endif    // SysUtils
  1048.