home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / sysutils.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  94KB  |  2,221 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'SysUtils.pas' rev: 5.00
  6.  
  7. #ifndef SysUtilsHPP
  8. #define SysUtilsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <SysConst.hpp>    // Pascal unit
  14. #include <Windows.hpp>    // Pascal unit
  15. #include <SysInit.hpp>    // Pascal unit
  16. #include <System.hpp>    // Pascal unit
  17.  
  18. //-- user supplied -----------------------------------------------------------
  19. namespace Sysutils {
  20. extern PACKAGE System::Set<Byte, 0, 255>  LeadBytes;
  21. } // namespace Sysutils
  22.  
  23. namespace Sysutils
  24. {
  25. //-- type declarations -------------------------------------------------------
  26. typedef Set<char, 0, 255>  TSysCharSet;
  27.  
  28. typedef Set<Shortint, 0, 31>  TIntegerSet;
  29.  
  30. #pragma pack(push, 1)
  31. struct WordRec
  32. {
  33.     Byte Lo;
  34.     Byte Hi;
  35. } ;
  36. #pragma pack(pop)
  37.  
  38. #pragma pack(push, 1)
  39. struct LongRec
  40. {
  41.     Word Lo;
  42.     Word Hi;
  43. } ;
  44. #pragma pack(pop)
  45.  
  46. #pragma pack(push, 1)
  47. struct Int64Rec
  48. {
  49.     unsigned Lo;
  50.     unsigned Hi;
  51. } ;
  52. #pragma pack(pop)
  53.  
  54. struct TMethod
  55. {
  56.     void *Code;
  57.     void *Data;
  58. } ;
  59.  
  60. typedef Byte TByteArray[32768];
  61.  
  62. typedef Byte *PByteArray;
  63.  
  64. typedef Word TWordArray[16384];
  65.  
  66. typedef Word *PWordArray;
  67.  
  68. typedef void __fastcall (*TProcedure)(void);
  69.  
  70. typedef AnsiString TFileName;
  71.  
  72. struct TSearchRec
  73. {
  74.     int Time;
  75.     int Size;
  76.     int Attr;
  77.     AnsiString Name;
  78.     int ExcludeAttr;
  79.     unsigned FindHandle;
  80.     _WIN32_FIND_DATAA FindData;
  81. } ;
  82.  
  83. #pragma pack(push, 1)
  84. struct TFileRec
  85. {
  86.     int Handle;
  87.     int Mode;
  88.     unsigned RecSize;
  89.     Byte Private[28];
  90.     Byte UserData[32];
  91.     char Name[260];
  92. } ;
  93. #pragma pack(pop)
  94.  
  95. typedef char TTextBuf[128];
  96.  
  97. typedef char *PTextBuf;
  98.  
  99. #pragma pack(push, 1)
  100. struct TTextRec
  101. {
  102.     int Handle;
  103.     int Mode;
  104.     unsigned BufSize;
  105.     unsigned BufPos;
  106.     unsigned BufEnd;
  107.     char *BufPtr;
  108.     void *OpenFunc;
  109.     void *InOutFunc;
  110.     void *FlushFunc;
  111.     void *CloseFunc;
  112.     Byte UserData[32];
  113.     char Name[260];
  114.     char Buffer[128];
  115. } ;
  116. #pragma pack(pop)
  117.  
  118. #pragma option push -b-
  119. enum TFloatValue { fvExtended, fvCurrency };
  120. #pragma option pop
  121.  
  122. #pragma option push -b-
  123. enum TFloatFormat { ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency };
  124. #pragma option pop
  125.  
  126. #pragma pack(push, 1)
  127. struct TFloatRec
  128. {
  129.     short Exponent;
  130.     bool Negative;
  131.     char Digits[21];
  132. } ;
  133. #pragma pack(pop)
  134.  
  135. struct TTimeStamp
  136. {
  137.     int Time;
  138.     int Date;
  139. } ;
  140.  
  141. #pragma option push -b-
  142. enum TMbcsByteType { mbSingleByte, mbLeadByte, mbTrailByte };
  143. #pragma option pop
  144.  
  145. #pragma pack(push, 1)
  146. struct TSysLocale
  147. {
  148.     unsigned DefaultLCID;
  149.     Word PriLangID;
  150.     Word SubLangID;
  151.     bool FarEast;
  152.     bool MiddleEast;
  153. } ;
  154. #pragma pack(pop)
  155.  
  156. #pragma pack(push, 1)
  157. struct TLangRec
  158. {
  159.     AnsiString FName;
  160.     unsigned FLCID;
  161.     AnsiString FExt;
  162. } ;
  163. #pragma pack(pop)
  164.  
  165. typedef DynamicArray<TLangRec >  SysUtils__2;
  166.  
  167. class DELPHICLASS TLanguages;
  168. class PASCALIMPLEMENTATION TLanguages : public System::TObject 
  169. {
  170.     typedef System::TObject inherited;
  171.     
  172. private:
  173.     DynamicArray<TLangRec >  FSysLangs;
  174.     int __stdcall LocalesCallback(char * LocaleID);
  175.     AnsiString __fastcall GetExt(int Index);
  176.     AnsiString __fastcall GetID(int Index);
  177.     unsigned __fastcall GetLCID(int Index);
  178.     AnsiString __fastcall GetName(int Index);
  179.     AnsiString __fastcall GetNameFromLocaleID(unsigned ID);
  180.     AnsiString __fastcall GetNameFromLCID(const AnsiString ID);
  181.     int __fastcall GetCount(void);
  182.     
  183. public:
  184.     __fastcall TLanguages(void);
  185.     int __fastcall IndexOf(unsigned ID);
  186.     __property int Count = {read=GetCount, nodefault};
  187.     __property AnsiString Name[int Index] = {read=GetName};
  188.     __property AnsiString NameFromLocaleID[unsigned ID] = {read=GetNameFromLocaleID};
  189.     __property AnsiString NameFromLCID[AnsiString ID] = {read=GetNameFromLCID};
  190.     __property AnsiString ID[int Index] = {read=GetID};
  191.     __property unsigned LocaleID[int Index] = {read=GetLCID};
  192.     __property AnsiString Ext[int Index] = {read=GetExt};
  193. public:
  194.     #pragma option push -w-inl
  195.     /* TObject.Destroy */ inline __fastcall virtual ~TLanguages(void) { }
  196.     #pragma option pop
  197.     
  198. };
  199.  
  200.  
  201. class DELPHICLASS Exception;
  202. class PASCALIMPLEMENTATION Exception : public System::TObject 
  203. {
  204.     typedef System::TObject inherited;
  205.     
  206. private:
  207.     AnsiString FMessage;
  208.     int FHelpContext;
  209.     
  210. public:
  211.     __fastcall Exception(const AnsiString Msg);
  212.     __fastcall Exception(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size);
  213.     __fastcall Exception(int Ident)/* overload */;
  214.     __fastcall Exception(System::PResStringRec ResStringRec)/* overload */;
  215.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */;
  216.     __fastcall Exception(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size
  217.         )/* overload */;
  218.     __fastcall Exception(const AnsiString Msg, int AHelpContext);
  219.     __fastcall Exception(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext
  220.         );
  221.     __fastcall Exception(int Ident, int AHelpContext)/* overload */;
  222.     __fastcall Exception(System::PResStringRec ResStringRec, int AHelpContext)/* overload */;
  223.     __fastcall Exception(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size
  224.         , int AHelpContext)/* overload */;
  225.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size, int AHelpContext
  226.         )/* overload */;
  227.     __property int HelpContext = {read=FHelpContext, write=FHelpContext, nodefault};
  228.     __property AnsiString Message = {read=FMessage, write=FMessage};
  229. public:
  230.     #pragma option push -w-inl
  231.     /* TObject.Destroy */ inline __fastcall virtual ~Exception(void) { }
  232.     #pragma option pop
  233.     
  234. };
  235.  
  236.  
  237. typedef TMetaClass*ExceptClass;
  238.  
  239. class DELPHICLASS EAbort;
  240. class PASCALIMPLEMENTATION EAbort : public Exception 
  241. {
  242.     typedef Exception inherited;
  243.     
  244. public:
  245.     #pragma option push -w-inl
  246.     /* Exception.Create */ inline __fastcall EAbort(const AnsiString Msg) : Exception(Msg) { }
  247.     #pragma option pop
  248.     #pragma option push -w-inl
  249.     /* Exception.CreateFmt */ inline __fastcall EAbort(const AnsiString Msg, const System::TVarRec * Args
  250.         , const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  251.     #pragma option pop
  252.     #pragma option push -w-inl
  253.     /* Exception.CreateRes */ inline __fastcall EAbort(int Ident)/* overload */ : Exception(Ident) { }
  254.     #pragma option pop
  255.     #pragma option push -w-inl
  256.     /* Exception.CreateResFmt */ inline __fastcall EAbort(int Ident, const System::TVarRec * Args, const 
  257.         int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  258.     #pragma option pop
  259.     #pragma option push -w-inl
  260.     /* Exception.CreateHelp */ inline __fastcall EAbort(const AnsiString Msg, int AHelpContext) : Exception(
  261.         Msg, AHelpContext) { }
  262.     #pragma option pop
  263.     #pragma option push -w-inl
  264.     /* Exception.CreateFmtHelp */ inline __fastcall EAbort(const AnsiString Msg, const System::TVarRec 
  265.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  266.         
  267.     #pragma option pop
  268.     #pragma option push -w-inl
  269.     /* Exception.CreateResHelp */ inline __fastcall EAbort(int Ident, int AHelpContext)/* overload */ : 
  270.         Exception(Ident, AHelpContext) { }
  271.     #pragma option pop
  272.     #pragma option push -w-inl
  273.     /* Exception.CreateResFmtHelp */ inline __fastcall EAbort(System::PResStringRec ResStringRec, const 
  274.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  275.         , Args, Args_Size, AHelpContext) { }
  276.     #pragma option pop
  277.     
  278. public:
  279.     #pragma option push -w-inl
  280.     /* TObject.Destroy */ inline __fastcall virtual ~EAbort(void) { }
  281.     #pragma option pop
  282.     
  283. };
  284.  
  285.  
  286. class DELPHICLASS EHeapException;
  287. class PASCALIMPLEMENTATION EHeapException : public Exception 
  288. {
  289.     typedef Exception inherited;
  290.     
  291. private:
  292.     bool AllowFree;
  293.     
  294. public:
  295.     virtual void __fastcall FreeInstance(void);
  296. public:
  297.     #pragma option push -w-inl
  298.     /* Exception.Create */ inline __fastcall EHeapException(const AnsiString Msg) : Exception(Msg) { }
  299.     #pragma option pop
  300.     #pragma option push -w-inl
  301.     /* Exception.CreateFmt */ inline __fastcall EHeapException(const AnsiString Msg, const System::TVarRec 
  302.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  303.     #pragma option pop
  304.     #pragma option push -w-inl
  305.     /* Exception.CreateRes */ inline __fastcall EHeapException(int Ident)/* overload */ : Exception(Ident
  306.         ) { }
  307.     #pragma option pop
  308.     #pragma option push -w-inl
  309.     /* Exception.CreateResFmt */ inline __fastcall EHeapException(int Ident, const System::TVarRec * Args
  310.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  311.     #pragma option pop
  312.     #pragma option push -w-inl
  313.     /* Exception.CreateHelp */ inline __fastcall EHeapException(const AnsiString Msg, int AHelpContext)
  314.          : Exception(Msg, AHelpContext) { }
  315.     #pragma option pop
  316.     #pragma option push -w-inl
  317.     /* Exception.CreateFmtHelp */ inline __fastcall EHeapException(const AnsiString Msg, const System::TVarRec 
  318.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  319.         
  320.     #pragma option pop
  321.     #pragma option push -w-inl
  322.     /* Exception.CreateResHelp */ inline __fastcall EHeapException(int Ident, int AHelpContext)/* overload */
  323.          : Exception(Ident, AHelpContext) { }
  324.     #pragma option pop
  325.     #pragma option push -w-inl
  326.     /* Exception.CreateResFmtHelp */ inline __fastcall EHeapException(System::PResStringRec ResStringRec
  327.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  328.         , Args, Args_Size, AHelpContext) { }
  329.     #pragma option pop
  330.     
  331. public:
  332.     #pragma option push -w-inl
  333.     /* TObject.Destroy */ inline __fastcall virtual ~EHeapException(void) { }
  334.     #pragma option pop
  335.     
  336. };
  337.  
  338.  
  339. class DELPHICLASS EOutOfMemory;
  340. class PASCALIMPLEMENTATION EOutOfMemory : public EHeapException 
  341. {
  342.     typedef EHeapException inherited;
  343.     
  344. public:
  345.     #pragma option push -w-inl
  346.     /* Exception.Create */ inline __fastcall EOutOfMemory(const AnsiString Msg) : EHeapException(Msg) { }
  347.         
  348.     #pragma option pop
  349.     #pragma option push -w-inl
  350.     /* Exception.CreateFmt */ inline __fastcall EOutOfMemory(const AnsiString Msg, const System::TVarRec 
  351.         * Args, const int Args_Size) : EHeapException(Msg, Args, Args_Size) { }
  352.     #pragma option pop
  353.     #pragma option push -w-inl
  354.     /* Exception.CreateRes */ inline __fastcall EOutOfMemory(int Ident)/* overload */ : EHeapException(
  355.         Ident) { }
  356.     #pragma option pop
  357.     #pragma option push -w-inl
  358.     /* Exception.CreateResFmt */ inline __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args
  359.         , const int Args_Size)/* overload */ : EHeapException(Ident, Args, Args_Size) { }
  360.     #pragma option pop
  361.     #pragma option push -w-inl
  362.     /* Exception.CreateHelp */ inline __fastcall EOutOfMemory(const AnsiString Msg, int AHelpContext) : 
  363.         EHeapException(Msg, AHelpContext) { }
  364.     #pragma option pop
  365.     #pragma option push -w-inl
  366.     /* Exception.CreateFmtHelp */ inline __fastcall EOutOfMemory(const AnsiString Msg, const System::TVarRec 
  367.         * Args, const int Args_Size, int AHelpContext) : EHeapException(Msg, Args, Args_Size, AHelpContext
  368.         ) { }
  369.     #pragma option pop
  370.     #pragma option push -w-inl
  371.     /* Exception.CreateResHelp */ inline __fastcall EOutOfMemory(int Ident, int AHelpContext)/* overload */
  372.          : EHeapException(Ident, AHelpContext) { }
  373.     #pragma option pop
  374.     #pragma option push -w-inl
  375.     /* Exception.CreateResFmtHelp */ inline __fastcall EOutOfMemory(System::PResStringRec ResStringRec, 
  376.         const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EHeapException(
  377.         ResStringRec, Args, Args_Size, AHelpContext) { }
  378.     #pragma option pop
  379.     
  380. public:
  381.     #pragma option push -w-inl
  382.     /* TObject.Destroy */ inline __fastcall virtual ~EOutOfMemory(void) { }
  383.     #pragma option pop
  384.     
  385. };
  386.  
  387.  
  388. class DELPHICLASS EInOutError;
  389. class PASCALIMPLEMENTATION EInOutError : public Exception 
  390. {
  391.     typedef Exception inherited;
  392.     
  393. public:
  394.     int ErrorCode;
  395. public:
  396.     #pragma option push -w-inl
  397.     /* Exception.Create */ inline __fastcall EInOutError(const AnsiString Msg) : Exception(Msg) { }
  398.     #pragma option pop
  399.     #pragma option push -w-inl
  400.     /* Exception.CreateFmt */ inline __fastcall EInOutError(const AnsiString Msg, const System::TVarRec 
  401.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  402.     #pragma option pop
  403.     #pragma option push -w-inl
  404.     /* Exception.CreateRes */ inline __fastcall EInOutError(int Ident)/* overload */ : Exception(Ident)
  405.          { }
  406.     #pragma option pop
  407.     #pragma option push -w-inl
  408.     /* Exception.CreateResFmt */ inline __fastcall EInOutError(int Ident, const System::TVarRec * Args, 
  409.         const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  410.     #pragma option pop
  411.     #pragma option push -w-inl
  412.     /* Exception.CreateHelp */ inline __fastcall EInOutError(const AnsiString Msg, int AHelpContext) : 
  413.         Exception(Msg, AHelpContext) { }
  414.     #pragma option pop
  415.     #pragma option push -w-inl
  416.     /* Exception.CreateFmtHelp */ inline __fastcall EInOutError(const AnsiString Msg, const System::TVarRec 
  417.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  418.         
  419.     #pragma option pop
  420.     #pragma option push -w-inl
  421.     /* Exception.CreateResHelp */ inline __fastcall EInOutError(int Ident, int AHelpContext)/* overload */
  422.          : Exception(Ident, AHelpContext) { }
  423.     #pragma option pop
  424.     #pragma option push -w-inl
  425.     /* Exception.CreateResFmtHelp */ inline __fastcall EInOutError(System::PResStringRec ResStringRec, 
  426.         const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  427.         , Args, Args_Size, AHelpContext) { }
  428.     #pragma option pop
  429.     
  430. public:
  431.     #pragma option push -w-inl
  432.     /* TObject.Destroy */ inline __fastcall virtual ~EInOutError(void) { }
  433.     #pragma option pop
  434.     
  435. };
  436.  
  437.  
  438. class DELPHICLASS EExternal;
  439. class PASCALIMPLEMENTATION EExternal : public Exception 
  440. {
  441.     typedef Exception inherited;
  442.     
  443. public:
  444.     _EXCEPTION_RECORD *ExceptionRecord;
  445. public:
  446.     #pragma option push -w-inl
  447.     /* Exception.Create */ inline __fastcall EExternal(const AnsiString Msg) : Exception(Msg) { }
  448.     #pragma option pop
  449.     #pragma option push -w-inl
  450.     /* Exception.CreateFmt */ inline __fastcall EExternal(const AnsiString Msg, const System::TVarRec * 
  451.         Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  452.     #pragma option pop
  453.     #pragma option push -w-inl
  454.     /* Exception.CreateRes */ inline __fastcall EExternal(int Ident)/* overload */ : Exception(Ident) { }
  455.         
  456.     #pragma option pop
  457.     #pragma option push -w-inl
  458.     /* Exception.CreateResFmt */ inline __fastcall EExternal(int Ident, const System::TVarRec * Args, const 
  459.         int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  460.     #pragma option pop
  461.     #pragma option push -w-inl
  462.     /* Exception.CreateHelp */ inline __fastcall EExternal(const AnsiString Msg, int AHelpContext) : Exception(
  463.         Msg, AHelpContext) { }
  464.     #pragma option pop
  465.     #pragma option push -w-inl
  466.     /* Exception.CreateFmtHelp */ inline __fastcall EExternal(const AnsiString Msg, const System::TVarRec 
  467.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  468.         
  469.     #pragma option pop
  470.     #pragma option push -w-inl
  471.     /* Exception.CreateResHelp */ inline __fastcall EExternal(int Ident, int AHelpContext)/* overload */
  472.          : Exception(Ident, AHelpContext) { }
  473.     #pragma option pop
  474.     #pragma option push -w-inl
  475.     /* Exception.CreateResFmtHelp */ inline __fastcall EExternal(System::PResStringRec ResStringRec, const 
  476.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  477.         , Args, Args_Size, AHelpContext) { }
  478.     #pragma option pop
  479.     
  480. public:
  481.     #pragma option push -w-inl
  482.     /* TObject.Destroy */ inline __fastcall virtual ~EExternal(void) { }
  483.     #pragma option pop
  484.     
  485. };
  486.  
  487.  
  488. class DELPHICLASS EExternalException;
  489. class PASCALIMPLEMENTATION EExternalException : public EExternal 
  490. {
  491.     typedef EExternal inherited;
  492.     
  493. public:
  494.     #pragma option push -w-inl
  495.     /* Exception.Create */ inline __fastcall EExternalException(const AnsiString Msg) : EExternal(Msg) { }
  496.         
  497.     #pragma option pop
  498.     #pragma option push -w-inl
  499.     /* Exception.CreateFmt */ inline __fastcall EExternalException(const AnsiString Msg, const System::TVarRec 
  500.         * Args, const int Args_Size) : EExternal(Msg, Args, Args_Size) { }
  501.     #pragma option pop
  502.     #pragma option push -w-inl
  503.     /* Exception.CreateRes */ inline __fastcall EExternalException(int Ident)/* overload */ : EExternal(
  504.         Ident) { }
  505.     #pragma option pop
  506.     #pragma option push -w-inl
  507.     /* Exception.CreateResFmt */ inline __fastcall EExternalException(int Ident, const System::TVarRec 
  508.         * Args, const int Args_Size)/* overload */ : EExternal(Ident, Args, Args_Size) { }
  509.     #pragma option pop
  510.     #pragma option push -w-inl
  511.     /* Exception.CreateHelp */ inline __fastcall EExternalException(const AnsiString Msg, int AHelpContext
  512.         ) : EExternal(Msg, AHelpContext) { }
  513.     #pragma option pop
  514.     #pragma option push -w-inl
  515.     /* Exception.CreateFmtHelp */ inline __fastcall EExternalException(const AnsiString Msg, const System::TVarRec 
  516.         * Args, const int Args_Size, int AHelpContext) : EExternal(Msg, Args, Args_Size, AHelpContext) { }
  517.         
  518.     #pragma option pop
  519.     #pragma option push -w-inl
  520.     /* Exception.CreateResHelp */ inline __fastcall EExternalException(int Ident, int AHelpContext)/* overload */
  521.          : EExternal(Ident, AHelpContext) { }
  522.     #pragma option pop
  523.     #pragma option push -w-inl
  524.     /* Exception.CreateResFmtHelp */ inline __fastcall EExternalException(System::PResStringRec ResStringRec
  525.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EExternal(ResStringRec
  526.         , Args, Args_Size, AHelpContext) { }
  527.     #pragma option pop
  528.     
  529. public:
  530.     #pragma option push -w-inl
  531.     /* TObject.Destroy */ inline __fastcall virtual ~EExternalException(void) { }
  532.     #pragma option pop
  533.     
  534. };
  535.  
  536.  
  537. class DELPHICLASS EIntError;
  538. class PASCALIMPLEMENTATION EIntError : public EExternal 
  539. {
  540.     typedef EExternal inherited;
  541.     
  542. public:
  543.     #pragma option push -w-inl
  544.     /* Exception.Create */ inline __fastcall EIntError(const AnsiString Msg) : EExternal(Msg) { }
  545.     #pragma option pop
  546.     #pragma option push -w-inl
  547.     /* Exception.CreateFmt */ inline __fastcall EIntError(const AnsiString Msg, const System::TVarRec * 
  548.         Args, const int Args_Size) : EExternal(Msg, Args, Args_Size) { }
  549.     #pragma option pop
  550.     #pragma option push -w-inl
  551.     /* Exception.CreateRes */ inline __fastcall EIntError(int Ident)/* overload */ : EExternal(Ident) { }
  552.         
  553.     #pragma option pop
  554.     #pragma option push -w-inl
  555.     /* Exception.CreateResFmt */ inline __fastcall EIntError(int Ident, const System::TVarRec * Args, const 
  556.         int Args_Size)/* overload */ : EExternal(Ident, Args, Args_Size) { }
  557.     #pragma option pop
  558.     #pragma option push -w-inl
  559.     /* Exception.CreateHelp */ inline __fastcall EIntError(const AnsiString Msg, int AHelpContext) : EExternal(
  560.         Msg, AHelpContext) { }
  561.     #pragma option pop
  562.     #pragma option push -w-inl
  563.     /* Exception.CreateFmtHelp */ inline __fastcall EIntError(const AnsiString Msg, const System::TVarRec 
  564.         * Args, const int Args_Size, int AHelpContext) : EExternal(Msg, Args, Args_Size, AHelpContext) { }
  565.         
  566.     #pragma option pop
  567.     #pragma option push -w-inl
  568.     /* Exception.CreateResHelp */ inline __fastcall EIntError(int Ident, int AHelpContext)/* overload */
  569.          : EExternal(Ident, AHelpContext) { }
  570.     #pragma option pop
  571.     #pragma option push -w-inl
  572.     /* Exception.CreateResFmtHelp */ inline __fastcall EIntError(System::PResStringRec ResStringRec, const 
  573.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EExternal(ResStringRec
  574.         , Args, Args_Size, AHelpContext) { }
  575.     #pragma option pop
  576.     
  577. public:
  578.     #pragma option push -w-inl
  579.     /* TObject.Destroy */ inline __fastcall virtual ~EIntError(void) { }
  580.     #pragma option pop
  581.     
  582. };
  583.  
  584.  
  585. class DELPHICLASS EDivByZero;
  586. class PASCALIMPLEMENTATION EDivByZero : public EIntError 
  587. {
  588.     typedef EIntError inherited;
  589.     
  590. public:
  591.     #pragma option push -w-inl
  592.     /* Exception.Create */ inline __fastcall EDivByZero(const AnsiString Msg) : EIntError(Msg) { }
  593.     #pragma option pop
  594.     #pragma option push -w-inl
  595.     /* Exception.CreateFmt */ inline __fastcall EDivByZero(const AnsiString Msg, const System::TVarRec 
  596.         * Args, const int Args_Size) : EIntError(Msg, Args, Args_Size) { }
  597.     #pragma option pop
  598.     #pragma option push -w-inl
  599.     /* Exception.CreateRes */ inline __fastcall EDivByZero(int Ident)/* overload */ : EIntError(Ident) { }
  600.         
  601.     #pragma option pop
  602.     #pragma option push -w-inl
  603.     /* Exception.CreateResFmt */ inline __fastcall EDivByZero(int Ident, const System::TVarRec * Args, 
  604.         const int Args_Size)/* overload */ : EIntError(Ident, Args, Args_Size) { }
  605.     #pragma option pop
  606.     #pragma option push -w-inl
  607.     /* Exception.CreateHelp */ inline __fastcall EDivByZero(const AnsiString Msg, int AHelpContext) : EIntError(
  608.         Msg, AHelpContext) { }
  609.     #pragma option pop
  610.     #pragma option push -w-inl
  611.     /* Exception.CreateFmtHelp */ inline __fastcall EDivByZero(const AnsiString Msg, const System::TVarRec 
  612.         * Args, const int Args_Size, int AHelpContext) : EIntError(Msg, Args, Args_Size, AHelpContext) { }
  613.         
  614.     #pragma option pop
  615.     #pragma option push -w-inl
  616.     /* Exception.CreateResHelp */ inline __fastcall EDivByZero(int Ident, int AHelpContext)/* overload */
  617.          : EIntError(Ident, AHelpContext) { }
  618.     #pragma option pop
  619.     #pragma option push -w-inl
  620.     /* Exception.CreateResFmtHelp */ inline __fastcall EDivByZero(System::PResStringRec ResStringRec, const 
  621.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EIntError(ResStringRec
  622.         , Args, Args_Size, AHelpContext) { }
  623.     #pragma option pop
  624.     
  625. public:
  626.     #pragma option push -w-inl
  627.     /* TObject.Destroy */ inline __fastcall virtual ~EDivByZero(void) { }
  628.     #pragma option pop
  629.     
  630. };
  631.  
  632.  
  633. class DELPHICLASS ERangeError;
  634. class PASCALIMPLEMENTATION ERangeError : public EIntError 
  635. {
  636.     typedef EIntError inherited;
  637.     
  638. public:
  639.     #pragma option push -w-inl
  640.     /* Exception.Create */ inline __fastcall ERangeError(const AnsiString Msg) : EIntError(Msg) { }
  641.     #pragma option pop
  642.     #pragma option push -w-inl
  643.     /* Exception.CreateFmt */ inline __fastcall ERangeError(const AnsiString Msg, const System::TVarRec 
  644.         * Args, const int Args_Size) : EIntError(Msg, Args, Args_Size) { }
  645.     #pragma option pop
  646.     #pragma option push -w-inl
  647.     /* Exception.CreateRes */ inline __fastcall ERangeError(int Ident)/* overload */ : EIntError(Ident)
  648.          { }
  649.     #pragma option pop
  650.     #pragma option push -w-inl
  651.     /* Exception.CreateResFmt */ inline __fastcall ERangeError(int Ident, const System::TVarRec * Args, 
  652.         const int Args_Size)/* overload */ : EIntError(Ident, Args, Args_Size) { }
  653.     #pragma option pop
  654.     #pragma option push -w-inl
  655.     /* Exception.CreateHelp */ inline __fastcall ERangeError(const AnsiString Msg, int AHelpContext) : 
  656.         EIntError(Msg, AHelpContext) { }
  657.     #pragma option pop
  658.     #pragma option push -w-inl
  659.     /* Exception.CreateFmtHelp */ inline __fastcall ERangeError(const AnsiString Msg, const System::TVarRec 
  660.         * Args, const int Args_Size, int AHelpContext) : EIntError(Msg, Args, Args_Size, AHelpContext) { }
  661.         
  662.     #pragma option pop
  663.     #pragma option push -w-inl
  664.     /* Exception.CreateResHelp */ inline __fastcall ERangeError(int Ident, int AHelpContext)/* overload */
  665.          : EIntError(Ident, AHelpContext) { }
  666.     #pragma option pop
  667.     #pragma option push -w-inl
  668.     /* Exception.CreateResFmtHelp */ inline __fastcall ERangeError(System::PResStringRec ResStringRec, 
  669.         const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EIntError(ResStringRec
  670.         , Args, Args_Size, AHelpContext) { }
  671.     #pragma option pop
  672.     
  673. public:
  674.     #pragma option push -w-inl
  675.     /* TObject.Destroy */ inline __fastcall virtual ~ERangeError(void) { }
  676.     #pragma option pop
  677.     
  678. };
  679.  
  680.  
  681. class DELPHICLASS EIntOverflow;
  682. class PASCALIMPLEMENTATION EIntOverflow : public EIntError 
  683. {
  684.     typedef EIntError inherited;
  685.     
  686. public:
  687.     #pragma option push -w-inl
  688.     /* Exception.Create */ inline __fastcall EIntOverflow(const AnsiString Msg) : EIntError(Msg) { }
  689.     #pragma option pop
  690.     #pragma option push -w-inl
  691.     /* Exception.CreateFmt */ inline __fastcall EIntOverflow(const AnsiString Msg, const System::TVarRec 
  692.         * Args, const int Args_Size) : EIntError(Msg, Args, Args_Size) { }
  693.     #pragma option pop
  694.     #pragma option push -w-inl
  695.     /* Exception.CreateRes */ inline __fastcall EIntOverflow(int Ident)/* overload */ : EIntError(Ident
  696.         ) { }
  697.     #pragma option pop
  698.     #pragma option push -w-inl
  699.     /* Exception.CreateResFmt */ inline __fastcall EIntOverflow(int Ident, const System::TVarRec * Args
  700.         , const int Args_Size)/* overload */ : EIntError(Ident, Args, Args_Size) { }
  701.     #pragma option pop
  702.     #pragma option push -w-inl
  703.     /* Exception.CreateHelp */ inline __fastcall EIntOverflow(const AnsiString Msg, int AHelpContext) : 
  704.         EIntError(Msg, AHelpContext) { }
  705.     #pragma option pop
  706.     #pragma option push -w-inl
  707.     /* Exception.CreateFmtHelp */ inline __fastcall EIntOverflow(const AnsiString Msg, const System::TVarRec 
  708.         * Args, const int Args_Size, int AHelpContext) : EIntError(Msg, Args, Args_Size, AHelpContext) { }
  709.         
  710.     #pragma option pop
  711.     #pragma option push -w-inl
  712.     /* Exception.CreateResHelp */ inline __fastcall EIntOverflow(int Ident, int AHelpContext)/* overload */
  713.          : EIntError(Ident, AHelpContext) { }
  714.     #pragma option pop
  715.     #pragma option push -w-inl
  716.     /* Exception.CreateResFmtHelp */ inline __fastcall EIntOverflow(System::PResStringRec ResStringRec, 
  717.         const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EIntError(ResStringRec
  718.         , Args, Args_Size, AHelpContext) { }
  719.     #pragma option pop
  720.     
  721. public:
  722.     #pragma option push -w-inl
  723.     /* TObject.Destroy */ inline __fastcall virtual ~EIntOverflow(void) { }
  724.     #pragma option pop
  725.     
  726. };
  727.  
  728.  
  729. class DELPHICLASS EMathError;
  730. class PASCALIMPLEMENTATION EMathError : public EExternal 
  731. {
  732.     typedef EExternal inherited;
  733.     
  734. public:
  735.     #pragma option push -w-inl
  736.     /* Exception.Create */ inline __fastcall EMathError(const AnsiString Msg) : EExternal(Msg) { }
  737.     #pragma option pop
  738.     #pragma option push -w-inl
  739.     /* Exception.CreateFmt */ inline __fastcall EMathError(const AnsiString Msg, const System::TVarRec 
  740.         * Args, const int Args_Size) : EExternal(Msg, Args, Args_Size) { }
  741.     #pragma option pop
  742.     #pragma option push -w-inl
  743.     /* Exception.CreateRes */ inline __fastcall EMathError(int Ident)/* overload */ : EExternal(Ident) { }
  744.         
  745.     #pragma option pop
  746.     #pragma option push -w-inl
  747.     /* Exception.CreateResFmt */ inline __fastcall EMathError(int Ident, const System::TVarRec * Args, 
  748.         const int Args_Size)/* overload */ : EExternal(Ident, Args, Args_Size) { }
  749.     #pragma option pop
  750.     #pragma option push -w-inl
  751.     /* Exception.CreateHelp */ inline __fastcall EMathError(const AnsiString Msg, int AHelpContext) : EExternal(
  752.         Msg, AHelpContext) { }
  753.     #pragma option pop
  754.     #pragma option push -w-inl
  755.     /* Exception.CreateFmtHelp */ inline __fastcall EMathError(const AnsiString Msg, const System::TVarRec 
  756.         * Args, const int Args_Size, int AHelpContext) : EExternal(Msg, Args, Args_Size, AHelpContext) { }
  757.         
  758.     #pragma option pop
  759.     #pragma option push -w-inl
  760.     /* Exception.CreateResHelp */ inline __fastcall EMathError(int Ident, int AHelpContext)/* overload */
  761.          : EExternal(Ident, AHelpContext) { }
  762.     #pragma option pop
  763.     #pragma option push -w-inl
  764.     /* Exception.CreateResFmtHelp */ inline __fastcall EMathError(System::PResStringRec ResStringRec, const 
  765.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EExternal(ResStringRec
  766.         , Args, Args_Size, AHelpContext) { }
  767.     #pragma option pop
  768.     
  769. public:
  770.     #pragma option push -w-inl
  771.     /* TObject.Destroy */ inline __fastcall virtual ~EMathError(void) { }
  772.     #pragma option pop
  773.     
  774. };
  775.  
  776.  
  777. class DELPHICLASS EInvalidOp;
  778. class PASCALIMPLEMENTATION EInvalidOp : public EMathError 
  779. {
  780.     typedef EMathError inherited;
  781.     
  782. public:
  783.     #pragma option push -w-inl
  784.     /* Exception.Create */ inline __fastcall EInvalidOp(const AnsiString Msg) : EMathError(Msg) { }
  785.     #pragma option pop
  786.     #pragma option push -w-inl
  787.     /* Exception.CreateFmt */ inline __fastcall EInvalidOp(const AnsiString Msg, const System::TVarRec 
  788.         * Args, const int Args_Size) : EMathError(Msg, Args, Args_Size) { }
  789.     #pragma option pop
  790.     #pragma option push -w-inl
  791.     /* Exception.CreateRes */ inline __fastcall EInvalidOp(int Ident)/* overload */ : EMathError(Ident)
  792.          { }
  793.     #pragma option pop
  794.     #pragma option push -w-inl
  795.     /* Exception.CreateResFmt */ inline __fastcall EInvalidOp(int Ident, const System::TVarRec * Args, 
  796.         const int Args_Size)/* overload */ : EMathError(Ident, Args, Args_Size) { }
  797.     #pragma option pop
  798.     #pragma option push -w-inl
  799.     /* Exception.CreateHelp */ inline __fastcall EInvalidOp(const AnsiString Msg, int AHelpContext) : EMathError(
  800.         Msg, AHelpContext) { }
  801.     #pragma option pop
  802.     #pragma option push -w-inl
  803.     /* Exception.CreateFmtHelp */ inline __fastcall EInvalidOp(const AnsiString Msg, const System::TVarRec 
  804.         * Args, const int Args_Size, int AHelpContext) : EMathError(Msg, Args, Args_Size, AHelpContext) { }
  805.         
  806.     #pragma option pop
  807.     #pragma option push -w-inl
  808.     /* Exception.CreateResHelp */ inline __fastcall EInvalidOp(int Ident, int AHelpContext)/* overload */
  809.          : EMathError(Ident, AHelpContext) { }
  810.     #pragma option pop
  811.     #pragma option push -w-inl
  812.     /* Exception.CreateResFmtHelp */ inline __fastcall EInvalidOp(System::PResStringRec ResStringRec, const 
  813.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EMathError(ResStringRec
  814.         , Args, Args_Size, AHelpContext) { }
  815.     #pragma option pop
  816.     
  817. public:
  818.     #pragma option push -w-inl
  819.     /* TObject.Destroy */ inline __fastcall virtual ~EInvalidOp(void) { }
  820.     #pragma option pop
  821.     
  822. };
  823.  
  824.  
  825. class DELPHICLASS EZeroDivide;
  826. class PASCALIMPLEMENTATION EZeroDivide : public EMathError 
  827. {
  828.     typedef EMathError inherited;
  829.     
  830. public:
  831.     #pragma option push -w-inl
  832.     /* Exception.Create */ inline __fastcall EZeroDivide(const AnsiString Msg) : EMathError(Msg) { }
  833.     #pragma option pop
  834.     #pragma option push -w-inl
  835.     /* Exception.CreateFmt */ inline __fastcall EZeroDivide(const AnsiString Msg, const System::TVarRec 
  836.         * Args, const int Args_Size) : EMathError(Msg, Args, Args_Size) { }
  837.     #pragma option pop
  838.     #pragma option push -w-inl
  839.     /* Exception.CreateRes */ inline __fastcall EZeroDivide(int Ident)/* overload */ : EMathError(Ident
  840.         ) { }
  841.     #pragma option pop
  842.     #pragma option push -w-inl
  843.     /* Exception.CreateResFmt */ inline __fastcall EZeroDivide(int Ident, const System::TVarRec * Args, 
  844.         const int Args_Size)/* overload */ : EMathError(Ident, Args, Args_Size) { }
  845.     #pragma option pop
  846.     #pragma option push -w-inl
  847.     /* Exception.CreateHelp */ inline __fastcall EZeroDivide(const AnsiString Msg, int AHelpContext) : 
  848.         EMathError(Msg, AHelpContext) { }
  849.     #pragma option pop
  850.     #pragma option push -w-inl
  851.     /* Exception.CreateFmtHelp */ inline __fastcall EZeroDivide(const AnsiString Msg, const System::TVarRec 
  852.         * Args, const int Args_Size, int AHelpContext) : EMathError(Msg, Args, Args_Size, AHelpContext) { }
  853.         
  854.     #pragma option pop
  855.     #pragma option push -w-inl
  856.     /* Exception.CreateResHelp */ inline __fastcall EZeroDivide(int Ident, int AHelpContext)/* overload */
  857.          : EMathError(Ident, AHelpContext) { }
  858.     #pragma option pop
  859.     #pragma option push -w-inl
  860.     /* Exception.CreateResFmtHelp */ inline __fastcall EZeroDivide(System::PResStringRec ResStringRec, 
  861.         const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EMathError(ResStringRec
  862.         , Args, Args_Size, AHelpContext) { }
  863.     #pragma option pop
  864.     
  865. public:
  866.     #pragma option push -w-inl
  867.     /* TObject.Destroy */ inline __fastcall virtual ~EZeroDivide(void) { }
  868.     #pragma option pop
  869.     
  870. };
  871.  
  872.  
  873. class DELPHICLASS EOverflow;
  874. class PASCALIMPLEMENTATION EOverflow : public EMathError 
  875. {
  876.     typedef EMathError inherited;
  877.     
  878. public:
  879.     #pragma option push -w-inl
  880.     /* Exception.Create */ inline __fastcall EOverflow(const AnsiString Msg) : EMathError(Msg) { }
  881.     #pragma option pop
  882.     #pragma option push -w-inl
  883.     /* Exception.CreateFmt */ inline __fastcall EOverflow(const AnsiString Msg, const System::TVarRec * 
  884.         Args, const int Args_Size) : EMathError(Msg, Args, Args_Size) { }
  885.     #pragma option pop
  886.     #pragma option push -w-inl
  887.     /* Exception.CreateRes */ inline __fastcall EOverflow(int Ident)/* overload */ : EMathError(Ident) { }
  888.         
  889.     #pragma option pop
  890.     #pragma option push -w-inl
  891.     /* Exception.CreateResFmt */ inline __fastcall EOverflow(int Ident, const System::TVarRec * Args, const 
  892.         int Args_Size)/* overload */ : EMathError(Ident, Args, Args_Size) { }
  893.     #pragma option pop
  894.     #pragma option push -w-inl
  895.     /* Exception.CreateHelp */ inline __fastcall EOverflow(const AnsiString Msg, int AHelpContext) : EMathError(
  896.         Msg, AHelpContext) { }
  897.     #pragma option pop
  898.     #pragma option push -w-inl
  899.     /* Exception.CreateFmtHelp */ inline __fastcall EOverflow(const AnsiString Msg, const System::TVarRec 
  900.         * Args, const int Args_Size, int AHelpContext) : EMathError(Msg, Args, Args_Size, AHelpContext) { }
  901.         
  902.     #pragma option pop
  903.     #pragma option push -w-inl
  904.     /* Exception.CreateResHelp */ inline __fastcall EOverflow(int Ident, int AHelpContext)/* overload */
  905.          : EMathError(Ident, AHelpContext) { }
  906.     #pragma option pop
  907.     #pragma option push -w-inl
  908.     /* Exception.CreateResFmtHelp */ inline __fastcall EOverflow(System::PResStringRec ResStringRec, const 
  909.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EMathError(ResStringRec
  910.         , Args, Args_Size, AHelpContext) { }
  911.     #pragma option pop
  912.     
  913. public:
  914.     #pragma option push -w-inl
  915.     /* TObject.Destroy */ inline __fastcall virtual ~EOverflow(void) { }
  916.     #pragma option pop
  917.     
  918. };
  919.  
  920.  
  921. class DELPHICLASS EUnderflow;
  922. class PASCALIMPLEMENTATION EUnderflow : public EMathError 
  923. {
  924.     typedef EMathError inherited;
  925.     
  926. public:
  927.     #pragma option push -w-inl
  928.     /* Exception.Create */ inline __fastcall EUnderflow(const AnsiString Msg) : EMathError(Msg) { }
  929.     #pragma option pop
  930.     #pragma option push -w-inl
  931.     /* Exception.CreateFmt */ inline __fastcall EUnderflow(const AnsiString Msg, const System::TVarRec 
  932.         * Args, const int Args_Size) : EMathError(Msg, Args, Args_Size) { }
  933.     #pragma option pop
  934.     #pragma option push -w-inl
  935.     /* Exception.CreateRes */ inline __fastcall EUnderflow(int Ident)/* overload */ : EMathError(Ident)
  936.          { }
  937.     #pragma option pop
  938.     #pragma option push -w-inl
  939.     /* Exception.CreateResFmt */ inline __fastcall EUnderflow(int Ident, const System::TVarRec * Args, 
  940.         const int Args_Size)/* overload */ : EMathError(Ident, Args, Args_Size) { }
  941.     #pragma option pop
  942.     #pragma option push -w-inl
  943.     /* Exception.CreateHelp */ inline __fastcall EUnderflow(const AnsiString Msg, int AHelpContext) : EMathError(
  944.         Msg, AHelpContext) { }
  945.     #pragma option pop
  946.     #pragma option push -w-inl
  947.     /* Exception.CreateFmtHelp */ inline __fastcall EUnderflow(const AnsiString Msg, const System::TVarRec 
  948.         * Args, const int Args_Size, int AHelpContext) : EMathError(Msg, Args, Args_Size, AHelpContext) { }
  949.         
  950.     #pragma option pop
  951.     #pragma option push -w-inl
  952.     /* Exception.CreateResHelp */ inline __fastcall EUnderflow(int Ident, int AHelpContext)/* overload */
  953.          : EMathError(Ident, AHelpContext) { }
  954.     #pragma option pop
  955.     #pragma option push -w-inl
  956.     /* Exception.CreateResFmtHelp */ inline __fastcall EUnderflow(System::PResStringRec ResStringRec, const 
  957.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EMathError(ResStringRec
  958.         , Args, Args_Size, AHelpContext) { }
  959.     #pragma option pop
  960.     
  961. public:
  962.     #pragma option push -w-inl
  963.     /* TObject.Destroy */ inline __fastcall virtual ~EUnderflow(void) { }
  964.     #pragma option pop
  965.     
  966. };
  967.  
  968.  
  969. class DELPHICLASS EInvalidPointer;
  970. class PASCALIMPLEMENTATION EInvalidPointer : public EHeapException 
  971. {
  972.     typedef EHeapException inherited;
  973.     
  974. public:
  975.     #pragma option push -w-inl
  976.     /* Exception.Create */ inline __fastcall EInvalidPointer(const AnsiString Msg) : EHeapException(Msg
  977.         ) { }
  978.     #pragma option pop
  979.     #pragma option push -w-inl
  980.     /* Exception.CreateFmt */ inline __fastcall EInvalidPointer(const AnsiString Msg, const System::TVarRec 
  981.         * Args, const int Args_Size) : EHeapException(Msg, Args, Args_Size) { }
  982.     #pragma option pop
  983.     #pragma option push -w-inl
  984.     /* Exception.CreateRes */ inline __fastcall EInvalidPointer(int Ident)/* overload */ : EHeapException(
  985.         Ident) { }
  986.     #pragma option pop
  987.     #pragma option push -w-inl
  988.     /* Exception.CreateResFmt */ inline __fastcall EInvalidPointer(int Ident, const System::TVarRec * Args
  989.         , const int Args_Size)/* overload */ : EHeapException(Ident, Args, Args_Size) { }
  990.     #pragma option pop
  991.     #pragma option push -w-inl
  992.     /* Exception.CreateHelp */ inline __fastcall EInvalidPointer(const AnsiString Msg, int AHelpContext
  993.         ) : EHeapException(Msg, AHelpContext) { }
  994.     #pragma option pop
  995.     #pragma option push -w-inl
  996.     /* Exception.CreateFmtHelp */ inline __fastcall EInvalidPointer(const AnsiString Msg, const System::TVarRec 
  997.         * Args, const int Args_Size, int AHelpContext) : EHeapException(Msg, Args, Args_Size, AHelpContext
  998.         ) { }
  999.     #pragma option pop
  1000.     #pragma option push -w-inl
  1001.     /* Exception.CreateResHelp */ inline __fastcall EInvalidPointer(int Ident, int AHelpContext)/* overload */
  1002.          : EHeapException(Ident, AHelpContext) { }
  1003.     #pragma option pop
  1004.     #pragma option push -w-inl
  1005.     /* Exception.CreateResFmtHelp */ inline __fastcall EInvalidPointer(System::PResStringRec ResStringRec
  1006.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EHeapException(
  1007.         ResStringRec, Args, Args_Size, AHelpContext) { }
  1008.     #pragma option pop
  1009.     
  1010. public:
  1011.     #pragma option push -w-inl
  1012.     /* TObject.Destroy */ inline __fastcall virtual ~EInvalidPointer(void) { }
  1013.     #pragma option pop
  1014.     
  1015. };
  1016.  
  1017.  
  1018. class DELPHICLASS EInvalidCast;
  1019. class PASCALIMPLEMENTATION EInvalidCast : public Exception 
  1020. {
  1021.     typedef Exception inherited;
  1022.     
  1023. public:
  1024.     #pragma option push -w-inl
  1025.     /* Exception.Create */ inline __fastcall EInvalidCast(const AnsiString Msg) : Exception(Msg) { }
  1026.     #pragma option pop
  1027.     #pragma option push -w-inl
  1028.     /* Exception.CreateFmt */ inline __fastcall EInvalidCast(const AnsiString Msg, const System::TVarRec 
  1029.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1030.     #pragma option pop
  1031.     #pragma option push -w-inl
  1032.     /* Exception.CreateRes */ inline __fastcall EInvalidCast(int Ident)/* overload */ : Exception(Ident
  1033.         ) { }
  1034.     #pragma option pop
  1035.     #pragma option push -w-inl
  1036.     /* Exception.CreateResFmt */ inline __fastcall EInvalidCast(int Ident, const System::TVarRec * Args
  1037.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1038.     #pragma option pop
  1039.     #pragma option push -w-inl
  1040.     /* Exception.CreateHelp */ inline __fastcall EInvalidCast(const AnsiString Msg, int AHelpContext) : 
  1041.         Exception(Msg, AHelpContext) { }
  1042.     #pragma option pop
  1043.     #pragma option push -w-inl
  1044.     /* Exception.CreateFmtHelp */ inline __fastcall EInvalidCast(const AnsiString Msg, const System::TVarRec 
  1045.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1046.         
  1047.     #pragma option pop
  1048.     #pragma option push -w-inl
  1049.     /* Exception.CreateResHelp */ inline __fastcall EInvalidCast(int Ident, int AHelpContext)/* overload */
  1050.          : Exception(Ident, AHelpContext) { }
  1051.     #pragma option pop
  1052.     #pragma option push -w-inl
  1053.     /* Exception.CreateResFmtHelp */ inline __fastcall EInvalidCast(System::PResStringRec ResStringRec, 
  1054.         const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1055.         , Args, Args_Size, AHelpContext) { }
  1056.     #pragma option pop
  1057.     
  1058. public:
  1059.     #pragma option push -w-inl
  1060.     /* TObject.Destroy */ inline __fastcall virtual ~EInvalidCast(void) { }
  1061.     #pragma option pop
  1062.     
  1063. };
  1064.  
  1065.  
  1066. class DELPHICLASS EConvertError;
  1067. class PASCALIMPLEMENTATION EConvertError : public Exception 
  1068. {
  1069.     typedef Exception inherited;
  1070.     
  1071. public:
  1072.     #pragma option push -w-inl
  1073.     /* Exception.Create */ inline __fastcall EConvertError(const AnsiString Msg) : Exception(Msg) { }
  1074.     #pragma option pop
  1075.     #pragma option push -w-inl
  1076.     /* Exception.CreateFmt */ inline __fastcall EConvertError(const AnsiString Msg, const System::TVarRec 
  1077.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1078.     #pragma option pop
  1079.     #pragma option push -w-inl
  1080.     /* Exception.CreateRes */ inline __fastcall EConvertError(int Ident)/* overload */ : Exception(Ident
  1081.         ) { }
  1082.     #pragma option pop
  1083.     #pragma option push -w-inl
  1084.     /* Exception.CreateResFmt */ inline __fastcall EConvertError(int Ident, const System::TVarRec * Args
  1085.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1086.     #pragma option pop
  1087.     #pragma option push -w-inl
  1088.     /* Exception.CreateHelp */ inline __fastcall EConvertError(const AnsiString Msg, int AHelpContext) : 
  1089.         Exception(Msg, AHelpContext) { }
  1090.     #pragma option pop
  1091.     #pragma option push -w-inl
  1092.     /* Exception.CreateFmtHelp */ inline __fastcall EConvertError(const AnsiString Msg, const System::TVarRec 
  1093.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1094.         
  1095.     #pragma option pop
  1096.     #pragma option push -w-inl
  1097.     /* Exception.CreateResHelp */ inline __fastcall EConvertError(int Ident, int AHelpContext)/* overload */
  1098.          : Exception(Ident, AHelpContext) { }
  1099.     #pragma option pop
  1100.     #pragma option push -w-inl
  1101.     /* Exception.CreateResFmtHelp */ inline __fastcall EConvertError(System::PResStringRec ResStringRec
  1102.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1103.         , Args, Args_Size, AHelpContext) { }
  1104.     #pragma option pop
  1105.     
  1106. public:
  1107.     #pragma option push -w-inl
  1108.     /* TObject.Destroy */ inline __fastcall virtual ~EConvertError(void) { }
  1109.     #pragma option pop
  1110.     
  1111. };
  1112.  
  1113.  
  1114. class DELPHICLASS EAccessViolation;
  1115. class PASCALIMPLEMENTATION EAccessViolation : public EExternal 
  1116. {
  1117.     typedef EExternal inherited;
  1118.     
  1119. public:
  1120.     #pragma option push -w-inl
  1121.     /* Exception.Create */ inline __fastcall EAccessViolation(const AnsiString Msg) : EExternal(Msg) { }
  1122.         
  1123.     #pragma option pop
  1124.     #pragma option push -w-inl
  1125.     /* Exception.CreateFmt */ inline __fastcall EAccessViolation(const AnsiString Msg, const System::TVarRec 
  1126.         * Args, const int Args_Size) : EExternal(Msg, Args, Args_Size) { }
  1127.     #pragma option pop
  1128.     #pragma option push -w-inl
  1129.     /* Exception.CreateRes */ inline __fastcall EAccessViolation(int Ident)/* overload */ : EExternal(Ident
  1130.         ) { }
  1131.     #pragma option pop
  1132.     #pragma option push -w-inl
  1133.     /* Exception.CreateResFmt */ inline __fastcall EAccessViolation(int Ident, const System::TVarRec * 
  1134.         Args, const int Args_Size)/* overload */ : EExternal(Ident, Args, Args_Size) { }
  1135.     #pragma option pop
  1136.     #pragma option push -w-inl
  1137.     /* Exception.CreateHelp */ inline __fastcall EAccessViolation(const AnsiString Msg, int AHelpContext
  1138.         ) : EExternal(Msg, AHelpContext) { }
  1139.     #pragma option pop
  1140.     #pragma option push -w-inl
  1141.     /* Exception.CreateFmtHelp */ inline __fastcall EAccessViolation(const AnsiString Msg, const System::TVarRec 
  1142.         * Args, const int Args_Size, int AHelpContext) : EExternal(Msg, Args, Args_Size, AHelpContext) { }
  1143.         
  1144.     #pragma option pop
  1145.     #pragma option push -w-inl
  1146.     /* Exception.CreateResHelp */ inline __fastcall EAccessViolation(int Ident, int AHelpContext)/* overload */
  1147.          : EExternal(Ident, AHelpContext) { }
  1148.     #pragma option pop
  1149.     #pragma option push -w-inl
  1150.     /* Exception.CreateResFmtHelp */ inline __fastcall EAccessViolation(System::PResStringRec ResStringRec
  1151.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EExternal(ResStringRec
  1152.         , Args, Args_Size, AHelpContext) { }
  1153.     #pragma option pop
  1154.     
  1155. public:
  1156.     #pragma option push -w-inl
  1157.     /* TObject.Destroy */ inline __fastcall virtual ~EAccessViolation(void) { }
  1158.     #pragma option pop
  1159.     
  1160. };
  1161.  
  1162.  
  1163. class DELPHICLASS EPrivilege;
  1164. class PASCALIMPLEMENTATION EPrivilege : public EExternal 
  1165. {
  1166.     typedef EExternal inherited;
  1167.     
  1168. public:
  1169.     #pragma option push -w-inl
  1170.     /* Exception.Create */ inline __fastcall EPrivilege(const AnsiString Msg) : EExternal(Msg) { }
  1171.     #pragma option pop
  1172.     #pragma option push -w-inl
  1173.     /* Exception.CreateFmt */ inline __fastcall EPrivilege(const AnsiString Msg, const System::TVarRec 
  1174.         * Args, const int Args_Size) : EExternal(Msg, Args, Args_Size) { }
  1175.     #pragma option pop
  1176.     #pragma option push -w-inl
  1177.     /* Exception.CreateRes */ inline __fastcall EPrivilege(int Ident)/* overload */ : EExternal(Ident) { }
  1178.         
  1179.     #pragma option pop
  1180.     #pragma option push -w-inl
  1181.     /* Exception.CreateResFmt */ inline __fastcall EPrivilege(int Ident, const System::TVarRec * Args, 
  1182.         const int Args_Size)/* overload */ : EExternal(Ident, Args, Args_Size) { }
  1183.     #pragma option pop
  1184.     #pragma option push -w-inl
  1185.     /* Exception.CreateHelp */ inline __fastcall EPrivilege(const AnsiString Msg, int AHelpContext) : EExternal(
  1186.         Msg, AHelpContext) { }
  1187.     #pragma option pop
  1188.     #pragma option push -w-inl
  1189.     /* Exception.CreateFmtHelp */ inline __fastcall EPrivilege(const AnsiString Msg, const System::TVarRec 
  1190.         * Args, const int Args_Size, int AHelpContext) : EExternal(Msg, Args, Args_Size, AHelpContext) { }
  1191.         
  1192.     #pragma option pop
  1193.     #pragma option push -w-inl
  1194.     /* Exception.CreateResHelp */ inline __fastcall EPrivilege(int Ident, int AHelpContext)/* overload */
  1195.          : EExternal(Ident, AHelpContext) { }
  1196.     #pragma option pop
  1197.     #pragma option push -w-inl
  1198.     /* Exception.CreateResFmtHelp */ inline __fastcall EPrivilege(System::PResStringRec ResStringRec, const 
  1199.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EExternal(ResStringRec
  1200.         , Args, Args_Size, AHelpContext) { }
  1201.     #pragma option pop
  1202.     
  1203. public:
  1204.     #pragma option push -w-inl
  1205.     /* TObject.Destroy */ inline __fastcall virtual ~EPrivilege(void) { }
  1206.     #pragma option pop
  1207.     
  1208. };
  1209.  
  1210.  
  1211. class DELPHICLASS EStackOverflow;
  1212. class PASCALIMPLEMENTATION EStackOverflow : public EExternal 
  1213. {
  1214.     typedef EExternal inherited;
  1215.     
  1216. public:
  1217.     #pragma option push -w-inl
  1218.     /* Exception.Create */ inline __fastcall EStackOverflow(const AnsiString Msg) : EExternal(Msg) { }
  1219.     #pragma option pop
  1220.     #pragma option push -w-inl
  1221.     /* Exception.CreateFmt */ inline __fastcall EStackOverflow(const AnsiString Msg, const System::TVarRec 
  1222.         * Args, const int Args_Size) : EExternal(Msg, Args, Args_Size) { }
  1223.     #pragma option pop
  1224.     #pragma option push -w-inl
  1225.     /* Exception.CreateRes */ inline __fastcall EStackOverflow(int Ident)/* overload */ : EExternal(Ident
  1226.         ) { }
  1227.     #pragma option pop
  1228.     #pragma option push -w-inl
  1229.     /* Exception.CreateResFmt */ inline __fastcall EStackOverflow(int Ident, const System::TVarRec * Args
  1230.         , const int Args_Size)/* overload */ : EExternal(Ident, Args, Args_Size) { }
  1231.     #pragma option pop
  1232.     #pragma option push -w-inl
  1233.     /* Exception.CreateHelp */ inline __fastcall EStackOverflow(const AnsiString Msg, int AHelpContext)
  1234.          : EExternal(Msg, AHelpContext) { }
  1235.     #pragma option pop
  1236.     #pragma option push -w-inl
  1237.     /* Exception.CreateFmtHelp */ inline __fastcall EStackOverflow(const AnsiString Msg, const System::TVarRec 
  1238.         * Args, const int Args_Size, int AHelpContext) : EExternal(Msg, Args, Args_Size, AHelpContext) { }
  1239.         
  1240.     #pragma option pop
  1241.     #pragma option push -w-inl
  1242.     /* Exception.CreateResHelp */ inline __fastcall EStackOverflow(int Ident, int AHelpContext)/* overload */
  1243.          : EExternal(Ident, AHelpContext) { }
  1244.     #pragma option pop
  1245.     #pragma option push -w-inl
  1246.     /* Exception.CreateResFmtHelp */ inline __fastcall EStackOverflow(System::PResStringRec ResStringRec
  1247.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EExternal(ResStringRec
  1248.         , Args, Args_Size, AHelpContext) { }
  1249.     #pragma option pop
  1250.     
  1251. public:
  1252.     #pragma option push -w-inl
  1253.     /* TObject.Destroy */ inline __fastcall virtual ~EStackOverflow(void) { }
  1254.     #pragma option pop
  1255.     
  1256. };
  1257.  
  1258.  
  1259. class DELPHICLASS EControlC;
  1260. class PASCALIMPLEMENTATION EControlC : public EExternal 
  1261. {
  1262.     typedef EExternal inherited;
  1263.     
  1264. public:
  1265.     #pragma option push -w-inl
  1266.     /* Exception.Create */ inline __fastcall EControlC(const AnsiString Msg) : EExternal(Msg) { }
  1267.     #pragma option pop
  1268.     #pragma option push -w-inl
  1269.     /* Exception.CreateFmt */ inline __fastcall EControlC(const AnsiString Msg, const System::TVarRec * 
  1270.         Args, const int Args_Size) : EExternal(Msg, Args, Args_Size) { }
  1271.     #pragma option pop
  1272.     #pragma option push -w-inl
  1273.     /* Exception.CreateRes */ inline __fastcall EControlC(int Ident)/* overload */ : EExternal(Ident) { }
  1274.         
  1275.     #pragma option pop
  1276.     #pragma option push -w-inl
  1277.     /* Exception.CreateResFmt */ inline __fastcall EControlC(int Ident, const System::TVarRec * Args, const 
  1278.         int Args_Size)/* overload */ : EExternal(Ident, Args, Args_Size) { }
  1279.     #pragma option pop
  1280.     #pragma option push -w-inl
  1281.     /* Exception.CreateHelp */ inline __fastcall EControlC(const AnsiString Msg, int AHelpContext) : EExternal(
  1282.         Msg, AHelpContext) { }
  1283.     #pragma option pop
  1284.     #pragma option push -w-inl
  1285.     /* Exception.CreateFmtHelp */ inline __fastcall EControlC(const AnsiString Msg, const System::TVarRec 
  1286.         * Args, const int Args_Size, int AHelpContext) : EExternal(Msg, Args, Args_Size, AHelpContext) { }
  1287.         
  1288.     #pragma option pop
  1289.     #pragma option push -w-inl
  1290.     /* Exception.CreateResHelp */ inline __fastcall EControlC(int Ident, int AHelpContext)/* overload */
  1291.          : EExternal(Ident, AHelpContext) { }
  1292.     #pragma option pop
  1293.     #pragma option push -w-inl
  1294.     /* Exception.CreateResFmtHelp */ inline __fastcall EControlC(System::PResStringRec ResStringRec, const 
  1295.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : EExternal(ResStringRec
  1296.         , Args, Args_Size, AHelpContext) { }
  1297.     #pragma option pop
  1298.     
  1299. public:
  1300.     #pragma option push -w-inl
  1301.     /* TObject.Destroy */ inline __fastcall virtual ~EControlC(void) { }
  1302.     #pragma option pop
  1303.     
  1304. };
  1305.  
  1306.  
  1307. class DELPHICLASS EVariantError;
  1308. class PASCALIMPLEMENTATION EVariantError : public Exception 
  1309. {
  1310.     typedef Exception inherited;
  1311.     
  1312. public:
  1313.     #pragma option push -w-inl
  1314.     /* Exception.Create */ inline __fastcall EVariantError(const AnsiString Msg) : Exception(Msg) { }
  1315.     #pragma option pop
  1316.     #pragma option push -w-inl
  1317.     /* Exception.CreateFmt */ inline __fastcall EVariantError(const AnsiString Msg, const System::TVarRec 
  1318.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1319.     #pragma option pop
  1320.     #pragma option push -w-inl
  1321.     /* Exception.CreateRes */ inline __fastcall EVariantError(int Ident)/* overload */ : Exception(Ident
  1322.         ) { }
  1323.     #pragma option pop
  1324.     #pragma option push -w-inl
  1325.     /* Exception.CreateResFmt */ inline __fastcall EVariantError(int Ident, const System::TVarRec * Args
  1326.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1327.     #pragma option pop
  1328.     #pragma option push -w-inl
  1329.     /* Exception.CreateHelp */ inline __fastcall EVariantError(const AnsiString Msg, int AHelpContext) : 
  1330.         Exception(Msg, AHelpContext) { }
  1331.     #pragma option pop
  1332.     #pragma option push -w-inl
  1333.     /* Exception.CreateFmtHelp */ inline __fastcall EVariantError(const AnsiString Msg, const System::TVarRec 
  1334.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1335.         
  1336.     #pragma option pop
  1337.     #pragma option push -w-inl
  1338.     /* Exception.CreateResHelp */ inline __fastcall EVariantError(int Ident, int AHelpContext)/* overload */
  1339.          : Exception(Ident, AHelpContext) { }
  1340.     #pragma option pop
  1341.     #pragma option push -w-inl
  1342.     /* Exception.CreateResFmtHelp */ inline __fastcall EVariantError(System::PResStringRec ResStringRec
  1343.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1344.         , Args, Args_Size, AHelpContext) { }
  1345.     #pragma option pop
  1346.     
  1347. public:
  1348.     #pragma option push -w-inl
  1349.     /* TObject.Destroy */ inline __fastcall virtual ~EVariantError(void) { }
  1350.     #pragma option pop
  1351.     
  1352. };
  1353.  
  1354.  
  1355. class DELPHICLASS EPropReadOnly;
  1356. class PASCALIMPLEMENTATION EPropReadOnly : public Exception 
  1357. {
  1358.     typedef Exception inherited;
  1359.     
  1360. public:
  1361.     #pragma option push -w-inl
  1362.     /* Exception.Create */ inline __fastcall EPropReadOnly(const AnsiString Msg) : Exception(Msg) { }
  1363.     #pragma option pop
  1364.     #pragma option push -w-inl
  1365.     /* Exception.CreateFmt */ inline __fastcall EPropReadOnly(const AnsiString Msg, const System::TVarRec 
  1366.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1367.     #pragma option pop
  1368.     #pragma option push -w-inl
  1369.     /* Exception.CreateRes */ inline __fastcall EPropReadOnly(int Ident)/* overload */ : Exception(Ident
  1370.         ) { }
  1371.     #pragma option pop
  1372.     #pragma option push -w-inl
  1373.     /* Exception.CreateResFmt */ inline __fastcall EPropReadOnly(int Ident, const System::TVarRec * Args
  1374.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1375.     #pragma option pop
  1376.     #pragma option push -w-inl
  1377.     /* Exception.CreateHelp */ inline __fastcall EPropReadOnly(const AnsiString Msg, int AHelpContext) : 
  1378.         Exception(Msg, AHelpContext) { }
  1379.     #pragma option pop
  1380.     #pragma option push -w-inl
  1381.     /* Exception.CreateFmtHelp */ inline __fastcall EPropReadOnly(const AnsiString Msg, const System::TVarRec 
  1382.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1383.         
  1384.     #pragma option pop
  1385.     #pragma option push -w-inl
  1386.     /* Exception.CreateResHelp */ inline __fastcall EPropReadOnly(int Ident, int AHelpContext)/* overload */
  1387.          : Exception(Ident, AHelpContext) { }
  1388.     #pragma option pop
  1389.     #pragma option push -w-inl
  1390.     /* Exception.CreateResFmtHelp */ inline __fastcall EPropReadOnly(System::PResStringRec ResStringRec
  1391.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1392.         , Args, Args_Size, AHelpContext) { }
  1393.     #pragma option pop
  1394.     
  1395. public:
  1396.     #pragma option push -w-inl
  1397.     /* TObject.Destroy */ inline __fastcall virtual ~EPropReadOnly(void) { }
  1398.     #pragma option pop
  1399.     
  1400. };
  1401.  
  1402.  
  1403. class DELPHICLASS EPropWriteOnly;
  1404. class PASCALIMPLEMENTATION EPropWriteOnly : public Exception 
  1405. {
  1406.     typedef Exception inherited;
  1407.     
  1408. public:
  1409.     #pragma option push -w-inl
  1410.     /* Exception.Create */ inline __fastcall EPropWriteOnly(const AnsiString Msg) : Exception(Msg) { }
  1411.     #pragma option pop
  1412.     #pragma option push -w-inl
  1413.     /* Exception.CreateFmt */ inline __fastcall EPropWriteOnly(const AnsiString Msg, const System::TVarRec 
  1414.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1415.     #pragma option pop
  1416.     #pragma option push -w-inl
  1417.     /* Exception.CreateRes */ inline __fastcall EPropWriteOnly(int Ident)/* overload */ : Exception(Ident
  1418.         ) { }
  1419.     #pragma option pop
  1420.     #pragma option push -w-inl
  1421.     /* Exception.CreateResFmt */ inline __fastcall EPropWriteOnly(int Ident, const System::TVarRec * Args
  1422.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1423.     #pragma option pop
  1424.     #pragma option push -w-inl
  1425.     /* Exception.CreateHelp */ inline __fastcall EPropWriteOnly(const AnsiString Msg, int AHelpContext)
  1426.          : Exception(Msg, AHelpContext) { }
  1427.     #pragma option pop
  1428.     #pragma option push -w-inl
  1429.     /* Exception.CreateFmtHelp */ inline __fastcall EPropWriteOnly(const AnsiString Msg, const System::TVarRec 
  1430.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1431.         
  1432.     #pragma option pop
  1433.     #pragma option push -w-inl
  1434.     /* Exception.CreateResHelp */ inline __fastcall EPropWriteOnly(int Ident, int AHelpContext)/* overload */
  1435.          : Exception(Ident, AHelpContext) { }
  1436.     #pragma option pop
  1437.     #pragma option push -w-inl
  1438.     /* Exception.CreateResFmtHelp */ inline __fastcall EPropWriteOnly(System::PResStringRec ResStringRec
  1439.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1440.         , Args, Args_Size, AHelpContext) { }
  1441.     #pragma option pop
  1442.     
  1443. public:
  1444.     #pragma option push -w-inl
  1445.     /* TObject.Destroy */ inline __fastcall virtual ~EPropWriteOnly(void) { }
  1446.     #pragma option pop
  1447.     
  1448. };
  1449.  
  1450.  
  1451. class DELPHICLASS EAssertionFailed;
  1452. class PASCALIMPLEMENTATION EAssertionFailed : public Exception 
  1453. {
  1454.     typedef Exception inherited;
  1455.     
  1456. public:
  1457.     #pragma option push -w-inl
  1458.     /* Exception.Create */ inline __fastcall EAssertionFailed(const AnsiString Msg) : Exception(Msg) { }
  1459.         
  1460.     #pragma option pop
  1461.     #pragma option push -w-inl
  1462.     /* Exception.CreateFmt */ inline __fastcall EAssertionFailed(const AnsiString Msg, const System::TVarRec 
  1463.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1464.     #pragma option pop
  1465.     #pragma option push -w-inl
  1466.     /* Exception.CreateRes */ inline __fastcall EAssertionFailed(int Ident)/* overload */ : Exception(Ident
  1467.         ) { }
  1468.     #pragma option pop
  1469.     #pragma option push -w-inl
  1470.     /* Exception.CreateResFmt */ inline __fastcall EAssertionFailed(int Ident, const System::TVarRec * 
  1471.         Args, const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1472.     #pragma option pop
  1473.     #pragma option push -w-inl
  1474.     /* Exception.CreateHelp */ inline __fastcall EAssertionFailed(const AnsiString Msg, int AHelpContext
  1475.         ) : Exception(Msg, AHelpContext) { }
  1476.     #pragma option pop
  1477.     #pragma option push -w-inl
  1478.     /* Exception.CreateFmtHelp */ inline __fastcall EAssertionFailed(const AnsiString Msg, const System::TVarRec 
  1479.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1480.         
  1481.     #pragma option pop
  1482.     #pragma option push -w-inl
  1483.     /* Exception.CreateResHelp */ inline __fastcall EAssertionFailed(int Ident, int AHelpContext)/* overload */
  1484.          : Exception(Ident, AHelpContext) { }
  1485.     #pragma option pop
  1486.     #pragma option push -w-inl
  1487.     /* Exception.CreateResFmtHelp */ inline __fastcall EAssertionFailed(System::PResStringRec ResStringRec
  1488.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1489.         , Args, Args_Size, AHelpContext) { }
  1490.     #pragma option pop
  1491.     
  1492. public:
  1493.     #pragma option push -w-inl
  1494.     /* TObject.Destroy */ inline __fastcall virtual ~EAssertionFailed(void) { }
  1495.     #pragma option pop
  1496.     
  1497. };
  1498.  
  1499.  
  1500. class DELPHICLASS EAbstractError;
  1501. class PASCALIMPLEMENTATION EAbstractError : public Exception 
  1502. {
  1503.     typedef Exception inherited;
  1504.     
  1505. public:
  1506.     #pragma option push -w-inl
  1507.     /* Exception.Create */ inline __fastcall EAbstractError(const AnsiString Msg) : Exception(Msg) { }
  1508.     #pragma option pop
  1509.     #pragma option push -w-inl
  1510.     /* Exception.CreateFmt */ inline __fastcall EAbstractError(const AnsiString Msg, const System::TVarRec 
  1511.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1512.     #pragma option pop
  1513.     #pragma option push -w-inl
  1514.     /* Exception.CreateRes */ inline __fastcall EAbstractError(int Ident)/* overload */ : Exception(Ident
  1515.         ) { }
  1516.     #pragma option pop
  1517.     #pragma option push -w-inl
  1518.     /* Exception.CreateResFmt */ inline __fastcall EAbstractError(int Ident, const System::TVarRec * Args
  1519.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1520.     #pragma option pop
  1521.     #pragma option push -w-inl
  1522.     /* Exception.CreateHelp */ inline __fastcall EAbstractError(const AnsiString Msg, int AHelpContext)
  1523.          : Exception(Msg, AHelpContext) { }
  1524.     #pragma option pop
  1525.     #pragma option push -w-inl
  1526.     /* Exception.CreateFmtHelp */ inline __fastcall EAbstractError(const AnsiString Msg, const System::TVarRec 
  1527.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1528.         
  1529.     #pragma option pop
  1530.     #pragma option push -w-inl
  1531.     /* Exception.CreateResHelp */ inline __fastcall EAbstractError(int Ident, int AHelpContext)/* overload */
  1532.          : Exception(Ident, AHelpContext) { }
  1533.     #pragma option pop
  1534.     #pragma option push -w-inl
  1535.     /* Exception.CreateResFmtHelp */ inline __fastcall EAbstractError(System::PResStringRec ResStringRec
  1536.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1537.         , Args, Args_Size, AHelpContext) { }
  1538.     #pragma option pop
  1539.     
  1540. public:
  1541.     #pragma option push -w-inl
  1542.     /* TObject.Destroy */ inline __fastcall virtual ~EAbstractError(void) { }
  1543.     #pragma option pop
  1544.     
  1545. };
  1546.  
  1547.  
  1548. class DELPHICLASS EIntfCastError;
  1549. class PASCALIMPLEMENTATION EIntfCastError : public Exception 
  1550. {
  1551.     typedef Exception inherited;
  1552.     
  1553. public:
  1554.     #pragma option push -w-inl
  1555.     /* Exception.Create */ inline __fastcall EIntfCastError(const AnsiString Msg) : Exception(Msg) { }
  1556.     #pragma option pop
  1557.     #pragma option push -w-inl
  1558.     /* Exception.CreateFmt */ inline __fastcall EIntfCastError(const AnsiString Msg, const System::TVarRec 
  1559.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1560.     #pragma option pop
  1561.     #pragma option push -w-inl
  1562.     /* Exception.CreateRes */ inline __fastcall EIntfCastError(int Ident)/* overload */ : Exception(Ident
  1563.         ) { }
  1564.     #pragma option pop
  1565.     #pragma option push -w-inl
  1566.     /* Exception.CreateResFmt */ inline __fastcall EIntfCastError(int Ident, const System::TVarRec * Args
  1567.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1568.     #pragma option pop
  1569.     #pragma option push -w-inl
  1570.     /* Exception.CreateHelp */ inline __fastcall EIntfCastError(const AnsiString Msg, int AHelpContext)
  1571.          : Exception(Msg, AHelpContext) { }
  1572.     #pragma option pop
  1573.     #pragma option push -w-inl
  1574.     /* Exception.CreateFmtHelp */ inline __fastcall EIntfCastError(const AnsiString Msg, const System::TVarRec 
  1575.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1576.         
  1577.     #pragma option pop
  1578.     #pragma option push -w-inl
  1579.     /* Exception.CreateResHelp */ inline __fastcall EIntfCastError(int Ident, int AHelpContext)/* overload */
  1580.          : Exception(Ident, AHelpContext) { }
  1581.     #pragma option pop
  1582.     #pragma option push -w-inl
  1583.     /* Exception.CreateResFmtHelp */ inline __fastcall EIntfCastError(System::PResStringRec ResStringRec
  1584.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1585.         , Args, Args_Size, AHelpContext) { }
  1586.     #pragma option pop
  1587.     
  1588. public:
  1589.     #pragma option push -w-inl
  1590.     /* TObject.Destroy */ inline __fastcall virtual ~EIntfCastError(void) { }
  1591.     #pragma option pop
  1592.     
  1593. };
  1594.  
  1595.  
  1596. class DELPHICLASS EInvalidContainer;
  1597. class PASCALIMPLEMENTATION EInvalidContainer : public Exception 
  1598. {
  1599.     typedef Exception inherited;
  1600.     
  1601. public:
  1602.     #pragma option push -w-inl
  1603.     /* Exception.Create */ inline __fastcall EInvalidContainer(const AnsiString Msg) : Exception(Msg) { }
  1604.         
  1605.     #pragma option pop
  1606.     #pragma option push -w-inl
  1607.     /* Exception.CreateFmt */ inline __fastcall EInvalidContainer(const AnsiString Msg, const System::TVarRec 
  1608.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1609.     #pragma option pop
  1610.     #pragma option push -w-inl
  1611.     /* Exception.CreateRes */ inline __fastcall EInvalidContainer(int Ident)/* overload */ : Exception(
  1612.         Ident) { }
  1613.     #pragma option pop
  1614.     #pragma option push -w-inl
  1615.     /* Exception.CreateResFmt */ inline __fastcall EInvalidContainer(int Ident, const System::TVarRec * 
  1616.         Args, const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1617.     #pragma option pop
  1618.     #pragma option push -w-inl
  1619.     /* Exception.CreateHelp */ inline __fastcall EInvalidContainer(const AnsiString Msg, int AHelpContext
  1620.         ) : Exception(Msg, AHelpContext) { }
  1621.     #pragma option pop
  1622.     #pragma option push -w-inl
  1623.     /* Exception.CreateFmtHelp */ inline __fastcall EInvalidContainer(const AnsiString Msg, const System::TVarRec 
  1624.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1625.         
  1626.     #pragma option pop
  1627.     #pragma option push -w-inl
  1628.     /* Exception.CreateResHelp */ inline __fastcall EInvalidContainer(int Ident, int AHelpContext)/* overload */
  1629.          : Exception(Ident, AHelpContext) { }
  1630.     #pragma option pop
  1631.     #pragma option push -w-inl
  1632.     /* Exception.CreateResFmtHelp */ inline __fastcall EInvalidContainer(System::PResStringRec ResStringRec
  1633.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1634.         , Args, Args_Size, AHelpContext) { }
  1635.     #pragma option pop
  1636.     
  1637. public:
  1638.     #pragma option push -w-inl
  1639.     /* TObject.Destroy */ inline __fastcall virtual ~EInvalidContainer(void) { }
  1640.     #pragma option pop
  1641.     
  1642. };
  1643.  
  1644.  
  1645. class DELPHICLASS EInvalidInsert;
  1646. class PASCALIMPLEMENTATION EInvalidInsert : public Exception 
  1647. {
  1648.     typedef Exception inherited;
  1649.     
  1650. public:
  1651.     #pragma option push -w-inl
  1652.     /* Exception.Create */ inline __fastcall EInvalidInsert(const AnsiString Msg) : Exception(Msg) { }
  1653.     #pragma option pop
  1654.     #pragma option push -w-inl
  1655.     /* Exception.CreateFmt */ inline __fastcall EInvalidInsert(const AnsiString Msg, const System::TVarRec 
  1656.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1657.     #pragma option pop
  1658.     #pragma option push -w-inl
  1659.     /* Exception.CreateRes */ inline __fastcall EInvalidInsert(int Ident)/* overload */ : Exception(Ident
  1660.         ) { }
  1661.     #pragma option pop
  1662.     #pragma option push -w-inl
  1663.     /* Exception.CreateResFmt */ inline __fastcall EInvalidInsert(int Ident, const System::TVarRec * Args
  1664.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1665.     #pragma option pop
  1666.     #pragma option push -w-inl
  1667.     /* Exception.CreateHelp */ inline __fastcall EInvalidInsert(const AnsiString Msg, int AHelpContext)
  1668.          : Exception(Msg, AHelpContext) { }
  1669.     #pragma option pop
  1670.     #pragma option push -w-inl
  1671.     /* Exception.CreateFmtHelp */ inline __fastcall EInvalidInsert(const AnsiString Msg, const System::TVarRec 
  1672.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1673.         
  1674.     #pragma option pop
  1675.     #pragma option push -w-inl
  1676.     /* Exception.CreateResHelp */ inline __fastcall EInvalidInsert(int Ident, int AHelpContext)/* overload */
  1677.          : Exception(Ident, AHelpContext) { }
  1678.     #pragma option pop
  1679.     #pragma option push -w-inl
  1680.     /* Exception.CreateResFmtHelp */ inline __fastcall EInvalidInsert(System::PResStringRec ResStringRec
  1681.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1682.         , Args, Args_Size, AHelpContext) { }
  1683.     #pragma option pop
  1684.     
  1685. public:
  1686.     #pragma option push -w-inl
  1687.     /* TObject.Destroy */ inline __fastcall virtual ~EInvalidInsert(void) { }
  1688.     #pragma option pop
  1689.     
  1690. };
  1691.  
  1692.  
  1693. class DELPHICLASS EPackageError;
  1694. class PASCALIMPLEMENTATION EPackageError : public Exception 
  1695. {
  1696.     typedef Exception inherited;
  1697.     
  1698. public:
  1699.     #pragma option push -w-inl
  1700.     /* Exception.Create */ inline __fastcall EPackageError(const AnsiString Msg) : Exception(Msg) { }
  1701.     #pragma option pop
  1702.     #pragma option push -w-inl
  1703.     /* Exception.CreateFmt */ inline __fastcall EPackageError(const AnsiString Msg, const System::TVarRec 
  1704.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1705.     #pragma option pop
  1706.     #pragma option push -w-inl
  1707.     /* Exception.CreateRes */ inline __fastcall EPackageError(int Ident)/* overload */ : Exception(Ident
  1708.         ) { }
  1709.     #pragma option pop
  1710.     #pragma option push -w-inl
  1711.     /* Exception.CreateResFmt */ inline __fastcall EPackageError(int Ident, const System::TVarRec * Args
  1712.         , const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1713.     #pragma option pop
  1714.     #pragma option push -w-inl
  1715.     /* Exception.CreateHelp */ inline __fastcall EPackageError(const AnsiString Msg, int AHelpContext) : 
  1716.         Exception(Msg, AHelpContext) { }
  1717.     #pragma option pop
  1718.     #pragma option push -w-inl
  1719.     /* Exception.CreateFmtHelp */ inline __fastcall EPackageError(const AnsiString Msg, const System::TVarRec 
  1720.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1721.         
  1722.     #pragma option pop
  1723.     #pragma option push -w-inl
  1724.     /* Exception.CreateResHelp */ inline __fastcall EPackageError(int Ident, int AHelpContext)/* overload */
  1725.          : Exception(Ident, AHelpContext) { }
  1726.     #pragma option pop
  1727.     #pragma option push -w-inl
  1728.     /* Exception.CreateResFmtHelp */ inline __fastcall EPackageError(System::PResStringRec ResStringRec
  1729.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1730.         , Args, Args_Size, AHelpContext) { }
  1731.     #pragma option pop
  1732.     
  1733. public:
  1734.     #pragma option push -w-inl
  1735.     /* TObject.Destroy */ inline __fastcall virtual ~EPackageError(void) { }
  1736.     #pragma option pop
  1737.     
  1738. };
  1739.  
  1740.  
  1741. class DELPHICLASS EWin32Error;
  1742. class PASCALIMPLEMENTATION EWin32Error : public Exception 
  1743. {
  1744.     typedef Exception inherited;
  1745.     
  1746. public:
  1747.     unsigned ErrorCode;
  1748. public:
  1749.     #pragma option push -w-inl
  1750.     /* Exception.Create */ inline __fastcall EWin32Error(const AnsiString Msg) : Exception(Msg) { }
  1751.     #pragma option pop
  1752.     #pragma option push -w-inl
  1753.     /* Exception.CreateFmt */ inline __fastcall EWin32Error(const AnsiString Msg, const System::TVarRec 
  1754.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1755.     #pragma option pop
  1756.     #pragma option push -w-inl
  1757.     /* Exception.CreateRes */ inline __fastcall EWin32Error(int Ident)/* overload */ : Exception(Ident)
  1758.          { }
  1759.     #pragma option pop
  1760.     #pragma option push -w-inl
  1761.     /* Exception.CreateResFmt */ inline __fastcall EWin32Error(int Ident, const System::TVarRec * Args, 
  1762.         const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1763.     #pragma option pop
  1764.     #pragma option push -w-inl
  1765.     /* Exception.CreateHelp */ inline __fastcall EWin32Error(const AnsiString Msg, int AHelpContext) : 
  1766.         Exception(Msg, AHelpContext) { }
  1767.     #pragma option pop
  1768.     #pragma option push -w-inl
  1769.     /* Exception.CreateFmtHelp */ inline __fastcall EWin32Error(const AnsiString Msg, const System::TVarRec 
  1770.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1771.         
  1772.     #pragma option pop
  1773.     #pragma option push -w-inl
  1774.     /* Exception.CreateResHelp */ inline __fastcall EWin32Error(int Ident, int AHelpContext)/* overload */
  1775.          : Exception(Ident, AHelpContext) { }
  1776.     #pragma option pop
  1777.     #pragma option push -w-inl
  1778.     /* Exception.CreateResFmtHelp */ inline __fastcall EWin32Error(System::PResStringRec ResStringRec, 
  1779.         const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1780.         , Args, Args_Size, AHelpContext) { }
  1781.     #pragma option pop
  1782.     
  1783. public:
  1784.     #pragma option push -w-inl
  1785.     /* TObject.Destroy */ inline __fastcall virtual ~EWin32Error(void) { }
  1786.     #pragma option pop
  1787.     
  1788. };
  1789.  
  1790.  
  1791. class DELPHICLASS ESafecallException;
  1792. class PASCALIMPLEMENTATION ESafecallException : public Exception 
  1793. {
  1794.     typedef Exception inherited;
  1795.     
  1796. public:
  1797.     #pragma option push -w-inl
  1798.     /* Exception.Create */ inline __fastcall ESafecallException(const AnsiString Msg) : Exception(Msg) { }
  1799.         
  1800.     #pragma option pop
  1801.     #pragma option push -w-inl
  1802.     /* Exception.CreateFmt */ inline __fastcall ESafecallException(const AnsiString Msg, const System::TVarRec 
  1803.         * Args, const int Args_Size) : Exception(Msg, Args, Args_Size) { }
  1804.     #pragma option pop
  1805.     #pragma option push -w-inl
  1806.     /* Exception.CreateRes */ inline __fastcall ESafecallException(int Ident)/* overload */ : Exception(
  1807.         Ident) { }
  1808.     #pragma option pop
  1809.     #pragma option push -w-inl
  1810.     /* Exception.CreateResFmt */ inline __fastcall ESafecallException(int Ident, const System::TVarRec 
  1811.         * Args, const int Args_Size)/* overload */ : Exception(Ident, Args, Args_Size) { }
  1812.     #pragma option pop
  1813.     #pragma option push -w-inl
  1814.     /* Exception.CreateHelp */ inline __fastcall ESafecallException(const AnsiString Msg, int AHelpContext
  1815.         ) : Exception(Msg, AHelpContext) { }
  1816.     #pragma option pop
  1817.     #pragma option push -w-inl
  1818.     /* Exception.CreateFmtHelp */ inline __fastcall ESafecallException(const AnsiString Msg, const System::TVarRec 
  1819.         * Args, const int Args_Size, int AHelpContext) : Exception(Msg, Args, Args_Size, AHelpContext) { }
  1820.         
  1821.     #pragma option pop
  1822.     #pragma option push -w-inl
  1823.     /* Exception.CreateResHelp */ inline __fastcall ESafecallException(int Ident, int AHelpContext)/* overload */
  1824.          : Exception(Ident, AHelpContext) { }
  1825.     #pragma option pop
  1826.     #pragma option push -w-inl
  1827.     /* Exception.CreateResFmtHelp */ inline __fastcall ESafecallException(System::PResStringRec ResStringRec
  1828.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Exception(ResStringRec
  1829.         , Args, Args_Size, AHelpContext) { }
  1830.     #pragma option pop
  1831.     
  1832. public:
  1833.     #pragma option push -w-inl
  1834.     /* TObject.Destroy */ inline __fastcall virtual ~ESafecallException(void) { }
  1835.     #pragma option pop
  1836.     
  1837. };
  1838.  
  1839.  
  1840. typedef AnsiString SysUtils__73[12];
  1841.  
  1842. typedef AnsiString SysUtils__83[12];
  1843.  
  1844. typedef AnsiString SysUtils__93[7];
  1845.  
  1846. typedef AnsiString SysUtils__04[7];
  1847.  
  1848. typedef AnsiString SysUtils__14[7];
  1849.  
  1850. typedef Word TDayTable[12];
  1851.  
  1852. typedef Word *PDayTable;
  1853.  
  1854. #pragma option push -b-
  1855. enum SysUtils__24 { rfReplaceAll, rfIgnoreCase };
  1856. #pragma option pop
  1857.  
  1858. typedef Set<SysUtils__24, rfReplaceAll, rfIgnoreCase>  TReplaceFlags;
  1859.  
  1860. #pragma option push -b-
  1861. enum TNameType { ntContainsUnit, ntRequiresPackage };
  1862. #pragma option pop
  1863.  
  1864. typedef void __fastcall (*TPackageInfoProc)(const AnsiString Name, TNameType NameType, Byte Flags, void * 
  1865.     Param);
  1866.  
  1867. typedef bool __fastcall (*TTerminateProc)(void);
  1868.  
  1869. struct TActiveThreadRecord
  1870. {
  1871.     int ThreadID;
  1872.     int RecursionCount;
  1873. } ;
  1874.  
  1875. typedef DynamicArray<TActiveThreadRecord >  TActiveThreadArray;
  1876.  
  1877. class DELPHICLASS TMultiReadExclusiveWriteSynchronizer;
  1878. class PASCALIMPLEMENTATION TMultiReadExclusiveWriteSynchronizer : public System::TObject 
  1879. {
  1880.     typedef System::TObject inherited;
  1881.     
  1882. private:
  1883.     _RTL_CRITICAL_SECTION FLock;
  1884.     unsigned FReadExit;
  1885.     int FCount;
  1886.     int FSaveReadCount;
  1887.     DynamicArray<TActiveThreadRecord >  FActiveThreads;
  1888.     int FWriteRequestorID;
  1889.     int FReallocFlag;
  1890.     bool FWriting;
  1891.     bool __fastcall WriterIsOnlyReader(void);
  1892.     
  1893. public:
  1894.     __fastcall TMultiReadExclusiveWriteSynchronizer(void);
  1895.     __fastcall virtual ~TMultiReadExclusiveWriteSynchronizer(void);
  1896.     void __fastcall BeginRead(void);
  1897.     void __fastcall EndRead(void);
  1898.     void __fastcall BeginWrite(void);
  1899.     void __fastcall EndWrite(void);
  1900. };
  1901.  
  1902.  
  1903. //-- var, const, procedure ---------------------------------------------------
  1904. static const Shortint fmOpenRead = 0x0;
  1905. static const Shortint fmOpenWrite = 0x1;
  1906. static const Shortint fmOpenReadWrite = 0x2;
  1907. static const Shortint fmShareCompat = 0x0;
  1908. static const Shortint fmShareExclusive = 0x10;
  1909. static const Shortint fmShareDenyWrite = 0x20;
  1910. static const Shortint fmShareDenyRead = 0x30;
  1911. static const Shortint fmShareDenyNone = 0x40;
  1912. static const Shortint faReadOnly = 0x1;
  1913. static const Shortint faHidden = 0x2;
  1914. static const Shortint faSysFile = 0x4;
  1915. static const Shortint faVolumeID = 0x8;
  1916. static const Shortint faDirectory = 0x10;
  1917. static const Shortint faArchive = 0x20;
  1918. static const Shortint faAnyFile = 0x3f;
  1919. static const Word fmClosed = 0xd7b0;
  1920. static const Word fmInput = 0xd7b1;
  1921. static const Word fmOutput = 0xd7b2;
  1922. static const Word fmInOut = 0xd7b3;
  1923. static const int SecsPerDay = 0x15180;
  1924. static const int MSecsPerDay = 0x5265c00;
  1925. static const int DateDelta = 0xa955a;
  1926. extern PACKAGE AnsiString EmptyStr;
  1927. extern PACKAGE AnsiString *NullStr;
  1928. extern PACKAGE int Win32Platform;
  1929. extern PACKAGE int Win32MajorVersion;
  1930. extern PACKAGE int Win32MinorVersion;
  1931. extern PACKAGE int Win32BuildNumber;
  1932. extern PACKAGE AnsiString Win32CSDVersion;
  1933. extern PACKAGE AnsiString CurrencyString;
  1934. extern PACKAGE Byte CurrencyFormat;
  1935. extern PACKAGE Byte NegCurrFormat;
  1936. extern PACKAGE char ThousandSeparator;
  1937. extern PACKAGE char DecimalSeparator;
  1938. extern PACKAGE Byte CurrencyDecimals;
  1939. extern PACKAGE char DateSeparator;
  1940. extern PACKAGE AnsiString ShortDateFormat;
  1941. extern PACKAGE AnsiString LongDateFormat;
  1942. extern PACKAGE char TimeSeparator;
  1943. extern PACKAGE AnsiString TimeAMString;
  1944. extern PACKAGE AnsiString TimePMString;
  1945. extern PACKAGE AnsiString ShortTimeFormat;
  1946. extern PACKAGE AnsiString LongTimeFormat;
  1947. extern PACKAGE AnsiString ShortMonthNames[12];
  1948. extern PACKAGE AnsiString LongMonthNames[12];
  1949. extern PACKAGE AnsiString ShortDayNames[7];
  1950. extern PACKAGE AnsiString LongDayNames[7];
  1951. extern PACKAGE TSysLocale SysLocale;
  1952. extern PACKAGE AnsiString EraNames[7];
  1953. extern PACKAGE int EraYearOffsets[7];
  1954. extern PACKAGE Word TwoDigitYearCenturyWindow;
  1955. extern PACKAGE char ListSeparator;
  1956. extern PACKAGE Word MonthDays[2][12];
  1957. static const Shortint pfNeverBuild = 0x1;
  1958. static const Shortint pfDesignOnly = 0x2;
  1959. static const Shortint pfRunOnly = 0x4;
  1960. static const Shortint pfIgnoreDupUnits = 0x8;
  1961. static const unsigned pfModuleTypeMask = 0xc0000000;
  1962. static const Shortint pfExeModule = 0x0;
  1963. static const int pfPackageModule = 0x40000000;
  1964. static const int pfProducerMask = 0xc000000;
  1965. static const Shortint pfV3Produced = 0x0;
  1966. static const int pfProducerUndefined = 0x4000000;
  1967. static const int pfBCB4Produced = 0x8000000;
  1968. static const int pfDelphi4Produced = 0xc000000;
  1969. static const unsigned pfLibraryModule = 0x80000000;
  1970. static const Shortint ufMainUnit = 0x1;
  1971. static const Shortint ufPackageUnit = 0x2;
  1972. static const Shortint ufWeakUnit = 0x4;
  1973. static const Shortint ufOrgWeakUnit = 0x8;
  1974. static const Shortint ufImplicitUnit = 0x10;
  1975. static const Shortint ufWeakPackageUnit = 0x6;
  1976. extern PACKAGE AnsiString HexDisplayPrefix;
  1977. extern PACKAGE BOOL __stdcall (*GetDiskFreeSpaceEx)(char * Directory, __int64 &FreeAvailable, __int64 
  1978.     &TotalSpace, Windows::PLargeInteger TotalFree);
  1979. extern PACKAGE void * __fastcall AllocMem(unsigned Size);
  1980. extern PACKAGE void __fastcall AddExitProc(TProcedure Proc);
  1981. extern PACKAGE System::PAnsiString __fastcall NewStr(const AnsiString S);
  1982. extern PACKAGE void __fastcall DisposeStr(System::PAnsiString P);
  1983. extern PACKAGE void __fastcall AssignStr(System::PAnsiString &P, const AnsiString S);
  1984. extern PACKAGE void __fastcall AppendStr(AnsiString &Dest, const AnsiString S);
  1985. extern PACKAGE AnsiString __fastcall UpperCase(const AnsiString S);
  1986. extern PACKAGE AnsiString __fastcall LowerCase(const AnsiString S);
  1987. extern PACKAGE int __fastcall CompareStr(const AnsiString S1, const AnsiString S2);
  1988. extern PACKAGE bool __fastcall CompareMem(void * P1, void * P2, int Length);
  1989. extern PACKAGE int __fastcall CompareText(const AnsiString S1, const AnsiString S2);
  1990. extern PACKAGE bool __fastcall SameText(const AnsiString S1, const AnsiString S2);
  1991. extern PACKAGE AnsiString __fastcall AnsiUpperCase(const AnsiString S);
  1992. extern PACKAGE AnsiString __fastcall AnsiLowerCase(const AnsiString S);
  1993. extern PACKAGE int __fastcall AnsiCompareStr(const AnsiString S1, const AnsiString S2);
  1994. extern PACKAGE bool __fastcall AnsiSameStr(const AnsiString S1, const AnsiString S2);
  1995. extern PACKAGE int __fastcall AnsiCompareText(const AnsiString S1, const AnsiString S2);
  1996. extern PACKAGE bool __fastcall AnsiSameText(const AnsiString S1, const AnsiString S2);
  1997. extern PACKAGE int __fastcall AnsiStrComp(char * S1, char * S2);
  1998. extern PACKAGE int __fastcall AnsiStrIComp(char * S1, char * S2);
  1999. extern PACKAGE int __fastcall AnsiStrLComp(char * S1, char * S2, unsigned MaxLen);
  2000. extern PACKAGE int __fastcall AnsiStrLIComp(char * S1, char * S2, unsigned MaxLen);
  2001. extern PACKAGE char * __fastcall AnsiStrLower(char * Str);
  2002. extern PACKAGE char * __fastcall AnsiStrUpper(char * Str);
  2003. extern PACKAGE AnsiString __fastcall Trim(const AnsiString S);
  2004. extern PACKAGE AnsiString __fastcall TrimLeft(const AnsiString S);
  2005. extern PACKAGE AnsiString __fastcall TrimRight(const AnsiString S);
  2006. extern PACKAGE AnsiString __fastcall QuotedStr(const AnsiString S);
  2007. extern PACKAGE AnsiString __fastcall AnsiQuotedStr(const AnsiString S, char Quote);
  2008. extern PACKAGE AnsiString __fastcall AnsiExtractQuotedStr(char * &Src, char Quote);
  2009. extern PACKAGE AnsiString __fastcall AdjustLineBreaks(const AnsiString S);
  2010. extern PACKAGE bool __fastcall IsValidIdent(const AnsiString Ident);
  2011. extern PACKAGE AnsiString __fastcall IntToStr(int Value)/* overload */;
  2012. extern PACKAGE AnsiString __fastcall IntToStr(__int64 Value)/* overload */;
  2013. extern PACKAGE AnsiString __fastcall IntToHex(int Value, int Digits)/* overload */;
  2014. extern PACKAGE AnsiString __fastcall IntToHex(__int64 Value, int Digits)/* overload */;
  2015. extern PACKAGE int __fastcall StrToInt(const AnsiString S);
  2016. extern PACKAGE __int64 __fastcall StrToInt64(const AnsiString S);
  2017. extern PACKAGE int __fastcall StrToIntDef(const AnsiString S, int Default);
  2018. extern PACKAGE __int64 __fastcall StrToInt64Def(const AnsiString S, __int64 Default);
  2019. extern PACKAGE AnsiString __fastcall LoadStr(int Ident);
  2020. extern PACKAGE AnsiString __fastcall FmtLoadStr(int Ident, const System::TVarRec * Args, const int Args_Size
  2021.     );
  2022. extern PACKAGE int __fastcall FileOpen(const AnsiString FileName, unsigned Mode);
  2023. extern PACKAGE int __fastcall FileCreate(const AnsiString FileName);
  2024. extern PACKAGE int __fastcall FileRead(int Handle, void *Buffer, unsigned Count);
  2025. extern PACKAGE int __fastcall FileWrite(int Handle, const void *Buffer, unsigned Count);
  2026. extern PACKAGE int __fastcall FileSeek(int Handle, int Offset, int Origin)/* overload */;
  2027. extern PACKAGE __int64 __fastcall FileSeek(int Handle, const __int64 Offset, int Origin)/* overload */
  2028.     ;
  2029. extern PACKAGE void __fastcall FileClose(int Handle);
  2030. extern PACKAGE int __fastcall FileAge(const AnsiString FileName);
  2031. extern PACKAGE bool __fastcall FileExists(const AnsiString FileName);
  2032. extern PACKAGE int __fastcall FileGetDate(int Handle);
  2033. extern PACKAGE int __fastcall FileSetDate(int Handle, int Age);
  2034. extern PACKAGE int __fastcall FileGetAttr(const AnsiString FileName);
  2035. extern PACKAGE int __fastcall FileSetAttr(const AnsiString FileName, int Attr);
  2036. extern PACKAGE int __fastcall FindFirst(const AnsiString Path, int Attr, TSearchRec &F);
  2037. extern PACKAGE int __fastcall FindNext(TSearchRec &F);
  2038. extern PACKAGE void __fastcall FindClose(TSearchRec &F);
  2039. extern PACKAGE bool __fastcall DeleteFile(const AnsiString FileName);
  2040. extern PACKAGE bool __fastcall RenameFile(const AnsiString OldName, const AnsiString NewName);
  2041. extern PACKAGE char * __fastcall AnsiStrLastChar(char * P);
  2042. extern PACKAGE char * __fastcall AnsiLastChar(const AnsiString S);
  2043. extern PACKAGE int __fastcall LastDelimiter(const AnsiString Delimiters, const AnsiString S);
  2044. extern PACKAGE AnsiString __fastcall ChangeFileExt(const AnsiString FileName, const AnsiString Extension
  2045.     );
  2046. extern PACKAGE AnsiString __fastcall ExtractFilePath(const AnsiString FileName);
  2047. extern PACKAGE AnsiString __fastcall ExtractFileDir(const AnsiString FileName);
  2048. extern PACKAGE AnsiString __fastcall ExtractFileDrive(const AnsiString FileName);
  2049. extern PACKAGE AnsiString __fastcall ExtractFileName(const AnsiString FileName);
  2050. extern PACKAGE AnsiString __fastcall ExtractFileExt(const AnsiString FileName);
  2051. extern PACKAGE AnsiString __fastcall ExpandFileName(const AnsiString FileName);
  2052. extern PACKAGE AnsiString __fastcall ExpandUNCFileName(const AnsiString FileName);
  2053. extern PACKAGE AnsiString __fastcall ExtractRelativePath(const AnsiString BaseName, const AnsiString 
  2054.     DestName);
  2055. extern PACKAGE AnsiString __fastcall ExtractShortPathName(const AnsiString FileName);
  2056. extern PACKAGE AnsiString __fastcall FileSearch(const AnsiString Name, const AnsiString DirList);
  2057. extern PACKAGE __int64 __fastcall DiskFree(Byte Drive);
  2058. extern PACKAGE __int64 __fastcall DiskSize(Byte Drive);
  2059. extern PACKAGE System::TDateTime __fastcall FileDateToDateTime(int FileDate);
  2060. extern PACKAGE int __fastcall DateTimeToFileDate(System::TDateTime DateTime);
  2061. extern PACKAGE AnsiString __fastcall GetCurrentDir();
  2062. extern PACKAGE bool __fastcall SetCurrentDir(const AnsiString Dir);
  2063. extern PACKAGE bool __fastcall CreateDir(const AnsiString Dir);
  2064. extern PACKAGE bool __fastcall RemoveDir(const AnsiString Dir);
  2065. extern PACKAGE unsigned __fastcall StrLen(const char * Str);
  2066. extern PACKAGE char * __fastcall StrEnd(const char * Str);
  2067. extern PACKAGE char * __fastcall StrMove(char * Dest, const char * Source, unsigned Count);
  2068. extern PACKAGE char * __fastcall StrCopy(char * Dest, const char * Source);
  2069. extern PACKAGE char * __fastcall StrECopy(char * Dest, const char * Source);
  2070. extern PACKAGE char * __fastcall StrLCopy(char * Dest, const char * Source, unsigned MaxLen);
  2071. extern PACKAGE char * __fastcall StrPCopy(char * Dest, const AnsiString Source);
  2072. extern PACKAGE char * __fastcall StrPLCopy(char * Dest, const AnsiString Source, unsigned MaxLen);
  2073. extern PACKAGE char * __fastcall StrCat(char * Dest, const char * Source);
  2074. extern PACKAGE char * __fastcall StrLCat(char * Dest, const char * Source, unsigned MaxLen);
  2075. extern PACKAGE int __fastcall StrComp(const char * Str1, const char * Str2);
  2076. extern PACKAGE int __fastcall StrIComp(const char * Str1, const char * Str2);
  2077. extern PACKAGE int __fastcall StrLComp(const char * Str1, const char * Str2, unsigned MaxLen);
  2078. extern PACKAGE int __fastcall StrLIComp(const char * Str1, const char * Str2, unsigned MaxLen);
  2079. extern PACKAGE char * __fastcall StrScan(const char * Str, char Chr);
  2080. extern PACKAGE char * __fastcall StrRScan(const char * Str, char Chr);
  2081. extern PACKAGE char * __fastcall StrPos(const char * Str1, const char * Str2);
  2082. extern PACKAGE char * __fastcall StrUpper(char * Str);
  2083. extern PACKAGE char * __fastcall StrLower(char * Str);
  2084. extern PACKAGE AnsiString __fastcall StrPas(const char * Str);
  2085. extern PACKAGE char * __fastcall StrAlloc(unsigned Size);
  2086. extern PACKAGE unsigned __fastcall StrBufSize(const char * Str);
  2087. extern PACKAGE char * __fastcall StrNew(const char * Str);
  2088. extern PACKAGE void __fastcall StrDispose(char * Str);
  2089. extern PACKAGE unsigned __fastcall FormatBuf(void *Buffer, unsigned BufLen, const void *Format, unsigned 
  2090.     FmtLen, const System::TVarRec * Args, const int Args_Size);
  2091. extern PACKAGE char * __fastcall StrFmt(char * Buffer, char * Format, const System::TVarRec * Args, 
  2092.     const int Args_Size);
  2093. extern PACKAGE char * __fastcall StrLFmt(char * Buffer, unsigned MaxLen, char * Format, const System::TVarRec 
  2094.     * Args, const int Args_Size);
  2095. extern PACKAGE AnsiString __fastcall Format(const AnsiString Format, const System::TVarRec * Args, const 
  2096.     int Args_Size);
  2097. extern PACKAGE void __fastcall FmtStr(AnsiString &Result, const AnsiString Format, const System::TVarRec 
  2098.     * Args, const int Args_Size);
  2099. extern PACKAGE AnsiString __fastcall FloatToStr(Extended Value);
  2100. extern PACKAGE AnsiString __fastcall CurrToStr(System::Currency Value);
  2101. extern PACKAGE AnsiString __fastcall FloatToStrF(Extended Value, TFloatFormat Format, int Precision, 
  2102.     int Digits);
  2103. extern PACKAGE AnsiString __fastcall CurrToStrF(System::Currency Value, TFloatFormat Format, int Digits
  2104.     );
  2105. extern PACKAGE AnsiString __fastcall FormatFloat(const AnsiString Format, Extended Value);
  2106. extern PACKAGE AnsiString __fastcall FormatCurr(const AnsiString Format, System::Currency Value);
  2107. extern PACKAGE Extended __fastcall StrToFloat(const AnsiString S);
  2108. extern PACKAGE System::Currency __fastcall StrToCurr(const AnsiString S);
  2109. extern PACKAGE TTimeStamp __fastcall DateTimeToTimeStamp(System::TDateTime DateTime);
  2110. extern PACKAGE System::TDateTime __fastcall TimeStampToDateTime(const TTimeStamp &TimeStamp);
  2111. extern PACKAGE TTimeStamp __fastcall MSecsToTimeStamp(System::Comp MSecs);
  2112. extern PACKAGE System::Comp __fastcall TimeStampToMSecs(const TTimeStamp &TimeStamp);
  2113. extern PACKAGE System::TDateTime __fastcall EncodeTime(Word Hour, Word Min, Word Sec, Word MSec);
  2114. extern PACKAGE void __fastcall DecodeTime(System::TDateTime Time, Word &Hour, Word &Min, Word &Sec, 
  2115.     Word &MSec);
  2116. extern PACKAGE bool __fastcall IsLeapYear(Word Year);
  2117. extern PACKAGE System::TDateTime __fastcall EncodeDate(Word Year, Word Month, Word Day);
  2118. extern PACKAGE void __fastcall DecodeDate(System::TDateTime Date, Word &Year, Word &Month, Word &Day
  2119.     );
  2120. extern PACKAGE void __fastcall DateTimeToSystemTime(System::TDateTime DateTime, _SYSTEMTIME &SystemTime
  2121.     );
  2122. extern PACKAGE System::TDateTime __fastcall SystemTimeToDateTime(const _SYSTEMTIME &SystemTime);
  2123. extern PACKAGE int __fastcall DayOfWeek(System::TDateTime Date);
  2124. extern PACKAGE System::TDateTime __fastcall Date(void);
  2125. extern PACKAGE System::TDateTime __fastcall Time(void);
  2126. extern PACKAGE System::TDateTime __fastcall Now(void);
  2127. extern PACKAGE System::TDateTime __fastcall IncMonth(const System::TDateTime Date, int NumberOfMonths
  2128.     );
  2129. extern PACKAGE void __fastcall ReplaceTime(System::TDateTime &DateTime, const System::TDateTime NewTime
  2130.     );
  2131. extern PACKAGE void __fastcall ReplaceDate(System::TDateTime &DateTime, const System::TDateTime NewDate
  2132.     );
  2133. extern PACKAGE void __fastcall DateTimeToString(AnsiString &Result, const AnsiString Format, System::TDateTime 
  2134.     DateTime);
  2135. extern PACKAGE AnsiString __fastcall DateToStr(System::TDateTime Date);
  2136. extern PACKAGE AnsiString __fastcall TimeToStr(System::TDateTime Time);
  2137. extern PACKAGE AnsiString __fastcall DateTimeToStr(System::TDateTime DateTime);
  2138. extern PACKAGE AnsiString __fastcall FormatDateTime(const AnsiString Format, System::TDateTime DateTime
  2139.     );
  2140. extern PACKAGE System::TDateTime __fastcall StrToDate(const AnsiString S);
  2141. extern PACKAGE System::TDateTime __fastcall StrToTime(const AnsiString S);
  2142. extern PACKAGE System::TDateTime __fastcall StrToDateTime(const AnsiString S);
  2143. extern PACKAGE AnsiString __fastcall SysErrorMessage(int ErrorCode);
  2144. extern PACKAGE AnsiString __fastcall GetLocaleStr(int Locale, int LocaleType, const AnsiString Default
  2145.     );
  2146. extern PACKAGE char __fastcall GetLocaleChar(int Locale, int LocaleType, char Default);
  2147. extern PACKAGE System::TObject* __fastcall ExceptObject(void);
  2148. extern PACKAGE void * __fastcall ExceptAddr(void);
  2149. extern PACKAGE int __fastcall ExceptionErrorMessage(System::TObject* ExceptObject, void * ExceptAddr
  2150.     , char * Buffer, int Size);
  2151. extern PACKAGE void __fastcall ShowException(System::TObject* ExceptObject, void * ExceptAddr);
  2152. extern PACKAGE void __fastcall Abort(void);
  2153. extern PACKAGE void __fastcall OutOfMemoryError(void);
  2154. extern PACKAGE void __fastcall Beep(void);
  2155. extern PACKAGE TMbcsByteType __fastcall ByteType(const AnsiString S, int Index);
  2156. extern PACKAGE TMbcsByteType __fastcall StrByteType(char * Str, unsigned Index);
  2157. extern PACKAGE int __fastcall ByteToCharLen(const AnsiString S, int MaxLen);
  2158. extern PACKAGE int __fastcall ByteToCharIndex(const AnsiString S, int Index);
  2159. extern PACKAGE int __fastcall CharToByteIndex(const AnsiString S, int Index);
  2160. extern PACKAGE int __fastcall CharToByteLen(const AnsiString S, int MaxLen);
  2161. extern PACKAGE bool __fastcall IsPathDelimiter(const AnsiString S, int Index);
  2162. extern PACKAGE bool __fastcall IsDelimiter(const AnsiString Delimiters, const AnsiString S, int Index
  2163.     );
  2164. extern PACKAGE AnsiString __fastcall IncludeTrailingBackslash(const AnsiString S);
  2165. extern PACKAGE AnsiString __fastcall ExcludeTrailingBackslash(const AnsiString S);
  2166. extern PACKAGE int __fastcall AnsiPos(const AnsiString Substr, const AnsiString S);
  2167. extern PACKAGE int __fastcall AnsiCompareFileName(const AnsiString S1, const AnsiString S2);
  2168. extern PACKAGE AnsiString __fastcall AnsiLowerCaseFileName(const AnsiString S);
  2169. extern PACKAGE AnsiString __fastcall AnsiUpperCaseFileName(const AnsiString S);
  2170. extern PACKAGE char * __fastcall AnsiStrPos(char * Str, char * SubStr);
  2171. extern PACKAGE char * __fastcall AnsiStrRScan(char * Str, char Chr);
  2172. extern PACKAGE char * __fastcall AnsiStrScan(char * Str, char Chr);
  2173. extern PACKAGE void __fastcall GetFormatSettings(void);
  2174. extern PACKAGE AnsiString __fastcall StringReplace(const AnsiString S, const AnsiString OldPattern, 
  2175.     const AnsiString NewPattern, TReplaceFlags Flags);
  2176. extern PACKAGE AnsiString __fastcall WrapText(const AnsiString Line, const AnsiString BreakStr, const 
  2177.     TSysCharSet &BreakChars, int MaxCol)/* overload */;
  2178. extern PACKAGE AnsiString __fastcall WrapText(const AnsiString Line, int MaxCol)/* overload */;
  2179. extern PACKAGE bool __fastcall FindCmdLineSwitch(const AnsiString Switch, const TSysCharSet &SwitchChars
  2180.     , bool IgnoreCase);
  2181. extern PACKAGE void __fastcall InitializePackage(Windows::HINST Module);
  2182. extern PACKAGE void __fastcall FinalizePackage(Windows::HINST Module);
  2183. extern PACKAGE Windows::HINST __fastcall LoadPackage(const AnsiString Name);
  2184. extern PACKAGE void __fastcall UnloadPackage(Windows::HINST Module);
  2185. extern PACKAGE void __fastcall GetPackageInfo(Windows::HINST Module, void * Param, int &Flags, TPackageInfoProc 
  2186.     InfoProc);
  2187. extern PACKAGE AnsiString __fastcall GetPackageDescription(char * ModuleName);
  2188. extern PACKAGE void __fastcall RaiseLastWin32Error(void);
  2189. extern PACKAGE BOOL __fastcall Win32Check(BOOL RetVal);
  2190. extern PACKAGE void __fastcall AddTerminateProc(TTerminateProc TermProc);
  2191. extern PACKAGE bool __fastcall CallTerminateProcs(void);
  2192. extern PACKAGE unsigned __fastcall GDAL(void);
  2193. extern PACKAGE void __fastcall RCS(void);
  2194. extern PACKAGE void __fastcall RPR(void);
  2195. extern PACKAGE void __fastcall FreeAndNil(void *Obj);
  2196. extern PACKAGE bool __fastcall Supports(const _di_IUnknown Instance, const GUID &Intf, /* out */ void 
  2197.     *Inst)/* overload */;
  2198. extern PACKAGE bool __fastcall Supports(System::TObject* Instance, const GUID &Intf, /* out */ void 
  2199.     *Inst)/* overload */;
  2200. extern PACKAGE TLanguages* __fastcall Languages(void);
  2201. extern PACKAGE Windows::HINST __fastcall SafeLoadLibrary(const AnsiString Filename, unsigned ErrorMode
  2202.     );
  2203. extern PACKAGE int __fastcall FloatToText(char * Buffer, const void *Value, TFloatValue ValueType, TFloatFormat 
  2204.     Format, int Precision, int Digits);
  2205. extern PACKAGE int __fastcall FloatToTextFmt(char * Buffer, const void *Value, TFloatValue ValueType
  2206.     , char * Format);
  2207. extern PACKAGE void __fastcall FloatToDecimal(TFloatRec &Result, const void *Value, TFloatValue ValueType
  2208.     , int Precision, int Decimals);
  2209. extern PACKAGE bool __fastcall TextToFloat(char * Buffer, void *Value, TFloatValue ValueType);
  2210.  
  2211. }    /* namespace Sysutils */
  2212. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  2213. using namespace Sysutils;
  2214. #endif
  2215. #pragma option pop    // -w-
  2216. #pragma option pop    // -Vx
  2217.  
  2218. #pragma delphiheader end.
  2219. //-- end unit ----------------------------------------------------------------
  2220. #endif    // SysUtils
  2221.