home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / SYSUTILS.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-16  |  51.5 KB  |  1,045 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 int 
  224.         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 int 
  308.         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 int 
  420.         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, const 
  570.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  571.     
  572. public:
  573.     /* TObject.Destroy */ __fastcall virtual ~EConvertError(void) { }
  574.     
  575. };
  576.  
  577. class __declspec(delphiclass) EAccessViolation;
  578. class __declspec(pascalimplementation) EAccessViolation : public Exception
  579. {
  580.     typedef Exception inherited;
  581.     
  582. public:
  583.     /* Exception.Create */ __fastcall EAccessViolation(const System::AnsiString Msg) : Sysutils::Exception(
  584.         Msg) { }
  585.     /* Exception.CreateFmt */ __fastcall EAccessViolation(const System::AnsiString Msg, const System::TVarRec 
  586.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  587.     /* Exception.CreateRes */ __fastcall EAccessViolation(int Ident) : Sysutils::Exception(Ident) { }
  588.     /* Exception.CreateResFmt */ __fastcall EAccessViolation(int Ident, const System::TVarRec *Args, const 
  589.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  590.     /* Exception.CreateHelp */ __fastcall EAccessViolation(const System::AnsiString Msg, int AHelpContext
  591.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  592.     /* Exception.CreateFmtHelp */ __fastcall EAccessViolation(const System::AnsiString Msg, const System::TVarRec 
  593.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  594.         ) { }
  595.     /* Exception.CreateResHelp */ __fastcall EAccessViolation(int Ident, int AHelpContext) : Sysutils::
  596.         Exception(Ident, AHelpContext) { }
  597.     /* Exception.CreateResFmtHelp */ __fastcall EAccessViolation(int Ident, const System::TVarRec *Args
  598.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  599.         ) { }
  600.     
  601. public:
  602.     /* TObject.Destroy */ __fastcall virtual ~EAccessViolation(void) { }
  603.     
  604. };
  605.  
  606. class __declspec(delphiclass) EPrivilege;
  607. class __declspec(pascalimplementation) EPrivilege : public Exception
  608. {
  609.     typedef Exception inherited;
  610.     
  611. public:
  612.     /* Exception.Create */ __fastcall EPrivilege(const System::AnsiString Msg) : Sysutils::Exception(Msg
  613.         ) { }
  614.     /* Exception.CreateFmt */ __fastcall EPrivilege(const System::AnsiString Msg, const System::TVarRec 
  615.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  616.     /* Exception.CreateRes */ __fastcall EPrivilege(int Ident) : Sysutils::Exception(Ident) { }
  617.     /* Exception.CreateResFmt */ __fastcall EPrivilege(int Ident, const System::TVarRec *Args, const int 
  618.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  619.     /* Exception.CreateHelp */ __fastcall EPrivilege(const System::AnsiString Msg, int AHelpContext) : 
  620.         Sysutils::Exception(Msg, AHelpContext) { }
  621.     /* Exception.CreateFmtHelp */ __fastcall EPrivilege(const System::AnsiString Msg, const System::TVarRec 
  622.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  623.         ) { }
  624.     /* Exception.CreateResHelp */ __fastcall EPrivilege(int Ident, int AHelpContext) : Sysutils::Exception(
  625.         Ident, AHelpContext) { }
  626.     /* Exception.CreateResFmtHelp */ __fastcall EPrivilege(int Ident, const System::TVarRec *Args, const 
  627.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  628.     
  629. public:
  630.     /* TObject.Destroy */ __fastcall virtual ~EPrivilege(void) { }
  631.     
  632. };
  633.  
  634. class __declspec(delphiclass) EStackOverflow;
  635. class __declspec(pascalimplementation) EStackOverflow : public Exception
  636. {
  637.     typedef Exception inherited;
  638.     
  639. public:
  640.     /* Exception.Create */ __fastcall EStackOverflow(const System::AnsiString Msg) : Sysutils::Exception(
  641.         Msg) { }
  642.     /* Exception.CreateFmt */ __fastcall EStackOverflow(const System::AnsiString Msg, const System::TVarRec 
  643.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  644.     /* Exception.CreateRes */ __fastcall EStackOverflow(int Ident) : Sysutils::Exception(Ident) { }
  645.     /* Exception.CreateResFmt */ __fastcall EStackOverflow(int Ident, const System::TVarRec *Args, const 
  646.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  647.     /* Exception.CreateHelp */ __fastcall EStackOverflow(const System::AnsiString Msg, int AHelpContext
  648.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  649.     /* Exception.CreateFmtHelp */ __fastcall EStackOverflow(const System::AnsiString Msg, const System::TVarRec 
  650.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  651.         ) { }
  652.     /* Exception.CreateResHelp */ __fastcall EStackOverflow(int Ident, int AHelpContext) : Sysutils::Exception(
  653.         Ident, AHelpContext) { }
  654.     /* Exception.CreateResFmtHelp */ __fastcall EStackOverflow(int Ident, const System::TVarRec *Args, 
  655.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  656.          { }
  657.     
  658. public:
  659.     /* TObject.Destroy */ __fastcall virtual ~EStackOverflow(void) { }
  660.     
  661. };
  662.  
  663. class __declspec(delphiclass) EControlC;
  664. class __declspec(pascalimplementation) EControlC : public Exception
  665. {
  666.     typedef Exception inherited;
  667.     
  668. public:
  669.     /* Exception.Create */ __fastcall EControlC(const System::AnsiString Msg) : Sysutils::Exception(Msg
  670.         ) { }
  671.     /* Exception.CreateFmt */ __fastcall EControlC(const System::AnsiString Msg, const System::TVarRec 
  672.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  673.     /* Exception.CreateRes */ __fastcall EControlC(int Ident) : Sysutils::Exception(Ident) { }
  674.     /* Exception.CreateResFmt */ __fastcall EControlC(int Ident, const System::TVarRec *Args, const int 
  675.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  676.     /* Exception.CreateHelp */ __fastcall EControlC(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  677.         Exception(Msg, AHelpContext) { }
  678.     /* Exception.CreateFmtHelp */ __fastcall EControlC(const System::AnsiString Msg, const System::TVarRec 
  679.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  680.         ) { }
  681.     /* Exception.CreateResHelp */ __fastcall EControlC(int Ident, int AHelpContext) : Sysutils::Exception(
  682.         Ident, AHelpContext) { }
  683.     /* Exception.CreateResFmtHelp */ __fastcall EControlC(int Ident, const System::TVarRec *Args, const 
  684.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  685.     
  686. public:
  687.     /* TObject.Destroy */ __fastcall virtual ~EControlC(void) { }
  688.     
  689. };
  690.  
  691. class __declspec(delphiclass) EVariantError;
  692. class __declspec(pascalimplementation) EVariantError : public Exception
  693. {
  694.     typedef Exception inherited;
  695.     
  696. public:
  697.     /* Exception.Create */ __fastcall EVariantError(const System::AnsiString Msg) : Sysutils::Exception(
  698.         Msg) { }
  699.     /* Exception.CreateFmt */ __fastcall EVariantError(const System::AnsiString Msg, const System::TVarRec 
  700.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  701.     /* Exception.CreateRes */ __fastcall EVariantError(int Ident) : Sysutils::Exception(Ident) { }
  702.     /* Exception.CreateResFmt */ __fastcall EVariantError(int Ident, const System::TVarRec *Args, const 
  703.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  704.     /* Exception.CreateHelp */ __fastcall EVariantError(const System::AnsiString Msg, int AHelpContext)
  705.          : Sysutils::Exception(Msg, AHelpContext) { }
  706.     /* Exception.CreateFmtHelp */ __fastcall EVariantError(const System::AnsiString Msg, const System::TVarRec 
  707.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  708.         ) { }
  709.     /* Exception.CreateResHelp */ __fastcall EVariantError(int Ident, int AHelpContext) : Sysutils::Exception(
  710.         Ident, AHelpContext) { }
  711.     /* Exception.CreateResFmtHelp */ __fastcall EVariantError(int Ident, const System::TVarRec *Args, const 
  712.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  713.     
  714. public:
  715.     /* TObject.Destroy */ __fastcall virtual ~EVariantError(void) { }
  716.     
  717. };
  718.  
  719. class __declspec(delphiclass) EPropReadOnly;
  720. class __declspec(pascalimplementation) EPropReadOnly : public Exception
  721. {
  722.     typedef Exception inherited;
  723.     
  724. public:
  725.     /* Exception.Create */ __fastcall EPropReadOnly(const System::AnsiString Msg) : Sysutils::Exception(
  726.         Msg) { }
  727.     /* Exception.CreateFmt */ __fastcall EPropReadOnly(const System::AnsiString Msg, const System::TVarRec 
  728.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  729.     /* Exception.CreateRes */ __fastcall EPropReadOnly(int Ident) : Sysutils::Exception(Ident) { }
  730.     /* Exception.CreateResFmt */ __fastcall EPropReadOnly(int Ident, const System::TVarRec *Args, const 
  731.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  732.     /* Exception.CreateHelp */ __fastcall EPropReadOnly(const System::AnsiString Msg, int AHelpContext)
  733.          : Sysutils::Exception(Msg, AHelpContext) { }
  734.     /* Exception.CreateFmtHelp */ __fastcall EPropReadOnly(const System::AnsiString Msg, const System::TVarRec 
  735.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  736.         ) { }
  737.     /* Exception.CreateResHelp */ __fastcall EPropReadOnly(int Ident, int AHelpContext) : Sysutils::Exception(
  738.         Ident, AHelpContext) { }
  739.     /* Exception.CreateResFmtHelp */ __fastcall EPropReadOnly(int Ident, const System::TVarRec *Args, const 
  740.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  741.     
  742. public:
  743.     /* TObject.Destroy */ __fastcall virtual ~EPropReadOnly(void) { }
  744.     
  745. };
  746.  
  747. class __declspec(delphiclass) EPropWriteOnly;
  748. class __declspec(pascalimplementation) EPropWriteOnly : public Exception
  749. {
  750.     typedef Exception inherited;
  751.     
  752. public:
  753.     /* Exception.Create */ __fastcall EPropWriteOnly(const System::AnsiString Msg) : Sysutils::Exception(
  754.         Msg) { }
  755.     /* Exception.CreateFmt */ __fastcall EPropWriteOnly(const System::AnsiString Msg, const System::TVarRec 
  756.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  757.     /* Exception.CreateRes */ __fastcall EPropWriteOnly(int Ident) : Sysutils::Exception(Ident) { }
  758.     /* Exception.CreateResFmt */ __fastcall EPropWriteOnly(int Ident, const System::TVarRec *Args, const 
  759.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  760.     /* Exception.CreateHelp */ __fastcall EPropWriteOnly(const System::AnsiString Msg, int AHelpContext
  761.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  762.     /* Exception.CreateFmtHelp */ __fastcall EPropWriteOnly(const System::AnsiString Msg, const System::TVarRec 
  763.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  764.         ) { }
  765.     /* Exception.CreateResHelp */ __fastcall EPropWriteOnly(int Ident, int AHelpContext) : Sysutils::Exception(
  766.         Ident, AHelpContext) { }
  767.     /* Exception.CreateResFmtHelp */ __fastcall EPropWriteOnly(int Ident, const System::TVarRec *Args, 
  768.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  769.          { }
  770.     
  771. public:
  772.     /* TObject.Destroy */ __fastcall virtual ~EPropWriteOnly(void) { }
  773.     
  774. };
  775.  
  776. class __declspec(delphiclass) EExternalException;
  777. class __declspec(pascalimplementation) EExternalException : public Exception
  778. {
  779.     typedef Exception inherited;
  780.     
  781. public:
  782.     EXCEPTION_RECORD *ExceptionRecord;
  783. public:
  784.     /* Exception.Create */ __fastcall EExternalException(const System::AnsiString Msg) : Sysutils::Exception(
  785.         Msg) { }
  786.     /* Exception.CreateFmt */ __fastcall EExternalException(const System::AnsiString Msg, const System::TVarRec 
  787.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  788.     /* Exception.CreateRes */ __fastcall EExternalException(int Ident) : Sysutils::Exception(Ident) { }
  789.         
  790.     /* Exception.CreateResFmt */ __fastcall EExternalException(int Ident, const System::TVarRec *Args, 
  791.         const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  792.     /* Exception.CreateHelp */ __fastcall EExternalException(const System::AnsiString Msg, int AHelpContext
  793.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  794.     /* Exception.CreateFmtHelp */ __fastcall EExternalException(const System::AnsiString Msg, const System::TVarRec 
  795.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  796.         ) { }
  797.     /* Exception.CreateResHelp */ __fastcall EExternalException(int Ident, int AHelpContext) : Sysutils::
  798.         Exception(Ident, AHelpContext) { }
  799.     /* Exception.CreateResFmtHelp */ __fastcall EExternalException(int Ident, const System::TVarRec *Args
  800.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  801.         ) { }
  802.     
  803. public:
  804.     /* TObject.Destroy */ __fastcall virtual ~EExternalException(void) { }
  805.     
  806. };
  807.  
  808. //-- var, const, procedure ---------------------------------------------------
  809. #define fmOpenRead (Byte)(0)
  810. #define fmOpenWrite (Byte)(1)
  811. #define fmOpenReadWrite (Byte)(2)
  812. #define fmShareCompat (Byte)(0)
  813. #define fmShareExclusive (Byte)(16)
  814. #define fmShareDenyWrite (Byte)(32)
  815. #define fmShareDenyRead (Byte)(48)
  816. #define fmShareDenyNone (Byte)(64)
  817. #define faReadOnly (Byte)(1)
  818. #define faHidden (Byte)(2)
  819. #define faSysFile (Byte)(4)
  820. #define faVolumeID (Byte)(8)
  821. #define faDirectory (Byte)(16)
  822. #define faArchive (Byte)(32)
  823. #define faAnyFile (Byte)(63)
  824. #define fmClosed (int)(55216)
  825. #define fmInput (int)(55217)
  826. #define fmOutput (int)(55218)
  827. #define fmInOut (int)(55219)
  828. #define SecsPerDay (int)(86400)
  829. #define MSecsPerDay (int)(86400000)
  830. #define DateDelta (int)(693594)
  831. extern System::AnsiString EmptyStr;
  832. extern System::AnsiString *NullStr;
  833. extern int Win32Platform;
  834. extern System::AnsiString CurrencyString;
  835. extern Byte CurrencyFormat;
  836. extern Byte NegCurrFormat;
  837. extern char ThousandSeparator;
  838. extern char DecimalSeparator;
  839. extern Byte CurrencyDecimals;
  840. extern char DateSeparator;
  841. extern System::AnsiString ShortDateFormat;
  842. extern System::AnsiString LongDateFormat;
  843. extern char TimeSeparator;
  844. extern System::AnsiString TimeAMString;
  845. extern System::AnsiString TimePMString;
  846. extern System::AnsiString ShortTimeFormat;
  847. extern System::AnsiString LongTimeFormat;
  848. extern System::AnsiString ShortMonthNames[12];
  849. extern System::AnsiString LongMonthNames[12];
  850. extern System::AnsiString ShortDayNames[7];
  851. extern System::AnsiString LongDayNames[7];
  852. extern TSysLocale SysLocale;
  853. //extern System::Set<Byte, 0, 255>  LeadBytes;
  854. extern void * __fastcall AllocMem(Cardinal Size);
  855. extern void __fastcall AddExitProc(TProcedure Proc);
  856. extern System::PAnsiString __fastcall NewStr(const System::AnsiString S);
  857. extern void __fastcall DisposeStr(System::PAnsiString P);
  858. extern void __fastcall AssignStr(System::PAnsiString &P, const System::AnsiString S);
  859. extern void __fastcall AppendStr( System::AnsiString &Dest, const System::AnsiString S);
  860. extern System::AnsiString __fastcall UpperCase(const System::AnsiString S);
  861. extern System::AnsiString __fastcall LowerCase(const System::AnsiString S);
  862. extern int __fastcall CompareStr(const System::AnsiString S1, const System::AnsiString S2);
  863. extern int __fastcall CompareText(const System::AnsiString S1, const System::AnsiString S2);
  864. extern System::AnsiString __fastcall AnsiUpperCase(const System::AnsiString S);
  865. extern System::AnsiString __fastcall AnsiLowerCase(const System::AnsiString S);
  866. extern int __fastcall AnsiCompareStr(const System::AnsiString S1, const System::AnsiString S2);
  867. extern int __fastcall AnsiCompareText(const System::AnsiString S1, const System::AnsiString S2);
  868. extern int __fastcall AnsiStrComp(char * S1, char * S2);
  869. extern int __fastcall AnsiStrIComp(char * S1, char * S2);
  870. extern int __fastcall AnsiStrLComp(char * S1, char * S2, Cardinal MaxLen);
  871. extern int __fastcall AnsiStrLIComp(char * S1, char * S2, Cardinal MaxLen);
  872. extern char * __fastcall AnsiStrLower(char * Str);
  873. extern char * __fastcall AnsiStrUpper(char * Str);
  874. extern System::AnsiString __fastcall Trim(const System::AnsiString S);
  875. extern System::AnsiString __fastcall TrimLeft(const System::AnsiString S);
  876. extern System::AnsiString __fastcall TrimRight(const System::AnsiString S);
  877. extern System::AnsiString __fastcall QuotedStr(const System::AnsiString S);
  878. extern System::AnsiString __fastcall AnsiQuotedStr(const System::AnsiString S, char Quote);
  879. extern System::AnsiString __fastcall AnsiExtractQuotedStr(char * &Src, char Quote);
  880. extern System::AnsiString __fastcall AdjustLineBreaks(const System::AnsiString S);
  881. extern bool __fastcall IsValidIdent(const System::AnsiString Ident);
  882. extern System::AnsiString __fastcall IntToStr(int Value);
  883. extern System::AnsiString __fastcall IntToHex(int Value, int Digits);
  884. extern int __fastcall StrToInt(const System::AnsiString S);
  885. extern int __fastcall StrToIntDef(const System::AnsiString S, int Default);
  886. extern System::AnsiString __fastcall LoadStr(int Ident);
  887. extern System::AnsiString __fastcall FmtLoadStr(int Ident, const System::TVarRec *Args, const int Args_Size
  888.     );
  889. extern int __fastcall FileOpen(const System::AnsiString FileName, int Mode);
  890. extern int __fastcall FileCreate(const System::AnsiString FileName);
  891. extern int __fastcall FileRead(int Handle, void *Buffer, int Count);
  892. extern int __fastcall FileWrite(int Handle, const void *Buffer, int Count);
  893. extern int __fastcall FileSeek(int Handle, int Offset, int Origin);
  894. extern void __fastcall FileClose(int Handle);
  895. extern int __fastcall FileAge(const System::AnsiString FileName);
  896. extern bool __fastcall FileExists(const System::AnsiString FileName);
  897. extern int __fastcall FileGetDate(int Handle);
  898. extern int __fastcall FileSetDate(int Handle, int Age);
  899. extern int __fastcall FileGetAttr(const System::AnsiString FileName);
  900. extern int __fastcall FileSetAttr(const System::AnsiString FileName, int Attr);
  901. extern int __fastcall FindFirst(const System::AnsiString Path, int Attr, TSearchRec &F);
  902. extern int __fastcall FindNext(TSearchRec &F);
  903. extern void __fastcall FindClose(TSearchRec &F);
  904. extern bool __fastcall RenameFile(const System::AnsiString OldName, const System::AnsiString NewName
  905.     );
  906. extern char * __fastcall AnsiStrLastChar(char * P);
  907. extern char * __fastcall AnsiLastChar(const System::AnsiString S);
  908. extern int __fastcall LastDelimiter(const System::AnsiString Delimiters, const System::AnsiString S)
  909.     ;
  910. extern System::AnsiString __fastcall ChangeFileExt(const System::AnsiString FileName, const System::AnsiString 
  911.     Extension);
  912. extern System::AnsiString __fastcall ExtractFilePath(const System::AnsiString FileName);
  913. extern System::AnsiString __fastcall ExtractFileDir(const System::AnsiString FileName);
  914. extern System::AnsiString __fastcall ExtractFileDrive(const System::AnsiString FileName);
  915. extern System::AnsiString __fastcall ExtractFileName(const System::AnsiString FileName);
  916. extern System::AnsiString __fastcall ExtractFileExt(const System::AnsiString FileName);
  917. extern System::AnsiString __fastcall ExpandFileName(const System::AnsiString FileName);
  918. extern System::AnsiString __fastcall ExpandUNCFileName(const System::AnsiString FileName);
  919. extern System::AnsiString __fastcall FileSearch(const System::AnsiString Name, const System::AnsiString 
  920.     DirList);
  921. extern int __fastcall DiskFree(Byte Drive);
  922. extern int __fastcall DiskSize(Byte Drive);
  923. extern System::TDateTime __fastcall FileDateToDateTime(int FileDate);
  924. extern int __fastcall DateTimeToFileDate(System::TDateTime DateTime);
  925. extern System::AnsiString __fastcall GetCurrentDir(void);
  926. extern bool __fastcall SetCurrentDir(const System::AnsiString Dir);
  927. extern bool __fastcall CreateDir(const System::AnsiString Dir);
  928. extern bool __fastcall RemoveDir(const System::AnsiString Dir);
  929. extern Cardinal __fastcall StrLen(char * Str);
  930. extern char * __fastcall StrEnd(char * Str);
  931. extern char * __fastcall StrMove(char * Dest, char * Source, Cardinal Count);
  932. extern char * __fastcall StrCopy(char * Dest, char * Source);
  933. extern char * __fastcall StrECopy(char * Dest, char * Source);
  934. extern char * __fastcall StrLCopy(char * Dest, char * Source, Cardinal MaxLen);
  935. extern char * __fastcall StrPCopy(char * Dest, const System::AnsiString Source);
  936. extern char * __fastcall StrPLCopy(char * Dest, const System::AnsiString Source, Cardinal MaxLen);
  937. extern char * __fastcall StrCat(char * Dest, char * Source);
  938. extern char * __fastcall StrLCat(char * Dest, char * Source, Cardinal MaxLen);
  939. extern int __fastcall StrComp(char * Str1, char * Str2);
  940. extern int __fastcall StrIComp(char * Str1, char * Str2);
  941. extern int __fastcall StrLComp(char * Str1, char * Str2, Cardinal MaxLen);
  942. extern int __fastcall StrLIComp(char * Str1, char * Str2, Cardinal MaxLen);
  943. extern char * __fastcall StrScan(char * Str, char Chr);
  944. extern char * __fastcall StrRScan(char * Str, char Chr);
  945. extern char * __fastcall StrPos(char * Str1, char * Str2);
  946. extern char * __fastcall StrUpper(char * Str);
  947. extern char * __fastcall StrLower(char * Str);
  948. extern System::AnsiString __fastcall StrPas(char * Str);
  949. extern char * __fastcall StrAlloc(Cardinal Size);
  950. extern Cardinal __fastcall StrBufSize(char * Str);
  951. extern char * __fastcall StrNew(char * Str);
  952. extern void __fastcall StrDispose(char * Str);
  953. extern Cardinal __fastcall FormatBuf(void *Buffer, Cardinal BufLen, const void *Format, Cardinal FmtLen
  954.     , const System::TVarRec *Args, const int Args_Size);
  955. extern char * __fastcall StrFmt(char * Buffer, char * Format, const System::TVarRec *Args, const int 
  956.     Args_Size);
  957. extern char * __fastcall StrLFmt(char * Buffer, Cardinal MaxLen, char * Format, const System::TVarRec 
  958.     *Args, const int Args_Size);
  959. extern System::AnsiString __fastcall Format(const System::AnsiString Format, const System::TVarRec *
  960.     Args, const int Args_Size);
  961. extern void __fastcall FmtStr( System::AnsiString &Result, const System::AnsiString Format, const System::TVarRec 
  962.     *Args, const int Args_Size);
  963. extern System::AnsiString __fastcall FloatToStr(Extended Value);
  964. extern System::AnsiString __fastcall CurrToStr(System::Currency Value);
  965. extern System::AnsiString __fastcall FloatToStrF(Extended Value, TFloatFormat Format, int Precision, 
  966.     int Digits);
  967. extern System::AnsiString __fastcall CurrToStrF(System::Currency Value, TFloatFormat Format, int Digits
  968.     );
  969. extern System::AnsiString __fastcall FormatFloat(const System::AnsiString Format, Extended Value);
  970. extern System::AnsiString __fastcall FormatCurr(const System::AnsiString Format, System::Currency Value
  971.     );
  972. extern Extended __fastcall StrToFloat(const System::AnsiString S);
  973. extern System::Currency __fastcall StrToCurr(const System::AnsiString S);
  974. extern TTimeStamp __fastcall DateTimeToTimeStamp(System::TDateTime DateTime);
  975. extern System::TDateTime __fastcall TimeStampToDateTime(const TTimeStamp &TimeStamp);
  976. extern TTimeStamp __fastcall MSecsToTimeStamp(System::Comp MSecs);
  977. extern System::Comp __fastcall TimeStampToMSecs(const TTimeStamp &TimeStamp);
  978. extern System::TDateTime __fastcall EncodeTime(Word Hour, Word Min, Word Sec, Word MSec);
  979. extern void __fastcall DecodeTime(System::TDateTime Time, Word &Hour, Word &Min, Word &Sec, Word &MSec
  980.     );
  981. extern System::TDateTime __fastcall EncodeDate(Word Year, Word Month, Word Day);
  982. extern void __fastcall DecodeDate(System::TDateTime Date, Word &Year, Word &Month, Word &Day);
  983. extern int __fastcall DayOfWeek(System::TDateTime Date);
  984. extern System::TDateTime __fastcall Date(void);
  985. extern System::TDateTime __fastcall Time(void);
  986. extern System::TDateTime __fastcall Now(void);
  987. extern void __fastcall DateTimeToString( System::AnsiString &Result, const System::AnsiString Format
  988.     , System::TDateTime DateTime);
  989. extern System::AnsiString __fastcall DateToStr(System::TDateTime Date);
  990. extern System::AnsiString __fastcall TimeToStr(System::TDateTime Time);
  991. extern System::AnsiString __fastcall DateTimeToStr(System::TDateTime DateTime);
  992. extern System::AnsiString __fastcall FormatDateTime(const System::AnsiString Format, System::TDateTime 
  993.     DateTime);
  994. extern System::TDateTime __fastcall StrToDate(const System::AnsiString S);
  995. extern System::TDateTime __fastcall StrToTime(const System::AnsiString S);
  996. extern System::TDateTime __fastcall StrToDateTime(const System::AnsiString S);
  997. extern System::AnsiString __fastcall SysErrorMessage(int ErrorCode);
  998. extern System::AnsiString __fastcall GetLocaleStr(int Locale, int LocaleType, const System::AnsiString 
  999.     Default);
  1000. extern char __fastcall GetLocaleChar(int Locale, int LocaleType, char Default);
  1001. extern void __fastcall GetFormatSettings(void);
  1002. extern System::TObject* __fastcall ExceptObject(void);
  1003. extern void * __fastcall ExceptAddr(void);
  1004. extern void __fastcall ShowException(System::TObject* ExceptObject, void * ExceptAddr);
  1005. extern void __fastcall Abort(void);
  1006. extern void __fastcall OutOfMemoryError(void);
  1007. extern TMbcsByteType __fastcall ByteType(const System::AnsiString S, int Index);
  1008. extern TMbcsByteType __fastcall StrByteType(char * Str, Cardinal Index);
  1009. extern int __fastcall ByteToCharLen(const System::AnsiString S, int MaxLen);
  1010. extern int __fastcall ByteToCharIndex(const System::AnsiString S, int Index);
  1011. extern int __fastcall CharToByteIndex(const System::AnsiString S, int Index);
  1012. extern int __fastcall CharToByteLen(const System::AnsiString S, int MaxLen);
  1013. extern bool __fastcall IsPathDelimiter(const System::AnsiString S, int Index);
  1014. extern bool __fastcall IsDelimiter(const System::AnsiString Delimiters, const System::AnsiString S, 
  1015.     int Index);
  1016. extern int __fastcall AnsiPos(const System::AnsiString Substr, const System::AnsiString S);
  1017. extern int __fastcall AnsiCompareFileName(const System::AnsiString S1, const System::AnsiString S2);
  1018.     
  1019. extern System::AnsiString __fastcall AnsiLowerCaseFileName(const System::AnsiString S);
  1020. extern System::AnsiString __fastcall AnsiUpperCaseFileName(const System::AnsiString S);
  1021. extern char * __fastcall AnsiStrPos(char * Str, char * SubStr);
  1022. extern char * __fastcall AnsiStrRScan(char * Str, char Chr);
  1023. extern char * __fastcall AnsiStrScan(char * Str, char Chr);
  1024. extern int __fastcall FloatToText(char * Buffer, const void *Value, TFloatValue ValueType, TFloatFormat 
  1025.     Format, int Precision, int Digits);
  1026. extern int __fastcall FloatToTextFmt(char * Buffer, const void *Value, TFloatValue ValueType, char * 
  1027.     Format);
  1028. extern void __fastcall FloatToDecimal(TFloatRec &Result, const void *Value, TFloatValue ValueType, int 
  1029.     Precision, int Decimals);
  1030. extern bool __fastcall TextToFloat(char * Buffer, void *Value, TFloatValue ValueType);
  1031. //-- template instantiations -------------------------------------------------
  1032. //template class System::Set<Byte, 0, 255>  ;
  1033.  
  1034. }    /* namespace Sysutils */
  1035.  
  1036. #pragma warn .par
  1037. #pragma warn .hid 
  1038. #pragma warn .inl
  1039.  
  1040. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1041. using namespace Sysutils;
  1042. #endif
  1043. //-- end unit ----------------------------------------------------------------
  1044. #endif    // SysUtils
  1045.