home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / CLASSES.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  64.7 KB  |  1,412 lines
  1. //----------------------------------------------------------------------------
  2. // Classes.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: Classes.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef ClassesHPP
  6. #define ClassesHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef WindowsHPP
  9. #include <Windows.hpp>
  10. #endif
  11.  
  12. #ifndef SysUtilsHPP
  13. #include <SysUtils.hpp>
  14. #endif
  15.  
  16. #ifndef SystemHPP
  17. #include <System.hpp>
  18. #endif
  19.  
  20. namespace Classes
  21. {
  22. //-- type declarations -------------------------------------------------------
  23. enum TAlignment { taLeftJustify, taRightJustify, taCenter };
  24.  
  25. typedef TAlignment TLeftRight;
  26.  
  27. enum Classes_1 { ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble };
  28.  
  29. typedef Set<Classes_1, ssShift, ssDouble>  TShiftState;
  30.  
  31. typedef System::Integer THelpContext;
  32.  
  33. typedef void __fastcall (__closure *TNotifyEvent)(System::TObject *Sender);
  34.  
  35. typedef System::Boolean __fastcall (__closure *THelpEvent)(System::Word Command, System::Longint Data
  36.     , System::Boolean &CallHelp);
  37.  
  38. typedef void __fastcall (__closure *TGetStrProc)(const System::AnsiString S);
  39.  
  40. class __declspec(delphiclass) EStreamError;
  41. class __declspec(pascalimplementation) EStreamError : public Sysutils::Exception
  42. {
  43.     typedef EStreamError ThisClass;
  44.     typedef Sysutils::Exception inherited;
  45.     
  46. public:
  47.     /* !! Exception.Create */ __fastcall EStreamError(const System::AnsiString Msg) : Sysutils::Exception(
  48.         Msg) { }
  49.     /* !! Exception.CreateFmt */ __fastcall EStreamError(const System::AnsiString Msg, const TVarRec *Args
  50.         , const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  51.     /* !! Exception.CreateRes */ __fastcall EStreamError(System::Integer Ident) : Sysutils::Exception(Ident
  52.         ) { }
  53.     /* !! Exception.CreateResFmt */ __fastcall EStreamError(System::Integer Ident, const TVarRec *Args, 
  54.         const System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  55.     /* !! Exception.CreateHelp */ __fastcall EStreamError(const System::AnsiString Msg, System::Integer 
  56.         AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  57.     /* !! Exception.CreateFmtHelp */ __fastcall EStreamError(const System::AnsiString Msg, const TVarRec 
  58.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  59.         , Args_Size, AHelpContext) { }
  60.     /* !! Exception.CreateResHelp */ __fastcall EStreamError(System::Integer Ident, System::Integer AHelpContext
  61.         ) : Sysutils::Exception(Ident, AHelpContext) { }
  62.     /* !! Exception.CreateResFmtHelp */ __fastcall EStreamError(System::Integer Ident, const TVarRec *Args
  63.         , const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, Args
  64.         , Args_Size, AHelpContext) { }
  65.     
  66. public:
  67.     /* !! TObject.Destroy */ __fastcall virtual ~EStreamError(void) { }
  68.     
  69. };
  70.  
  71. class __declspec(delphiclass) EFCreateError;
  72. class __declspec(pascalimplementation) EFCreateError : public EStreamError
  73. {
  74.     typedef EFCreateError ThisClass;
  75.     typedef EStreamError inherited;
  76.     
  77. public:
  78.     /* !! Exception.Create */ __fastcall EFCreateError(const System::AnsiString Msg) : Classes::EStreamError(
  79.         Msg) { }
  80.     /* !! Exception.CreateFmt */ __fastcall EFCreateError(const System::AnsiString Msg, const TVarRec *
  81.         Args, const System::Integer Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  82.     /* !! Exception.CreateRes */ __fastcall EFCreateError(System::Integer Ident) : Classes::EStreamError(
  83.         Ident) { }
  84.     /* !! Exception.CreateResFmt */ __fastcall EFCreateError(System::Integer Ident, const TVarRec *Args
  85.         , const System::Integer Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  86.     /* !! Exception.CreateHelp */ __fastcall EFCreateError(const System::AnsiString Msg, System::Integer 
  87.         AHelpContext) : Classes::EStreamError(Msg, AHelpContext) { }
  88.     /* !! Exception.CreateFmtHelp */ __fastcall EFCreateError(const System::AnsiString Msg, const TVarRec 
  89.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EStreamError(Msg, 
  90.         Args, Args_Size, AHelpContext) { }
  91.     /* !! Exception.CreateResHelp */ __fastcall EFCreateError(System::Integer Ident, System::Integer AHelpContext
  92.         ) : Classes::EStreamError(Ident, AHelpContext) { }
  93.     /* !! Exception.CreateResFmtHelp */ __fastcall EFCreateError(System::Integer Ident, const TVarRec *
  94.         Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EStreamError(Ident
  95.         , Args, Args_Size, AHelpContext) { }
  96.     
  97. public:
  98.     /* !! TObject.Destroy */ __fastcall virtual ~EFCreateError(void) { }
  99.     
  100. };
  101.  
  102. class __declspec(delphiclass) EFOpenError;
  103. class __declspec(pascalimplementation) EFOpenError : public EStreamError
  104. {
  105.     typedef EFOpenError ThisClass;
  106.     typedef EStreamError inherited;
  107.     
  108. public:
  109.     /* !! Exception.Create */ __fastcall EFOpenError(const System::AnsiString Msg) : Classes::EStreamError(
  110.         Msg) { }
  111.     /* !! Exception.CreateFmt */ __fastcall EFOpenError(const System::AnsiString Msg, const TVarRec *Args
  112.         , const System::Integer Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  113.     /* !! Exception.CreateRes */ __fastcall EFOpenError(System::Integer Ident) : Classes::EStreamError(
  114.         Ident) { }
  115.     /* !! Exception.CreateResFmt */ __fastcall EFOpenError(System::Integer Ident, const TVarRec *Args, 
  116.         const System::Integer Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  117.     /* !! Exception.CreateHelp */ __fastcall EFOpenError(const System::AnsiString Msg, System::Integer 
  118.         AHelpContext) : Classes::EStreamError(Msg, AHelpContext) { }
  119.     /* !! Exception.CreateFmtHelp */ __fastcall EFOpenError(const System::AnsiString Msg, const TVarRec 
  120.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EStreamError(Msg, 
  121.         Args, Args_Size, AHelpContext) { }
  122.     /* !! Exception.CreateResHelp */ __fastcall EFOpenError(System::Integer Ident, System::Integer AHelpContext
  123.         ) : Classes::EStreamError(Ident, AHelpContext) { }
  124.     /* !! Exception.CreateResFmtHelp */ __fastcall EFOpenError(System::Integer Ident, const TVarRec *Args
  125.         , const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EStreamError(Ident, Args
  126.         , Args_Size, AHelpContext) { }
  127.     
  128. public:
  129.     /* !! TObject.Destroy */ __fastcall virtual ~EFOpenError(void) { }
  130.     
  131. };
  132.  
  133. class __declspec(delphiclass) EFilerError;
  134. class __declspec(pascalimplementation) EFilerError : public EStreamError
  135. {
  136.     typedef EFilerError ThisClass;
  137.     typedef EStreamError inherited;
  138.     
  139. public:
  140.     /* !! Exception.Create */ __fastcall EFilerError(const System::AnsiString Msg) : Classes::EStreamError(
  141.         Msg) { }
  142.     /* !! Exception.CreateFmt */ __fastcall EFilerError(const System::AnsiString Msg, const TVarRec *Args
  143.         , const System::Integer Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  144.     /* !! Exception.CreateRes */ __fastcall EFilerError(System::Integer Ident) : Classes::EStreamError(
  145.         Ident) { }
  146.     /* !! Exception.CreateResFmt */ __fastcall EFilerError(System::Integer Ident, const TVarRec *Args, 
  147.         const System::Integer Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  148.     /* !! Exception.CreateHelp */ __fastcall EFilerError(const System::AnsiString Msg, System::Integer 
  149.         AHelpContext) : Classes::EStreamError(Msg, AHelpContext) { }
  150.     /* !! Exception.CreateFmtHelp */ __fastcall EFilerError(const System::AnsiString Msg, const TVarRec 
  151.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EStreamError(Msg, 
  152.         Args, Args_Size, AHelpContext) { }
  153.     /* !! Exception.CreateResHelp */ __fastcall EFilerError(System::Integer Ident, System::Integer AHelpContext
  154.         ) : Classes::EStreamError(Ident, AHelpContext) { }
  155.     /* !! Exception.CreateResFmtHelp */ __fastcall EFilerError(System::Integer Ident, const TVarRec *Args
  156.         , const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EStreamError(Ident, Args
  157.         , Args_Size, AHelpContext) { }
  158.     
  159. public:
  160.     /* !! TObject.Destroy */ __fastcall virtual ~EFilerError(void) { }
  161.     
  162. };
  163.  
  164. class __declspec(delphiclass) EReadError;
  165. class __declspec(pascalimplementation) EReadError : public EFilerError
  166. {
  167.     typedef EReadError ThisClass;
  168.     typedef EFilerError inherited;
  169.     
  170. public:
  171.     /* !! Exception.Create */ __fastcall EReadError(const System::AnsiString Msg) : Classes::EFilerError(
  172.         Msg) { }
  173.     /* !! Exception.CreateFmt */ __fastcall EReadError(const System::AnsiString Msg, const TVarRec *Args
  174.         , const System::Integer Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  175.     /* !! Exception.CreateRes */ __fastcall EReadError(System::Integer Ident) : Classes::EFilerError(Ident
  176.         ) { }
  177.     /* !! Exception.CreateResFmt */ __fastcall EReadError(System::Integer Ident, const TVarRec *Args, const 
  178.         System::Integer Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  179.     /* !! Exception.CreateHelp */ __fastcall EReadError(const System::AnsiString Msg, System::Integer AHelpContext
  180.         ) : Classes::EFilerError(Msg, AHelpContext) { }
  181.     /* !! Exception.CreateFmtHelp */ __fastcall EReadError(const System::AnsiString Msg, const TVarRec 
  182.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Msg, 
  183.         Args, Args_Size, AHelpContext) { }
  184.     /* !! Exception.CreateResHelp */ __fastcall EReadError(System::Integer Ident, System::Integer AHelpContext
  185.         ) : Classes::EFilerError(Ident, AHelpContext) { }
  186.     /* !! Exception.CreateResFmtHelp */ __fastcall EReadError(System::Integer Ident, const TVarRec *Args
  187.         , const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Ident, Args
  188.         , Args_Size, AHelpContext) { }
  189.     
  190. public:
  191.     /* !! TObject.Destroy */ __fastcall virtual ~EReadError(void) { }
  192.     
  193. };
  194.  
  195. class __declspec(delphiclass) EWriteError;
  196. class __declspec(pascalimplementation) EWriteError : public EFilerError
  197. {
  198.     typedef EWriteError ThisClass;
  199.     typedef EFilerError inherited;
  200.     
  201. public:
  202.     /* !! Exception.Create */ __fastcall EWriteError(const System::AnsiString Msg) : Classes::EFilerError(
  203.         Msg) { }
  204.     /* !! Exception.CreateFmt */ __fastcall EWriteError(const System::AnsiString Msg, const TVarRec *Args
  205.         , const System::Integer Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  206.     /* !! Exception.CreateRes */ __fastcall EWriteError(System::Integer Ident) : Classes::EFilerError(Ident
  207.         ) { }
  208.     /* !! Exception.CreateResFmt */ __fastcall EWriteError(System::Integer Ident, const TVarRec *Args, 
  209.         const System::Integer Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  210.     /* !! Exception.CreateHelp */ __fastcall EWriteError(const System::AnsiString Msg, System::Integer 
  211.         AHelpContext) : Classes::EFilerError(Msg, AHelpContext) { }
  212.     /* !! Exception.CreateFmtHelp */ __fastcall EWriteError(const System::AnsiString Msg, const TVarRec 
  213.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Msg, 
  214.         Args, Args_Size, AHelpContext) { }
  215.     /* !! Exception.CreateResHelp */ __fastcall EWriteError(System::Integer Ident, System::Integer AHelpContext
  216.         ) : Classes::EFilerError(Ident, AHelpContext) { }
  217.     /* !! Exception.CreateResFmtHelp */ __fastcall EWriteError(System::Integer Ident, const TVarRec *Args
  218.         , const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Ident, Args
  219.         , Args_Size, AHelpContext) { }
  220.     
  221. public:
  222.     /* !! TObject.Destroy */ __fastcall virtual ~EWriteError(void) { }
  223.     
  224. };
  225.  
  226. class __declspec(delphiclass) EClassNotFound;
  227. class __declspec(pascalimplementation) EClassNotFound : public EFilerError
  228. {
  229.     typedef EClassNotFound ThisClass;
  230.     typedef EFilerError inherited;
  231.     
  232. public:
  233.     /* !! Exception.Create */ __fastcall EClassNotFound(const System::AnsiString Msg) : Classes::EFilerError(
  234.         Msg) { }
  235.     /* !! Exception.CreateFmt */ __fastcall EClassNotFound(const System::AnsiString Msg, const TVarRec 
  236.         *Args, const System::Integer Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  237.     /* !! Exception.CreateRes */ __fastcall EClassNotFound(System::Integer Ident) : Classes::EFilerError(
  238.         Ident) { }
  239.     /* !! Exception.CreateResFmt */ __fastcall EClassNotFound(System::Integer Ident, const TVarRec *Args
  240.         , const System::Integer Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  241.     /* !! Exception.CreateHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, System::Integer 
  242.         AHelpContext) : Classes::EFilerError(Msg, AHelpContext) { }
  243.     /* !! Exception.CreateFmtHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, const TVarRec 
  244.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Msg, 
  245.         Args, Args_Size, AHelpContext) { }
  246.     /* !! Exception.CreateResHelp */ __fastcall EClassNotFound(System::Integer Ident, System::Integer AHelpContext
  247.         ) : Classes::EFilerError(Ident, AHelpContext) { }
  248.     /* !! Exception.CreateResFmtHelp */ __fastcall EClassNotFound(System::Integer Ident, const TVarRec 
  249.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Ident
  250.         , Args, Args_Size, AHelpContext) { }
  251.     
  252. public:
  253.     /* !! TObject.Destroy */ __fastcall virtual ~EClassNotFound(void) { }
  254.     
  255. };
  256.  
  257. class __declspec(delphiclass) EMethodNotFound;
  258. class __declspec(pascalimplementation) EMethodNotFound : public EFilerError
  259. {
  260.     typedef EMethodNotFound ThisClass;
  261.     typedef EFilerError inherited;
  262.     
  263. public:
  264.     /* !! Exception.Create */ __fastcall EMethodNotFound(const System::AnsiString Msg) : Classes::EFilerError(
  265.         Msg) { }
  266.     /* !! Exception.CreateFmt */ __fastcall EMethodNotFound(const System::AnsiString Msg, const TVarRec 
  267.         *Args, const System::Integer Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  268.     /* !! Exception.CreateRes */ __fastcall EMethodNotFound(System::Integer Ident) : Classes::EFilerError(
  269.         Ident) { }
  270.     /* !! Exception.CreateResFmt */ __fastcall EMethodNotFound(System::Integer Ident, const TVarRec *Args
  271.         , const System::Integer Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  272.     /* !! Exception.CreateHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, System::Integer 
  273.         AHelpContext) : Classes::EFilerError(Msg, AHelpContext) { }
  274.     /* !! Exception.CreateFmtHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, const TVarRec 
  275.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Msg, 
  276.         Args, Args_Size, AHelpContext) { }
  277.     /* !! Exception.CreateResHelp */ __fastcall EMethodNotFound(System::Integer Ident, System::Integer 
  278.         AHelpContext) : Classes::EFilerError(Ident, AHelpContext) { }
  279.     /* !! Exception.CreateResFmtHelp */ __fastcall EMethodNotFound(System::Integer Ident, const TVarRec 
  280.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Ident
  281.         , Args, Args_Size, AHelpContext) { }
  282.     
  283. public:
  284.     /* !! TObject.Destroy */ __fastcall virtual ~EMethodNotFound(void) { }
  285.     
  286. };
  287.  
  288. class __declspec(delphiclass) EInvalidImage;
  289. class __declspec(pascalimplementation) EInvalidImage : public EFilerError
  290. {
  291.     typedef EInvalidImage ThisClass;
  292.     typedef EFilerError inherited;
  293.     
  294. public:
  295.     /* !! Exception.Create */ __fastcall EInvalidImage(const System::AnsiString Msg) : Classes::EFilerError(
  296.         Msg) { }
  297.     /* !! Exception.CreateFmt */ __fastcall EInvalidImage(const System::AnsiString Msg, const TVarRec *
  298.         Args, const System::Integer Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  299.     /* !! Exception.CreateRes */ __fastcall EInvalidImage(System::Integer Ident) : Classes::EFilerError(
  300.         Ident) { }
  301.     /* !! Exception.CreateResFmt */ __fastcall EInvalidImage(System::Integer Ident, const TVarRec *Args
  302.         , const System::Integer Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  303.     /* !! Exception.CreateHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, System::Integer 
  304.         AHelpContext) : Classes::EFilerError(Msg, AHelpContext) { }
  305.     /* !! Exception.CreateFmtHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, const TVarRec 
  306.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Msg, 
  307.         Args, Args_Size, AHelpContext) { }
  308.     /* !! Exception.CreateResHelp */ __fastcall EInvalidImage(System::Integer Ident, System::Integer AHelpContext
  309.         ) : Classes::EFilerError(Ident, AHelpContext) { }
  310.     /* !! Exception.CreateResFmtHelp */ __fastcall EInvalidImage(System::Integer Ident, const TVarRec *
  311.         Args, const System::Integer Args_Size, System::Integer AHelpContext) : Classes::EFilerError(Ident, 
  312.         Args, Args_Size, AHelpContext) { }
  313.     
  314. public:
  315.     /* !! TObject.Destroy */ __fastcall virtual ~EInvalidImage(void) { }
  316.     
  317. };
  318.  
  319. class __declspec(delphiclass) EResNotFound;
  320. class __declspec(pascalimplementation) EResNotFound : public Sysutils::Exception
  321. {
  322.     typedef EResNotFound ThisClass;
  323.     typedef Sysutils::Exception inherited;
  324.     
  325. public:
  326.     /* !! Exception.Create */ __fastcall EResNotFound(const System::AnsiString Msg) : Sysutils::Exception(
  327.         Msg) { }
  328.     /* !! Exception.CreateFmt */ __fastcall EResNotFound(const System::AnsiString Msg, const TVarRec *Args
  329.         , const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  330.     /* !! Exception.CreateRes */ __fastcall EResNotFound(System::Integer Ident) : Sysutils::Exception(Ident
  331.         ) { }
  332.     /* !! Exception.CreateResFmt */ __fastcall EResNotFound(System::Integer Ident, const TVarRec *Args, 
  333.         const System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  334.     /* !! Exception.CreateHelp */ __fastcall EResNotFound(const System::AnsiString Msg, System::Integer 
  335.         AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  336.     /* !! Exception.CreateFmtHelp */ __fastcall EResNotFound(const System::AnsiString Msg, const TVarRec 
  337.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  338.         , Args_Size, AHelpContext) { }
  339.     /* !! Exception.CreateResHelp */ __fastcall EResNotFound(System::Integer Ident, System::Integer AHelpContext
  340.         ) : Sysutils::Exception(Ident, AHelpContext) { }
  341.     /* !! Exception.CreateResFmtHelp */ __fastcall EResNotFound(System::Integer Ident, const TVarRec *Args
  342.         , const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, Args
  343.         , Args_Size, AHelpContext) { }
  344.     
  345. public:
  346.     /* !! TObject.Destroy */ __fastcall virtual ~EResNotFound(void) { }
  347.     
  348. };
  349.  
  350. class __declspec(delphiclass) EListError;
  351. class __declspec(pascalimplementation) EListError : public Sysutils::Exception
  352. {
  353.     typedef EListError ThisClass;
  354.     typedef Sysutils::Exception inherited;
  355.     
  356. public:
  357.     /* !! Exception.Create */ __fastcall EListError(const System::AnsiString Msg) : Sysutils::Exception(
  358.         Msg) { }
  359.     /* !! Exception.CreateFmt */ __fastcall EListError(const System::AnsiString Msg, const TVarRec *Args
  360.         , const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  361.     /* !! Exception.CreateRes */ __fastcall EListError(System::Integer Ident) : Sysutils::Exception(Ident
  362.         ) { }
  363.     /* !! Exception.CreateResFmt */ __fastcall EListError(System::Integer Ident, const TVarRec *Args, const 
  364.         System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  365.     /* !! Exception.CreateHelp */ __fastcall EListError(const System::AnsiString Msg, System::Integer AHelpContext
  366.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  367.     /* !! Exception.CreateFmtHelp */ __fastcall EListError(const System::AnsiString Msg, const TVarRec 
  368.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  369.         , Args_Size, AHelpContext) { }
  370.     /* !! Exception.CreateResHelp */ __fastcall EListError(System::Integer Ident, System::Integer AHelpContext
  371.         ) : Sysutils::Exception(Ident, AHelpContext) { }
  372.     /* !! Exception.CreateResFmtHelp */ __fastcall EListError(System::Integer Ident, const TVarRec *Args
  373.         , const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, Args
  374.         , Args_Size, AHelpContext) { }
  375.     
  376. public:
  377.     /* !! TObject.Destroy */ __fastcall virtual ~EListError(void) { }
  378.     
  379. };
  380.  
  381. class __declspec(delphiclass) EBitsError;
  382. class __declspec(pascalimplementation) EBitsError : public Sysutils::Exception
  383. {
  384.     typedef EBitsError ThisClass;
  385.     typedef Sysutils::Exception inherited;
  386.     
  387. public:
  388.     /* !! Exception.Create */ __fastcall EBitsError(const System::AnsiString Msg) : Sysutils::Exception(
  389.         Msg) { }
  390.     /* !! Exception.CreateFmt */ __fastcall EBitsError(const System::AnsiString Msg, const TVarRec *Args
  391.         , const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  392.     /* !! Exception.CreateRes */ __fastcall EBitsError(System::Integer Ident) : Sysutils::Exception(Ident
  393.         ) { }
  394.     /* !! Exception.CreateResFmt */ __fastcall EBitsError(System::Integer Ident, const TVarRec *Args, const 
  395.         System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  396.     /* !! Exception.CreateHelp */ __fastcall EBitsError(const System::AnsiString Msg, System::Integer AHelpContext
  397.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  398.     /* !! Exception.CreateFmtHelp */ __fastcall EBitsError(const System::AnsiString Msg, const TVarRec 
  399.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  400.         , Args_Size, AHelpContext) { }
  401.     /* !! Exception.CreateResHelp */ __fastcall EBitsError(System::Integer Ident, System::Integer AHelpContext
  402.         ) : Sysutils::Exception(Ident, AHelpContext) { }
  403.     /* !! Exception.CreateResFmtHelp */ __fastcall EBitsError(System::Integer Ident, const TVarRec *Args
  404.         , const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, Args
  405.         , Args_Size, AHelpContext) { }
  406.     
  407. public:
  408.     /* !! TObject.Destroy */ __fastcall virtual ~EBitsError(void) { }
  409.     
  410. };
  411.  
  412. class __declspec(delphiclass) EStringListError;
  413. class __declspec(pascalimplementation) EStringListError : public Sysutils::Exception
  414. {
  415.     typedef EStringListError ThisClass;
  416.     typedef Sysutils::Exception inherited;
  417.     
  418. public:
  419.     /* !! Exception.Create */ __fastcall EStringListError(const System::AnsiString Msg) : Sysutils::Exception(
  420.         Msg) { }
  421.     /* !! Exception.CreateFmt */ __fastcall EStringListError(const System::AnsiString Msg, const TVarRec 
  422.         *Args, const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  423.     /* !! Exception.CreateRes */ __fastcall EStringListError(System::Integer Ident) : Sysutils::Exception(
  424.         Ident) { }
  425.     /* !! Exception.CreateResFmt */ __fastcall EStringListError(System::Integer Ident, const TVarRec *Args
  426.         , const System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  427.     /* !! Exception.CreateHelp */ __fastcall EStringListError(const System::AnsiString Msg, System::Integer 
  428.         AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  429.     /* !! Exception.CreateFmtHelp */ __fastcall EStringListError(const System::AnsiString Msg, const TVarRec 
  430.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  431.         , Args_Size, AHelpContext) { }
  432.     /* !! Exception.CreateResHelp */ __fastcall EStringListError(System::Integer Ident, System::Integer 
  433.         AHelpContext) : Sysutils::Exception(Ident, AHelpContext) { }
  434.     /* !! Exception.CreateResFmtHelp */ __fastcall EStringListError(System::Integer Ident, const TVarRec 
  435.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, 
  436.         Args, Args_Size, AHelpContext) { }
  437.     
  438. public:
  439.     /* !! TObject.Destroy */ __fastcall virtual ~EStringListError(void) { }
  440.     
  441. };
  442.  
  443. class __declspec(delphiclass) EComponentError;
  444. class __declspec(pascalimplementation) EComponentError : public Sysutils::Exception
  445. {
  446.     typedef EComponentError ThisClass;
  447.     typedef Sysutils::Exception inherited;
  448.     
  449. public:
  450.     /* !! Exception.Create */ __fastcall EComponentError(const System::AnsiString Msg) : Sysutils::Exception(
  451.         Msg) { }
  452.     /* !! Exception.CreateFmt */ __fastcall EComponentError(const System::AnsiString Msg, const TVarRec 
  453.         *Args, const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  454.     /* !! Exception.CreateRes */ __fastcall EComponentError(System::Integer Ident) : Sysutils::Exception(
  455.         Ident) { }
  456.     /* !! Exception.CreateResFmt */ __fastcall EComponentError(System::Integer Ident, const TVarRec *Args
  457.         , const System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  458.     /* !! Exception.CreateHelp */ __fastcall EComponentError(const System::AnsiString Msg, System::Integer 
  459.         AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  460.     /* !! Exception.CreateFmtHelp */ __fastcall EComponentError(const System::AnsiString Msg, const TVarRec 
  461.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  462.         , Args_Size, AHelpContext) { }
  463.     /* !! Exception.CreateResHelp */ __fastcall EComponentError(System::Integer Ident, System::Integer 
  464.         AHelpContext) : Sysutils::Exception(Ident, AHelpContext) { }
  465.     /* !! Exception.CreateResFmtHelp */ __fastcall EComponentError(System::Integer Ident, const TVarRec 
  466.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, 
  467.         Args, Args_Size, AHelpContext) { }
  468.     
  469. public:
  470.     /* !! TObject.Destroy */ __fastcall virtual ~EComponentError(void) { }
  471.     
  472. };
  473.  
  474. class __declspec(delphiclass) EParserError;
  475. class __declspec(pascalimplementation) EParserError : public Sysutils::Exception
  476. {
  477.     typedef EParserError ThisClass;
  478.     typedef Sysutils::Exception inherited;
  479.     
  480. public:
  481.     /* !! Exception.Create */ __fastcall EParserError(const System::AnsiString Msg) : Sysutils::Exception(
  482.         Msg) { }
  483.     /* !! Exception.CreateFmt */ __fastcall EParserError(const System::AnsiString Msg, const TVarRec *Args
  484.         , const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  485.     /* !! Exception.CreateRes */ __fastcall EParserError(System::Integer Ident) : Sysutils::Exception(Ident
  486.         ) { }
  487.     /* !! Exception.CreateResFmt */ __fastcall EParserError(System::Integer Ident, const TVarRec *Args, 
  488.         const System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  489.     /* !! Exception.CreateHelp */ __fastcall EParserError(const System::AnsiString Msg, System::Integer 
  490.         AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  491.     /* !! Exception.CreateFmtHelp */ __fastcall EParserError(const System::AnsiString Msg, const TVarRec 
  492.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  493.         , Args_Size, AHelpContext) { }
  494.     /* !! Exception.CreateResHelp */ __fastcall EParserError(System::Integer Ident, System::Integer AHelpContext
  495.         ) : Sysutils::Exception(Ident, AHelpContext) { }
  496.     /* !! Exception.CreateResFmtHelp */ __fastcall EParserError(System::Integer Ident, const TVarRec *Args
  497.         , const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, Args
  498.         , Args_Size, AHelpContext) { }
  499.     
  500. public:
  501.     /* !! TObject.Destroy */ __fastcall virtual ~EParserError(void) { }
  502.     
  503. };
  504.  
  505. typedef void *TPointerList[134217727];
  506.  
  507. typedef TPointerList *PPointerList;
  508.  
  509. typedef System::Integer __fastcall (*TListSortCompare)(System::Pointer Item1, System::Pointer Item2)
  510.     ;
  511.  
  512. class __declspec(delphiclass) TList;
  513. class __declspec(pascalimplementation) TList : public System::TObject
  514. {
  515.     typedef TList ThisClass;
  516.     typedef System::TObject inherited;
  517.     
  518. private:
  519.     TPointerList *FList;
  520.     System::Integer FCount;
  521.     System::Integer FCapacity;
  522.     
  523. protected:
  524.     virtual void __fastcall Error(void);
  525.     System::Pointer __fastcall Get(System::Integer Index);
  526.     virtual void __fastcall Grow(void);
  527.     void __fastcall Put(System::Integer Index, System::Pointer Item);
  528.     void __fastcall SetCapacity(System::Integer NewCapacity);
  529.     void __fastcall SetCount(System::Integer NewCount);
  530.     
  531. public:
  532.     __fastcall virtual ~TList(void);
  533.     System::Integer __fastcall Add(System::Pointer Item);
  534.     void __fastcall Clear(void);
  535.     void __fastcall Delete(System::Integer Index);
  536.     void __fastcall Exchange(System::Integer Index1, System::Integer Index2);
  537.     TList *__fastcall Expand(void);
  538.     System::Pointer __fastcall First(void);
  539.     System::Integer __fastcall IndexOf(System::Pointer Item);
  540.     void __fastcall Insert(System::Integer Index, System::Pointer Item);
  541.     System::Pointer __fastcall Last(void);
  542.     void __fastcall Move(System::Integer CurIndex, System::Integer NewIndex);
  543.     System::Integer __fastcall Remove(System::Pointer Item);
  544.     void __fastcall Pack(void);
  545.     void __fastcall Sort(TListSortCompare Compare);
  546.     __property System::Integer Capacity = {read=FCapacity, write=SetCapacity, nodefault};
  547.     __property System::Integer Count = {read=FCount, write=SetCount, nodefault};
  548.     __property System::Pointer Items[System::Integer Index] = {read=Get, write=Put/*, default*/};
  549.     __property PPointerList List = {read=FList, nodefault};
  550. public:
  551.     /* !! TObject.Create */ __fastcall TList(void) : System::TObject() { }
  552.     
  553. };
  554.  
  555. class __declspec(delphiclass) TBits;
  556. class __declspec(pascalimplementation) TBits : public System::TObject
  557. {
  558.     typedef TBits ThisClass;
  559.     typedef System::TObject inherited;
  560.     
  561. private:
  562.     System::Integer FSize;
  563.     void *FBits;
  564.     void __fastcall Error(void);
  565.     void __fastcall SetSize(System::Integer Value);
  566.     void __fastcall SetBit(System::Integer Index, System::Boolean Value);
  567.     System::Boolean __fastcall GetBit(System::Integer Index);
  568.     
  569. public:
  570.     __fastcall virtual ~TBits(void);
  571.     System::Integer __fastcall OpenBit(void);
  572.     __property System::Boolean Bits[System::Integer Index] = {read=GetBit, write=SetBit/*, default*/};
  573.     __property System::Integer Size = {read=FSize, write=SetSize, nodefault};
  574. public:
  575.     /* !! TObject.Create */ __fastcall TBits(void) : System::TObject() { }
  576.     
  577. };
  578.  
  579. class __declspec(delphiclass) TPersistent;
  580. class __declspec(delphiclass) TFiler;
  581. class __declspec(pascalimplementation) TPersistent : public System::TObject
  582. {
  583.     typedef TPersistent ThisClass;
  584.     typedef System::TObject inherited;
  585.     
  586. private:
  587.     void __fastcall AssignError(TPersistent *Source);
  588.     
  589. protected:
  590.     virtual void __fastcall AssignTo(TPersistent *Dest);
  591.     virtual void __fastcall DefineProperties(TFiler *Filer);
  592.     
  593. public:
  594.     virtual void __fastcall Assign(TPersistent *Source);
  595. public:
  596.     /* !! TObject.Create */ __fastcall TPersistent(void) : System::TObject() { }
  597.     /* !! TObject.Destroy */ __fastcall virtual ~TPersistent(void) { }
  598.     
  599. };
  600.  
  601. typedef System::TMetaClass *TPersistentClass;
  602.  
  603. class __declspec(delphiclass) TCollectionItem;
  604. class __declspec(delphiclass) TCollection;
  605. typedef System::TMetaClass *TCollectionItemClass;
  606.  
  607. class __declspec(pascalimplementation) TCollection : public TPersistent
  608. {
  609.     typedef TCollection ThisClass;
  610.     typedef TPersistent inherited;
  611.     
  612. private:
  613.     System::TMetaClass *FItemClass;
  614.     TList *FItems;
  615.     System::Integer FUpdateCount;
  616.     System::Integer __fastcall GetCount(void);
  617.     void __fastcall InsertItem(TCollectionItem *Item);
  618.     void __fastcall RemoveItem(TCollectionItem *Item);
  619.     
  620. protected:
  621.     void __fastcall Changed(void);
  622.     TCollectionItem *__fastcall GetItem(System::Integer Index);
  623.     void __fastcall SetItem(System::Integer Index, TCollectionItem *Value);
  624.     virtual void __fastcall Update(TCollectionItem *Item);
  625.     
  626. public:
  627.     __fastcall TCollection(System::TMetaClass * ItemClass);
  628.     __fastcall virtual ~TCollection(void);
  629.     TCollectionItem *__fastcall Add(void);
  630.     virtual void __fastcall Assign(TPersistent *Source);
  631.     void __fastcall BeginUpdate(void);
  632.     void __fastcall Clear(void);
  633.     void __fastcall EndUpdate(void);
  634.     __property System::Integer Count = {read=GetCount, nodefault};
  635.     __property TCollectionItem * Items[System::Integer Index] = {read=GetItem, write=SetItem};
  636. };
  637.  
  638. class __declspec(pascalimplementation) TCollectionItem : public TPersistent
  639. {
  640.     typedef TCollectionItem ThisClass;
  641.     typedef TPersistent inherited;
  642.     
  643. private:
  644.     TCollection *FCollection;
  645.     System::Integer __fastcall GetIndex(void);
  646.     void __fastcall SetCollection(TCollection *Value);
  647.     
  648. protected:
  649.     void __fastcall Changed(System::Boolean AllItems);
  650.     virtual void __fastcall SetIndex(System::Integer Value);
  651.     
  652. public:
  653.     __fastcall virtual TCollectionItem(TCollection *Collection);
  654.     __fastcall virtual ~TCollectionItem(void);
  655.     __property TCollection * Collection = {read=FCollection, write=SetCollection, nodefault};
  656.     __property System::Integer Index = {read=GetIndex, write=SetIndex, nodefault};
  657. };
  658.  
  659. class __declspec(delphiclass) TStrings;
  660. class __declspec(delphiclass) TReader;
  661. class __declspec(delphiclass) TWriter;
  662. class __declspec(delphiclass) TStream;
  663. class __declspec(pascalimplementation) TStrings : public TPersistent
  664. {
  665.     typedef TStrings ThisClass;
  666.     typedef TPersistent inherited;
  667.     
  668. private:
  669.     System::Integer FUpdateCount;
  670.     System::AnsiString __fastcall GetCommaText(void);
  671.     System::AnsiString __fastcall GetName(System::Integer Index);
  672.     System::AnsiString __fastcall GetValue(const System::AnsiString Name);
  673.     void __fastcall ReadData(TReader *Reader);
  674.     void __fastcall SetCommaText(const System::AnsiString Value);
  675.     void __fastcall SetValue(const System::AnsiString Name, const System::AnsiString Value);
  676.     void __fastcall WriteData(TWriter *Writer);
  677.     
  678. protected:
  679.     virtual void __fastcall DefineProperties(TFiler *Filer);
  680.     virtual System::AnsiString __fastcall Get(System::Integer Index) = 0;
  681.     virtual System::Integer __fastcall GetCount(void) = 0;
  682.     virtual System::TObject *__fastcall GetObject(System::Integer Index);
  683.     virtual System::AnsiString __fastcall GetTextStr(void);
  684.     virtual void __fastcall Put(System::Integer Index, const System::AnsiString S);
  685.     virtual void __fastcall PutObject(System::Integer Index, System::TObject *AObject);
  686.     virtual void __fastcall SetTextStr(const System::AnsiString Value);
  687.     virtual void __fastcall SetUpdateState(System::Boolean Updating);
  688.     
  689. public:
  690.     virtual System::Integer __fastcall Add(const System::AnsiString S);
  691.     virtual System::Integer __fastcall AddObject(const System::AnsiString S, System::TObject *AObject);
  692.         
  693.     void __fastcall Append(const System::AnsiString S);
  694.     virtual void __fastcall AddStrings(TStrings *Strings);
  695.     virtual void __fastcall Assign(TPersistent *Source);
  696.     void __fastcall BeginUpdate(void);
  697.     virtual void __fastcall Clear(void) = 0;
  698.     virtual void __fastcall Delete(System::Integer Index) = 0;
  699.     void __fastcall EndUpdate(void);
  700.     System::Boolean __fastcall Equals(TStrings *Strings);
  701.     virtual void __fastcall Exchange(System::Integer Index1, System::Integer Index2);
  702.     virtual System::PChar __fastcall GetText(void);
  703.     virtual System::Integer __fastcall IndexOf(const System::AnsiString S);
  704.     System::Integer __fastcall IndexOfName(const System::AnsiString Name);
  705.     System::Integer __fastcall IndexOfObject(System::TObject *AObject);
  706.     virtual void __fastcall Insert(System::Integer Index, const System::AnsiString S) = 0;
  707.     void __fastcall InsertObject(System::Integer Index, const System::AnsiString S, System::TObject *AObject
  708.         );
  709.     virtual void __fastcall LoadFromFile(const System::AnsiString FileName);
  710.     virtual void __fastcall LoadFromStream(TStream *Stream);
  711.     virtual void __fastcall Move(System::Integer CurIndex, System::Integer NewIndex);
  712.     virtual void __fastcall SaveToFile(const System::AnsiString FileName);
  713.     virtual void __fastcall SaveToStream(TStream *Stream);
  714.     virtual void __fastcall SetText(System::PChar Text);
  715.     __property System::AnsiString CommaText = {read=GetCommaText, write=SetCommaText, nodefault};
  716.     __property System::Integer Count = {read=GetCount, nodefault};
  717.     __property System::AnsiString Names[System::Integer Index] = {read=GetName};
  718.     __property System::TObject * Objects[System::Integer Index] = {read=GetObject, write=PutObject};
  719.     __property System::AnsiString Values[System::AnsiString Name] = {read=GetValue, write=SetValue};
  720.     __property System::AnsiString Strings[System::Integer Index] = {read=Get, write=Put/*, default*/};
  721.     __property System::AnsiString Text = {read=GetTextStr, write=SetTextStr, nodefault};
  722. public:
  723.     /* !! TObject.Create */ __fastcall TStrings(void) : Classes::TPersistent() { }
  724.     /* !! TObject.Destroy */ __fastcall virtual ~TStrings(void) { }
  725.     
  726. };
  727.  
  728. enum TDuplicates { dupIgnore, dupAccept, dupError };
  729.  
  730. struct TStringItem;
  731. typedef TStringItem *PStringItem;
  732.  
  733. struct TStringItem
  734. {
  735.     System::AnsiString FString;
  736.     System::TObject *FObject;
  737. } ;
  738.  
  739. typedef TStringItem TStringItemList[134217728];
  740.  
  741. typedef TStringItemList *PStringItemList;
  742.  
  743. class __declspec(delphiclass) TStringList;
  744. class __declspec(pascalimplementation) TStringList : public TStrings
  745. {
  746.     typedef TStringList ThisClass;
  747.     typedef TStrings inherited;
  748.     
  749. private:
  750.     TStringItemList *FList;
  751.     System::Integer FCount;
  752.     System::Integer FCapacity;
  753.     System::Boolean FSorted;
  754.     TDuplicates FDuplicates;
  755.     TNotifyEvent FOnChange;
  756.     TNotifyEvent FOnChanging;
  757.     void __fastcall ExchangeItems(System::Integer Index1, System::Integer Index2);
  758.     void __fastcall Grow(void);
  759.     void __fastcall QuickSort(System::Integer L, System::Integer R);
  760.     void __fastcall InsertItem(System::Integer Index, const System::AnsiString S);
  761.     void __fastcall SetCapacity(System::Integer NewCapacity);
  762.     void __fastcall SetSorted(System::Boolean Value);
  763.     
  764. protected:
  765.     virtual void __fastcall Changed(void);
  766.     virtual void __fastcall Changing(void);
  767.     virtual System::AnsiString __fastcall Get(System::Integer Index);
  768.     virtual System::Integer __fastcall GetCount(void);
  769.     virtual System::TObject *__fastcall GetObject(System::Integer Index);
  770.     virtual void __fastcall Put(System::Integer Index, const System::AnsiString S);
  771.     virtual void __fastcall PutObject(System::Integer Index, System::TObject *AObject);
  772.     virtual void __fastcall SetUpdateState(System::Boolean Updating);
  773.     
  774. public:
  775.     __fastcall virtual ~TStringList(void);
  776.     virtual System::Integer __fastcall Add(const System::AnsiString S);
  777.     virtual void __fastcall Clear(void);
  778.     virtual void __fastcall Delete(System::Integer Index);
  779.     virtual void __fastcall Exchange(System::Integer Index1, System::Integer Index2);
  780.     virtual System::Boolean __fastcall Find(const System::AnsiString S, System::Integer &Index);
  781.     virtual System::Integer __fastcall IndexOf(const System::AnsiString S);
  782.     virtual void __fastcall Insert(System::Integer Index, const System::AnsiString S);
  783.     virtual void __fastcall Sort(void);
  784.     __property TDuplicates Duplicates = {read=FDuplicates, write=FDuplicates, nodefault};
  785.     __property System::Boolean Sorted = {read=FSorted, write=SetSorted, nodefault};
  786.     __property TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  787.     __property TNotifyEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  788. public:
  789.     /* !! TObject.Create */ __fastcall TStringList(void) : Classes::TStrings() { }
  790.     
  791. };
  792.  
  793. class __declspec(delphiclass) TComponent;
  794. class __declspec(pascalimplementation) TStream : public System::TObject
  795. {
  796.     typedef TStream ThisClass;
  797.     typedef System::TObject inherited;
  798.     
  799. private:
  800.     System::Longint __fastcall GetPosition(void);
  801.     void __fastcall SetPosition(System::Longint Pos);
  802.     System::Longint __fastcall GetSize(void);
  803.     
  804. public:
  805.     virtual System::Longint __fastcall Read(void *Buffer, System::Longint Count) = 0;
  806.     virtual System::Longint __fastcall Write(const void *Buffer, System::Longint Count) = 0;
  807.     virtual System::Longint __fastcall Seek(System::Longint Offset, System::Word Origin) = 0;
  808.     void __fastcall ReadBuffer(void *Buffer, System::Longint Count);
  809.     void __fastcall WriteBuffer(const void *Buffer, System::Longint Count);
  810.     System::Longint __fastcall CopyFrom(TStream *Source, System::Longint Count);
  811.     TComponent *__fastcall ReadComponent(TComponent *Instance);
  812.     TComponent *__fastcall ReadComponentRes(TComponent *Instance);
  813.     void __fastcall WriteComponent(TComponent *Instance);
  814.     void __fastcall WriteComponentRes(const System::AnsiString ResName, TComponent *Instance);
  815.     void __fastcall WriteDescendent(TComponent *Instance, TComponent *Ancestor);
  816.     void __fastcall WriteDescendentRes(const System::AnsiString ResName, TComponent *Instance, TComponent *
  817.         Ancestor);
  818.     void __fastcall ReadResHeader(void);
  819.     __property System::Longint Position = {read=GetPosition, write=SetPosition, nodefault};
  820.     __property System::Longint Size = {read=GetSize, nodefault};
  821. public:
  822.     /* !! TObject.Create */ __fastcall TStream(void) : System::TObject() { }
  823.     /* !! TObject.Destroy */ __fastcall virtual ~TStream(void) { }
  824.     
  825. };
  826.  
  827. class __declspec(delphiclass) THandleStream;
  828. class __declspec(pascalimplementation) THandleStream : public TStream
  829. {
  830.     typedef THandleStream ThisClass;
  831.     typedef TStream inherited;
  832.     
  833. private:
  834.     System::Integer FHandle;
  835.     
  836. public:
  837.     __fastcall THandleStream(System::Integer AHandle);
  838.     virtual System::Longint __fastcall Read(void *Buffer, System::Longint Count);
  839.     virtual System::Longint __fastcall Write(const void *Buffer, System::Longint Count);
  840.     virtual System::Longint __fastcall Seek(System::Longint Offset, System::Word Origin);
  841.     __property System::Integer Handle = {read=FHandle, nodefault};
  842. public:
  843.     /* !! TObject.Destroy */ __fastcall virtual ~THandleStream(void) { }
  844.     
  845. };
  846.  
  847. class __declspec(delphiclass) TFileStream;
  848. class __declspec(pascalimplementation) TFileStream : public THandleStream
  849. {
  850.     typedef TFileStream ThisClass;
  851.     typedef THandleStream inherited;
  852.     
  853. public:
  854.     __fastcall TFileStream(const System::AnsiString FileName, System::Word Mode);
  855.     __fastcall virtual ~TFileStream(void);
  856. };
  857.  
  858. class __declspec(delphiclass) TCustomMemoryStream;
  859. class __declspec(pascalimplementation) TCustomMemoryStream : public TStream
  860. {
  861.     typedef TCustomMemoryStream ThisClass;
  862.     typedef TStream inherited;
  863.     
  864. private:
  865.     void *FMemory;
  866.     System::Longint FSize;
  867.     System::Longint FPosition;
  868.     
  869. protected:
  870.     void __fastcall SetPointer(System::Pointer Ptr, System::Longint Size);
  871.     
  872. public:
  873.     virtual System::Longint __fastcall Read(void *Buffer, System::Longint Count);
  874.     virtual System::Longint __fastcall Seek(System::Longint Offset, System::Word Origin);
  875.     void __fastcall SaveToStream(TStream *Stream);
  876.     void __fastcall SaveToFile(const System::AnsiString FileName);
  877.     __property System::Pointer Memory = {read=FMemory, nodefault};
  878. public:
  879.     /* !! TObject.Create */ __fastcall TCustomMemoryStream(void) : Classes::TStream() { }
  880.     /* !! TObject.Destroy */ __fastcall virtual ~TCustomMemoryStream(void) { }
  881.     
  882. };
  883.  
  884. class __declspec(delphiclass) TMemoryStream;
  885. class __declspec(pascalimplementation) TMemoryStream : public TCustomMemoryStream
  886. {
  887.     typedef TMemoryStream ThisClass;
  888.     typedef TCustomMemoryStream inherited;
  889.     
  890. private:
  891.     System::Longint FCapacity;
  892.     void __fastcall SetCapacity(System::Longint NewCapacity);
  893.     
  894. protected:
  895.     virtual System::Pointer __fastcall Realloc(System::Longint &NewCapacity);
  896.     __property System::Longint Capacity = {read=FCapacity, write=SetCapacity, nodefault};
  897.     
  898. public:
  899.     __fastcall virtual ~TMemoryStream(void);
  900.     void __fastcall Clear(void);
  901.     void __fastcall LoadFromStream(TStream *Stream);
  902.     void __fastcall LoadFromFile(const System::AnsiString FileName);
  903.     void __fastcall SetSize(System::Longint NewSize);
  904.     virtual System::Longint __fastcall Write(const void *Buffer, System::Longint Count);
  905. public:
  906.     /* !! TObject.Create */ __fastcall TMemoryStream(void) : Classes::TCustomMemoryStream() { }
  907.     
  908. };
  909.  
  910. class __declspec(delphiclass) TResourceStream;
  911. class __declspec(pascalimplementation) TResourceStream : public TCustomMemoryStream
  912. {
  913.     typedef TResourceStream ThisClass;
  914.     typedef TCustomMemoryStream inherited;
  915.     
  916. private:
  917.     System::Integer HResInfo;
  918.     System::Integer HGlobal;
  919.     void __fastcall Initialize(System::Integer Instance, System::PChar Name, System::PChar ResType);
  920.     
  921. public:
  922.     __fastcall TResourceStream(System::Integer Instance, const System::AnsiString ResName, System::PChar 
  923.         ResType);
  924.     __fastcall TResourceStream(System::Integer Instance, System::Integer ResID, System::PChar ResType);
  925.         
  926.     __fastcall virtual ~TResourceStream(void);
  927.     virtual System::Longint __fastcall Write(const void *Buffer, System::Longint Count);
  928. };
  929.  
  930. enum TValueType { vaNull, vaList, vaInt8, vaInt16, vaInt32, vaExtended, vaString, vaIdent, vaFalse, 
  931.     vaTrue, vaBinary, vaSet, vaLString, vaNil, vaCollection };
  932.  
  933. enum TFilerFlag { ffInherited, ffChildPos };
  934.  
  935. typedef Set<TFilerFlag, ffInherited, ffChildPos>  TFilerFlags;
  936.  
  937. typedef void __fastcall (__closure *TReaderProc)(TReader *Reader);
  938.  
  939. typedef void __fastcall (__closure *TWriterProc)(TWriter *Writer);
  940.  
  941. typedef void __fastcall (__closure *TStreamProc)(TStream *Stream);
  942.  
  943. class __declspec(pascalimplementation) TFiler : public System::TObject
  944. {
  945.     typedef TFiler ThisClass;
  946.     typedef System::TObject inherited;
  947.     
  948. private:
  949.     TStream *FStream;
  950.     void *FBuffer;
  951.     System::Integer FBufSize;
  952.     System::Integer FBufPos;
  953.     System::Integer FBufEnd;
  954.     TComponent *FRoot;
  955.     TPersistent *FAncestor;
  956.     System::Boolean FIgnoreChildren;
  957.     
  958. public:
  959.     __fastcall TFiler(TStream *Stream, System::Integer BufSize);
  960.     __fastcall virtual ~TFiler(void);
  961.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  962.         WriteData, System::Boolean HasData) = 0;
  963.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  964.         WriteData, System::Boolean HasData) = 0;
  965.     virtual void __fastcall FlushBuffer(void) = 0;
  966.     __property TComponent * Root = {read=FRoot, write=FRoot, nodefault};
  967.     __property TPersistent * Ancestor = {read=FAncestor, write=FAncestor, nodefault};
  968.     __property System::Boolean IgnoreChildren = {read=FIgnoreChildren, write=FIgnoreChildren, nodefault
  969.         };
  970. };
  971.  
  972. typedef void __fastcall (__closure *TFindMethodEvent)(TReader *Reader, const System::AnsiString MethodName
  973.     , System::Pointer &Address, System::Boolean &Error);
  974.  
  975. typedef void __fastcall (__closure *TSetNameEvent)(TReader *Reader, TComponent *Component,  System::AnsiString &
  976.     Name);
  977.  
  978. typedef void __fastcall (__closure *TReadComponentsProc)(TComponent *Component);
  979.  
  980. typedef void __fastcall (__closure *TReaderError)(TReader *Reader, const System::AnsiString Message, 
  981.     System::Boolean &Handled);
  982.  
  983. class __declspec(pascalimplementation) TReader : public TFiler
  984. {
  985.     typedef TReader ThisClass;
  986.     typedef TFiler inherited;
  987.     
  988. private:
  989.     TComponent *FOwner;
  990.     TComponent *FParent;
  991.     TList *FFixups;
  992.     TList *FLoaded;
  993.     TFindMethodEvent FOnFindMethod;
  994.     TSetNameEvent FOnSetName;
  995.     TReaderError FOnError;
  996.     System::Boolean FCanHandleExcepts;
  997.     System::AnsiString FPropName;
  998.     void __fastcall CheckValue(TValueType Value);
  999.     void __fastcall DoFixupReferences(void);
  1000.     void __fastcall FreeFixups(void);
  1001.     System::Longint __fastcall GetPosition(void);
  1002.     void __fastcall PropertyError(void);
  1003.     void __fastcall ReadBuffer(void);
  1004.     void __fastcall ReadCollection(TCollection *Collection);
  1005.     void __fastcall ReadData(TComponent *Instance);
  1006.     void __fastcall ReadDataInner(TComponent *Instance);
  1007.     void __fastcall ReadProperty(TPersistent *AInstance);
  1008.     void __fastcall ReadPropValue(TPersistent *Instance, System::Pointer PropInfo);
  1009.     System::Integer __fastcall ReadSet(System::Pointer SetType);
  1010.     void __fastcall SetPosition(System::Longint Value);
  1011.     void __fastcall SkipSetBody(void);
  1012.     void __fastcall SkipValue(void);
  1013.     void __fastcall SkipProperty(void);
  1014.     void __fastcall SkipComponent(System::Boolean SkipHeader);
  1015.     
  1016. protected:
  1017.     virtual System::Boolean __fastcall Error(const System::AnsiString Message);
  1018.     virtual System::Pointer __fastcall FindMethod(TComponent *Root, const System::AnsiString MethodName
  1019.         );
  1020.     TValueType __fastcall NextValue(void);
  1021.     virtual void __fastcall SetName(TComponent *Component,  System::AnsiString &Name);
  1022.     
  1023. public:
  1024.     __fastcall virtual ~TReader(void);
  1025.     void __fastcall BeginReferences(void);
  1026.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  1027.         WriteData, System::Boolean HasData);
  1028.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  1029.         WriteData, System::Boolean HasData);
  1030.     System::Boolean __fastcall EndOfList(void);
  1031.     void __fastcall EndReferences(void);
  1032.     void __fastcall FixupReferences(void);
  1033.     virtual void __fastcall FlushBuffer(void);
  1034.     void __fastcall Read(void *Buf, System::Longint Count);
  1035.     System::Boolean __fastcall ReadBoolean(void);
  1036.     System::Char __fastcall ReadChar(void);
  1037.     TComponent *__fastcall ReadComponent(TComponent *Component);
  1038.     void __fastcall ReadComponents(TComponent *AOwner, TComponent *AParent, TReadComponentsProc Proc);
  1039.     System::Extended __fastcall ReadFloat(void);
  1040.     System::AnsiString __fastcall ReadIdent(void);
  1041.     System::Longint __fastcall ReadInteger(void);
  1042.     void __fastcall ReadListBegin(void);
  1043.     void __fastcall ReadListEnd(void);
  1044.     void __fastcall ReadPrefix( TFilerFlags *Flags, System::Integer &AChildPos);
  1045.     TComponent *__fastcall ReadRootComponent(TComponent *Root);
  1046.     void __fastcall ReadSignature(void);
  1047.     System::AnsiString __fastcall ReadStr(void);
  1048.     System::AnsiString __fastcall ReadString(void);
  1049.     TValueType __fastcall ReadValue(void);
  1050.     __property TComponent * Owner = {read=FOwner, write=FOwner, nodefault};
  1051.     __property TComponent * Parent = {read=FParent, write=FParent, nodefault};
  1052.     __property System::Longint Position = {read=GetPosition, write=SetPosition, nodefault};
  1053.     __property TReaderError OnError = {read=FOnError, write=FOnError};
  1054.     __property TFindMethodEvent OnFindMethod = {read=FOnFindMethod, write=FOnFindMethod};
  1055.     __property TSetNameEvent OnSetName = {read=FOnSetName, write=FOnSetName};
  1056. public:
  1057.     /* !! TFiler.Create */ __fastcall TReader(TStream *Stream, System::Integer BufSize) : Classes::TFiler(
  1058.         Stream, BufSize) { }
  1059.     
  1060. };
  1061.  
  1062. class __declspec(pascalimplementation) TWriter : public TFiler
  1063. {
  1064.     typedef TWriter ThisClass;
  1065.     typedef TFiler inherited;
  1066.     
  1067. private:
  1068.     TComponent *FRootAncestor;
  1069.     System::AnsiString FPropPath;
  1070.     TList *FAncestorList;
  1071.     System::Integer FAncestorPos;
  1072.     System::Integer FChildPos;
  1073.     void __fastcall AddAncestor(TComponent *Component);
  1074.     System::Longint __fastcall GetPosition(void);
  1075.     void __fastcall SetPosition(System::Longint Value);
  1076.     void __fastcall WriteBinary(TStreamProc WriteData);
  1077.     void __fastcall WriteBuffer(void);
  1078.     virtual void __fastcall WriteData(TComponent *Instance);
  1079.     void __fastcall WritePrefix( TFilerFlags Flags, System::Integer AChildPos);
  1080.     void __fastcall WriteProperty(TPersistent *Instance, System::Pointer PropInfo);
  1081.     void __fastcall WriteProperties(TPersistent *Instance);
  1082.     void __fastcall WritePropName(const System::AnsiString PropName);
  1083.     void __fastcall WriteValue(TValueType Value);
  1084.     
  1085. public:
  1086.     __fastcall virtual ~TWriter(void);
  1087.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  1088.         WriteData, System::Boolean HasData);
  1089.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  1090.         WriteData, System::Boolean HasData);
  1091.     virtual void __fastcall FlushBuffer(void);
  1092.     void __fastcall Write(const void *Buf, System::Longint Count);
  1093.     void __fastcall WriteBoolean(System::Boolean Value);
  1094.     void __fastcall WriteCollection(TCollection *Value);
  1095.     void __fastcall WriteComponent(TComponent *Component);
  1096.     void __fastcall WriteChar(System::Char Value);
  1097.     void __fastcall WriteDescendent(TComponent *Root, TComponent *AAncestor);
  1098.     void __fastcall WriteFloat(System::Extended Value);
  1099.     void __fastcall WriteIdent(const System::AnsiString Ident);
  1100.     void __fastcall WriteInteger(System::Longint Value);
  1101.     void __fastcall WriteListBegin(void);
  1102.     void __fastcall WriteListEnd(void);
  1103.     void __fastcall WriteRootComponent(TComponent *Root);
  1104.     void __fastcall WriteSignature(void);
  1105.     void __fastcall WriteStr(const System::AnsiString Value);
  1106.     void __fastcall WriteString(const System::AnsiString Value);
  1107.     __property System::Longint Position = {read=GetPosition, write=SetPosition, nodefault};
  1108.     __property TComponent * RootAncestor = {read=FRootAncestor, write=FRootAncestor, nodefault};
  1109. public:
  1110.         
  1111.     /* !! TFiler.Create */ __fastcall TWriter(TStream *Stream, System::Integer BufSize) : Classes::TFiler(
  1112.         Stream, BufSize) { }
  1113.     
  1114. };
  1115.  
  1116. class __declspec(delphiclass) TParser;
  1117. class __declspec(pascalimplementation) TParser : public System::TObject
  1118. {
  1119.     typedef TParser ThisClass;
  1120.     typedef System::TObject inherited;
  1121.     
  1122. private:
  1123.     TStream *FStream;
  1124.     System::Longint FOrigin;
  1125.     System::Char *FBuffer;
  1126.     System::Char *FBufPtr;
  1127.     System::Char *FBufEnd;
  1128.     System::Char *FSourcePtr;
  1129.     System::Char *FSourceEnd;
  1130.     System::Char *FTokenPtr;
  1131.     System::Char *FStringPtr;
  1132.     System::Integer FSourceLine;
  1133.     System::Char FSaveChar;
  1134.     System::Char FToken;
  1135.     void __fastcall ReadBuffer(void);
  1136.     void __fastcall SkipBlanks(void);
  1137.     
  1138. public:
  1139.     __fastcall TParser(TStream *Stream);
  1140.     __fastcall virtual ~TParser(void);
  1141.     void __fastcall CheckToken(System::Char T);
  1142.     void __fastcall CheckTokenSymbol(const System::AnsiString S);
  1143.     void __fastcall Error(System::Integer Ident);
  1144.     void __fastcall ErrorFmt(System::Integer Ident, const TVarRec *Args, const System::Integer Args_Size
  1145.         );
  1146.     void __fastcall ErrorStr(const System::AnsiString Message);
  1147.     void __fastcall HexToBinary(TStream *Stream);
  1148.     System::Char __fastcall NextToken(void);
  1149.     System::Longint __fastcall SourcePos(void);
  1150.     System::AnsiString __fastcall TokenComponentIdent(void);
  1151.     System::Extended __fastcall TokenFloat(void);
  1152.     System::Longint __fastcall TokenInt(void);
  1153.     System::AnsiString __fastcall TokenString(void);
  1154.     System::Boolean __fastcall TokenSymbolIs(const System::AnsiString S);
  1155.     __property System::Integer SourceLine = {read=FSourceLine, nodefault};
  1156.     __property System::Char Token = {read=FToken, nodefault};
  1157. };
  1158.  
  1159. class __declspec(delphiclass) EThread;
  1160. class __declspec(pascalimplementation) EThread : public Sysutils::Exception
  1161. {
  1162.     typedef EThread ThisClass;
  1163.     typedef Sysutils::Exception inherited;
  1164.     
  1165. public:
  1166.     /* !! Exception.Create */ __fastcall EThread(const System::AnsiString Msg) : Sysutils::Exception(Msg
  1167.         ) { }
  1168.     /* !! Exception.CreateFmt */ __fastcall EThread(const System::AnsiString Msg, const TVarRec *Args, 
  1169.         const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  1170.     /* !! Exception.CreateRes */ __fastcall EThread(System::Integer Ident) : Sysutils::Exception(Ident)
  1171.          { }
  1172.     /* !! Exception.CreateResFmt */ __fastcall EThread(System::Integer Ident, const TVarRec *Args, const 
  1173.         System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  1174.     /* !! Exception.CreateHelp */ __fastcall EThread(const System::AnsiString Msg, System::Integer AHelpContext
  1175.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  1176.     /* !! Exception.CreateFmtHelp */ __fastcall EThread(const System::AnsiString Msg, const TVarRec *Args
  1177.         , const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args, 
  1178.         Args_Size, AHelpContext) { }
  1179.     /* !! Exception.CreateResHelp */ __fastcall EThread(System::Integer Ident, System::Integer AHelpContext
  1180.         ) : Sysutils::Exception(Ident, AHelpContext) { }
  1181.     /* !! Exception.CreateResFmtHelp */ __fastcall EThread(System::Integer Ident, const TVarRec *Args, 
  1182.         const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, Args, 
  1183.         Args_Size, AHelpContext) { }
  1184.     
  1185. public:
  1186.     /* !! TObject.Destroy */ __fastcall virtual ~EThread(void) { }
  1187.     
  1188. };
  1189.  
  1190. typedef void __fastcall (__closure *TThreadMethod)(void);
  1191.  
  1192. enum TThreadPriority { tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest, tpTimeCritical };
  1193.  
  1194. class __declspec(delphiclass) TThread;
  1195. class __declspec(pascalimplementation) TThread : public System::TObject
  1196. {
  1197.     typedef TThread ThisClass;
  1198.     typedef System::TObject inherited;
  1199.     
  1200. private:
  1201.     System::Integer FHandle;
  1202.     System::Integer FThreadID;
  1203.     System::Boolean FTerminated;
  1204.     System::Boolean FSuspended;
  1205.     System::Boolean FMainThreadWaiting;
  1206.     System::Boolean FFreeOnTerminate;
  1207.     System::Boolean FFinished;
  1208.     System::Integer FReturnValue;
  1209.     TNotifyEvent FOnTerminate;
  1210.     TThreadMethod FMethod;
  1211.     System::TObject *FSynchronizeException;
  1212.     void __fastcall CallOnTerminate(void);
  1213.     TThreadPriority __fastcall GetPriority(void);
  1214.     void __fastcall SetPriority(TThreadPriority Value);
  1215.     void __fastcall SetSuspended(System::Boolean Value);
  1216.     
  1217. protected:
  1218.     virtual void __fastcall DoTerminate(void);
  1219.     virtual void __fastcall Execute(void) = 0;
  1220.     void __fastcall Synchronize(TThreadMethod Method);
  1221.     __property System::Integer ReturnValue = {read=FReturnValue, write=FReturnValue, nodefault};
  1222.     __property System::Boolean Terminated = {read=FTerminated, nodefault};
  1223.     
  1224. public:
  1225.     __fastcall TThread(System::Boolean CreateSuspended);
  1226.     __fastcall virtual ~TThread(void);
  1227.     void __fastcall Resume(void);
  1228.     void __fastcall Suspend(void);
  1229.     void __fastcall Terminate(void);
  1230.     System::Integer __fastcall WaitFor(void);
  1231.     __property System::Boolean FreeOnTerminate = {read=FFreeOnTerminate, write=FFreeOnTerminate, nodefault
  1232.         };
  1233.     __property System::Integer Handle = {read=FHandle, nodefault};
  1234.     __property TThreadPriority Priority = {read=GetPriority, write=SetPriority, nodefault};
  1235.     __property System::Boolean Suspended = {read=FSuspended, write=SetSuspended, nodefault};
  1236.     __property System::Integer ThreadID = {read=FThreadID, nodefault};
  1237.     __property TNotifyEvent OnTerminate = {read=FOnTerminate, write=FOnTerminate};
  1238. };
  1239.  
  1240. enum TOperation { opInsert, opRemove };
  1241.  
  1242. enum Classes_63 { csLoading, csReading, csWriting, csDestroying, csDesigning, csAncestor, csUpdating, 
  1243.     csFixups };
  1244.  
  1245. typedef Set<Classes_63, csLoading, csFixups>  TComponentState;
  1246.  
  1247. enum Classes_73 { csInheritable, csCheckPropAvail };
  1248.  
  1249. typedef Set<Classes_73, csInheritable, csCheckPropAvail>  TComponentStyle;
  1250.  
  1251. typedef void __fastcall (__closure *TGetChildProc)(TComponent *Child);
  1252.  
  1253. typedef System::AnsiString TComponentName;
  1254.  
  1255. class __declspec(pascalimplementation) TComponent : public TPersistent
  1256. {
  1257.     typedef TComponent ThisClass;
  1258.     typedef TPersistent inherited;
  1259.     
  1260. private:
  1261.     TComponent *FOwner;
  1262.     System::AnsiString FName;
  1263.     System::Longint FTag;
  1264.     TList *FComponents;
  1265.     TList *FFreeNotifies;
  1266.     System::Longint FDesignInfo;
  1267.     TComponentState FComponentState;
  1268.     TComponent *__fastcall GetComponent(System::Integer AIndex);
  1269.     System::Integer __fastcall GetComponentCount(void);
  1270.     System::Integer __fastcall GetComponentIndex(void);
  1271.     void __fastcall Insert(TComponent *AComponent);
  1272.     void __fastcall ReadLeft(TReader *Reader);
  1273.     void __fastcall ReadTop(TReader *Reader);
  1274.     void __fastcall Remove(TComponent *AComponent);
  1275.     void __fastcall SetComponentIndex(System::Integer Value);
  1276.     void __fastcall SetReference(System::Boolean Enable);
  1277.     void __fastcall WriteLeft(TWriter *Writer);
  1278.     void __fastcall WriteTop(TWriter *Writer);
  1279.     
  1280. protected:
  1281.     TComponentStyle FComponentStyle;
  1282.     void __fastcall ChangeName(const System::AnsiString NewName);
  1283.     virtual void __fastcall DefineProperties(TFiler *Filer);
  1284.     virtual void __fastcall GetChildren(TGetChildProc Proc);
  1285.     virtual TComponent *__fastcall GetChildOwner(void);
  1286.     virtual TComponent *__fastcall GetChildParent(void);
  1287.     virtual void __fastcall Loaded(void);
  1288.     virtual void __fastcall Notification(TComponent *AComponent, TOperation Operation);
  1289.     virtual void __fastcall ReadState(TReader *Reader);
  1290.     void __fastcall SetAncestor(System::Boolean Value);
  1291.     void __fastcall SetDesigning(System::Boolean Value);
  1292.     virtual void __fastcall SetName(const System::AnsiString NewName);
  1293.     virtual void __fastcall SetChildOrder(TComponent *Child, System::Integer Order);
  1294.     virtual void __fastcall SetParentComponent(TComponent *Value);
  1295.     virtual void __fastcall Updating(void);
  1296.     virtual void __fastcall Updated(void);
  1297.     virtual void __fastcall ValidateRename(TComponent *AComponent, const System::AnsiString CurName, const System::AnsiString 
  1298.         NewName);
  1299.     virtual void __fastcall WriteState(TWriter *Writer);
  1300.     
  1301. public:
  1302.     __fastcall virtual TComponent(TComponent *AOwner);
  1303.     __fastcall virtual ~TComponent(void);
  1304.     void __fastcall DestroyComponents(void);
  1305.     void __fastcall Destroying(void);
  1306.     TComponent *__fastcall FindComponent(const System::AnsiString AName);
  1307.     virtual TComponent *__fastcall GetParentComponent(void);
  1308.     virtual System::Boolean __fastcall HasParent(void);
  1309.     void __fastcall FreeNotification(TComponent *AComponent);
  1310.     void __fastcall InsertComponent(TComponent *AComponent);
  1311.     void __fastcall RemoveComponent(TComponent *AComponent);
  1312.     __property TComponent * Components[System::Integer Index] = {read=GetComponent};
  1313.     __property System::Integer ComponentCount = {read=GetComponentCount, nodefault};
  1314.     __property System::Integer ComponentIndex = {read=GetComponentIndex, write=SetComponentIndex, nodefault
  1315.         };
  1316.     __property TComponentState ComponentState = {read=FComponentState, nodefault};
  1317.     __property TComponentStyle ComponentStyle = {read=FComponentStyle, nodefault};
  1318.     __property System::Longint DesignInfo = {read=FDesignInfo, write=FDesignInfo, nodefault};
  1319.     __property TComponent * Owner = {read=FOwner, nodefault};
  1320.     
  1321. __published:
  1322.     __property System::AnsiString Name = {read=FName, write=SetName, stored=false, nodefault};
  1323.     __property System::Longint Tag = {read=FTag, write=FTag, default=0};
  1324. };
  1325.  
  1326. typedef System::TMetaClass *TComponentClass;
  1327.  
  1328. typedef System::Boolean __fastcall (*TIdentToInt)(const System::AnsiString Ident, System::Longint &Int
  1329.     );
  1330.  
  1331. typedef System::Boolean __fastcall (*TIntToIdent)(System::Longint Int,  System::AnsiString &Ident);
  1332.  
  1333. typedef TComponent *__fastcall (*TFindGlobalComponent)(const System::AnsiString Name);
  1334.  
  1335. //-- var, const, procedure ---------------------------------------------------
  1336. #define MaxListSize System::Integer(134217727)
  1337. #define soFromBeginning System::Byte(0)
  1338. #define soFromCurrent System::Byte(1)
  1339. #define soFromEnd System::Byte(2)
  1340. #define fmCreate System::Integer(65535)
  1341. #define toEOF System::Char(0)
  1342. #define toSymbol System::Char(1)
  1343. #define toString System::Char(2)
  1344. #define toInteger System::Char(3)
  1345. #define toFloat System::Char(4)
  1346. extern void __fastcall (*RegisterComponentsProc)(const System::AnsiString Page, const TComponentClass 
  1347.     *ComponentClasses, const System::Integer ComponentClasses_Size);
  1348. extern void __fastcall (*RegisterNoIconProc)(const TComponentClass *ComponentClasses, const System::Integer 
  1349.     ComponentClasses_Size);
  1350. extern System::Integer MainThreadID;
  1351. extern TFindGlobalComponent FindGlobalComponent;
  1352. extern Windows::TPoint __fastcall Point(System::Integer AX, System::Integer AY);
  1353. extern Windows::TSmallPoint __fastcall SmallPoint(System::Smallint AX, System::Smallint AY);
  1354. extern Windows::TRect __fastcall Rect(System::Integer ALeft, System::Integer ATop, System::Integer ARight
  1355.     , System::Integer ABottom);
  1356. extern Windows::TRect __fastcall Bounds(System::Integer ALeft, System::Integer ATop, System::Integer 
  1357.     AWidth, System::Integer AHeight);
  1358. extern System::TMetaClass * __fastcall GetClass(const System::AnsiString ClassName);
  1359. extern System::TMetaClass * __fastcall FindClass(const System::AnsiString ClassName);
  1360. extern void __fastcall RegisterClass(System::TMetaClass * AClass);
  1361. extern void __fastcall RegisterClasses(const TPersistentClass *AClasses, const System::Integer AClasses_Size
  1362.     );
  1363. extern void __fastcall RegisterClassAlias(System::TMetaClass * AClass, const System::AnsiString Alias
  1364.     );
  1365. extern void __fastcall UnRegisterClass(System::TMetaClass * AClass);
  1366. extern void __fastcall UnRegisterClasses(const TPersistentClass *AClasses, const System::Integer AClasses_Size
  1367.     );
  1368. extern void __fastcall RegisterComponents(const System::AnsiString Page, const TComponentClass *ComponentClasses
  1369.     , const System::Integer ComponentClasses_Size);
  1370. extern void __fastcall RegisterNoIcon(const TComponentClass *ComponentClasses, const System::Integer 
  1371.     ComponentClasses_Size);
  1372. extern void __fastcall RegisterIntegerConsts(System::Pointer IntegerType, TIdentToInt IdentToInt, TIntToIdent 
  1373.     IntToIdent);
  1374. extern void __fastcall BeginGlobalLoading(void);
  1375. extern void __fastcall NotifyGlobalLoading(void);
  1376. extern void __fastcall EndGlobalLoading(void);
  1377. extern System::Boolean __fastcall InitInheritedComponent(TComponent *Instance, System::TMetaClass * 
  1378.     RootAncestor);
  1379. extern System::Boolean __fastcall InitComponentRes(const System::AnsiString ResName, TComponent *Instance
  1380.     );
  1381. extern TComponent *__fastcall ReadComponentRes(const System::AnsiString ResName, TComponent *Instance
  1382.     );
  1383. extern TComponent *__fastcall ReadComponentResFile(const System::AnsiString FileName, TComponent *Instance
  1384.     );
  1385. extern void __fastcall WriteComponentResFile(const System::AnsiString FileName, TComponent *Instance
  1386.     );
  1387. extern System::Boolean __fastcall CollectionsEqual(TCollection *C1, TCollection *C2);
  1388. extern System::PChar __fastcall LineStart(System::PChar Buffer, System::PChar BufPos);
  1389. extern void __fastcall GlobalFixupReferences(void);
  1390. extern void __fastcall GetFixupReferenceNames(TComponent *Root, TStrings *Names);
  1391. extern void __fastcall RedirectFixupReferences(TComponent *Root, const System::AnsiString OldRootName
  1392.     , const System::AnsiString NewRootName);
  1393. extern void __fastcall RemoveFixupReferences(TComponent *Root, const System::AnsiString RootName);
  1394. extern void __fastcall GetFixupInstanceNames(TComponent *Root, const System::AnsiString ReferenceRootName
  1395.     , TStrings *Names);
  1396. extern void __fastcall ObjectBinaryToText(TStream *Input, TStream *Output);
  1397. extern void __fastcall ObjectTextToBinary(TStream *Input, TStream *Output);
  1398. extern void __fastcall ObjectResourceToText(TStream *Input, TStream *Output);
  1399. extern void __fastcall ObjectTextToResource(TStream *Input, TStream *Output);
  1400. //-- template instantiations -------------------------------------------------
  1401. template class TComponentStyle ;
  1402. template class TComponentState ;
  1403. template class TFilerFlags ;
  1404. template class TShiftState ;
  1405.  
  1406. }    /* namespace Classes */
  1407. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1408. using namespace Classes;
  1409. #endif
  1410. //-- end unit ----------------------------------------------------------------
  1411. #endif    // Classes
  1412.