📄 rm_jclbase.hpp
字号:
// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved
// (DO NOT EDIT: machine generated header) 'Rm_jclbase.pas' rev: 11.00
#ifndef Rm_jclbaseHPP
#define Rm_jclbaseHPP
#pragma delphiheader begin
#pragma option push
#pragma option -w- // All warnings off
#pragma option -Vx // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp> // Pascal unit
#include <Sysinit.hpp> // Pascal unit
#include <Windows.hpp> // Pascal unit
#include <Sysutils.hpp> // Pascal unit
//-- user supplied -----------------------------------------------------------
namespace Rm_jclbase
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EJclError;
class PASCALIMPLEMENTATION EJclError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
#pragma option push -w-inl
/* Exception.Create */ inline __fastcall EJclError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmt */ inline __fastcall EJclError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateRes */ inline __fastcall EJclError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmt */ inline __fastcall EJclError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateHelp */ inline __fastcall EJclError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmtHelp */ inline __fastcall EJclError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResHelp */ inline __fastcall EJclError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmtHelp */ inline __fastcall EJclError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~EJclError(void) { }
#pragma option pop
};
class DELPHICLASS EJclWin32Error;
class PASCALIMPLEMENTATION EJclWin32Error : public EJclError
{
typedef EJclError inherited;
private:
unsigned FLastError;
AnsiString FLastErrorMsg;
public:
__fastcall EJclWin32Error(const AnsiString Msg);
__fastcall EJclWin32Error(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size);
__fastcall EJclWin32Error(int Ident)/* overload */;
__fastcall EJclWin32Error(System::PResStringRec ResStringRec)/* overload */;
__property unsigned LastError = {read=FLastError, nodefault};
__property AnsiString LastErrorMsg = {read=FLastErrorMsg};
public:
#pragma option push -w-inl
/* Exception.CreateResFmt */ inline __fastcall EJclWin32Error(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : EJclError(Ident, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateHelp */ inline __fastcall EJclWin32Error(const AnsiString Msg, int AHelpContext) : EJclError(Msg, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmtHelp */ inline __fastcall EJclWin32Error(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : EJclError(Msg, Args, Args_Size, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResHelp */ inline __fastcall EJclWin32Error(int Ident, int AHelpContext)/* overload */ : EJclError(Ident, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmtHelp */ inline __fastcall EJclWin32Error(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : EJclError(ResStringRec, Args, Args_Size, AHelpContext) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~EJclWin32Error(void) { }
#pragma option pop
};
class DELPHICLASS EJclInternalError;
class PASCALIMPLEMENTATION EJclInternalError : public EJclError
{
typedef EJclError inherited;
public:
#pragma option push -w-inl
/* Exception.Create */ inline __fastcall EJclInternalError(const AnsiString Msg) : EJclError(Msg) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmt */ inline __fastcall EJclInternalError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : EJclError(Msg, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateRes */ inline __fastcall EJclInternalError(int Ident)/* overload */ : EJclError(Ident) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmt */ inline __fastcall EJclInternalError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : EJclError(Ident, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateHelp */ inline __fastcall EJclInternalError(const AnsiString Msg, int AHelpContext) : EJclError(Msg, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmtHelp */ inline __fastcall EJclInternalError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : EJclError(Msg, Args, Args_Size, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResHelp */ inline __fastcall EJclInternalError(int Ident, int AHelpContext)/* overload */ : EJclError(Ident, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmtHelp */ inline __fastcall EJclInternalError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : EJclError(ResStringRec, Args, Args_Size, AHelpContext) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~EJclInternalError(void) { }
#pragma option pop
};
typedef Extended Float;
typedef Extended *PFloat;
typedef void * *PPointer;
typedef Byte *PByte;
typedef Shortint Int8;
typedef short Int16;
typedef int Int32;
typedef Byte UInt8;
typedef Word UInt16;
typedef unsigned UInt32;
typedef unsigned *PCardinal;
typedef __int64 *PLargeInteger;
typedef __int64 TLargeInteger;
typedef Byte TJclByteArray[2147483647];
typedef TJclByteArray *PJclByteArray;
typedef void *TBytes;
struct TULargeInteger;
typedef TULargeInteger *PULargeInteger;
struct TULargeInteger
{
union
{
struct
{
__int64 QuadPart;
};
struct
{
unsigned LowPart;
unsigned HighPart;
};
};
} ;
typedef DynamicArray<Byte > TDynByteArray;
typedef DynamicArray<Shortint > TDynShortIntArray;
typedef DynamicArray<Word > TDynWordArray;
typedef DynamicArray<short > TDynSmallIntArray;
typedef DynamicArray<int > TDynLongIntArray;
typedef DynamicArray<__int64 > TDynInt64Array;
typedef DynamicArray<unsigned > TDynCardinalArray;
typedef DynamicArray<int > TDynIntegerArray;
typedef DynamicArray<Extended > TDynExtendedArray;
typedef DynamicArray<double > TDynDoubleArray;
typedef DynamicArray<float > TDynSingleArray;
typedef DynamicArray<Extended > TDynFloatArray;
typedef DynamicArray<void * > TDynPointerArray;
typedef DynamicArray<AnsiString > TDynStringArray;
typedef DynamicArray<System::_di_IInterface > TDynIInterfaceArray;
typedef DynamicArray<System::TObject* > TDynObjectArray;
//-- var, const, procedure ---------------------------------------------------
static const Shortint JclVersionMajor = 0x1;
static const Shortint JclVersionMinor = 0x61;
static const Shortint JclVersionRelease = 0x1;
static const Word JclVersionBuild = 0x87c;
static const int JclVersion = 0x161887c;
static const char AnsiLineFeed = '\xa';
static const char AnsiCarriageReturn = '\xd';
#define AnsiCrLf "\r\n"
#define AnsiLineBreak "\r\n"
#define AnsiSigns (Set<char, 0, 255> () << '\x2b' << '\x2d' )
#define AnsiUppercaseLetters (Set<char, 0, 255> () << '\x41' << '\x42' << '\x43' << '\x44' << '\x45' << '\x46' << '\x47' << '\x48' << '\x49' << '\x4a' << '\x4b' << '\x4c' << '\x4d' << '\x4e' << '\x4f' << '\x50' << '\x51' << '\x52' << '\x53' << '\x54' << '\x55' << '\x56' << '\x57' << '\x58' << '\x59' << '\x5a' )
#define AnsiLowercaseLetters (Set<char, 0, 255> () << '\x61' << '\x62' << '\x63' << '\x64' << '\x65' << '\x66' << '\x67' << '\x68' << '\x69' << '\x6a' << '\x6b' << '\x6c' << '\x6d' << '\x6e' << '\x6f' << '\x70' << '\x71' << '\x72' << '\x73' << '\x74' << '\x75' << '\x76' << '\x77' << '\x78' << '\x79' << '\x7a' )
#define AnsiLetters (Set<char, 0, 255> () << '\x41' << '\x42' << '\x43' << '\x44' << '\x45' << '\x46' << '\x47' << '\x48' << '\x49' << '\x4a' << '\x4b' << '\x4c' << '\x4d' << '\x4e' << '\x4f' << '\x50' << '\x51' << '\x52' << '\x53' << '\x54' << '\x55' << '\x56' << '\x57' << '\x58' << '\x59' << '\x5a' << '\x61' << '\x62' << '\x63' << '\x64' << '\x65' << '\x66' << '\x67' << '\x68' << '\x69' << '\x6a' << '\x6b' << '\x6c' << '\x6d' << '\x6e' << '\x6f' << '\x70' << '\x71' << '\x72' << '\x73' << '\x74' << '\x75' << '\x76' << '\x77' << '\x78' << '\x79' << '\x7a' )
#define AnsiDecDigits (Set<char, 0, 255> () << '\x30' << '\x31' << '\x32' << '\x33' << '\x34' << '\x35' << '\x36' << '\x37' << '\x38' << '\x39' )
#define AnsiOctDigits (Set<char, 0, 255> () << '\x30' << '\x31' << '\x32' << '\x33' << '\x34' << '\x35' << '\x36' << '\x37' )
#define AnsiHexDigits (Set<char, 0, 255> () << '\x30' << '\x31' << '\x32' << '\x33' << '\x34' << '\x35' << '\x36' << '\x37' << '\x38' << '\x39' << '\x41' << '\x42' << '\x43' << '\x44' << '\x45' << '\x46' << '\x61' << '\x62' << '\x63' << '\x64' << '\x65' << '\x66' )
#define AnsiValidIdentifierLetters (Set<char, 0, 255> () << '\x30' << '\x31' << '\x32' << '\x33' << '\x34' << '\x35' << '\x36' << '\x37' << '\x38' << '\x39' << '\x41' << '\x42' << '\x43' << '\x44' << '\x45' << '\x46' << '\x47' << '\x48' << '\x49' << '\x4a' << '\x4b' << '\x4c' << '\x4d' << '\x4e' << '\x4f' << '\x50' << '\x51' << '\x52' << '\x53' << '\x54' << '\x55' << '\x56' << '\x57' << '\x58' << '\x59' << '\x5a' << '\x5f' << '\x61' << '\x62' << '\x63' << '\x64' << '\x65' << '\x66' << '\x67' << '\x68' << '\x69' << '\x6a' << '\x6b' << '\x6c' << '\x6d' << '\x6e' << '\x6f' << '\x70' << '\x71' << '\x72' << '\x73' << '\x74' << '\x75' << '\x76' << '\x77' << '\x78' << '\x79' << '\x7a' )
extern PACKAGE void __fastcall MoveArray(TDynIInterfaceArray &List, int FromIndex, int ToIndex, int Count)/* overload */;
extern PACKAGE void __fastcall MoveArray(TDynStringArray &List, int FromIndex, int ToIndex, int Count)/* overload */;
extern PACKAGE void __fastcall MoveArray(TDynObjectArray &List, int FromIndex, int ToIndex, int Count)/* overload */;
extern PACKAGE void __fastcall MoveArray(TDynIntegerArray &List, int FromIndex, int ToIndex, int Count)/* overload */;
extern PACKAGE void __fastcall MoveChar(const AnsiString Source, int FromIndex, AnsiString &Dest, int ToIndex, int Count)/* overload */;
extern PACKAGE void __fastcall I64ToCardinals(__int64 I, unsigned &LowPart, unsigned &HighPart);
extern PACKAGE void __fastcall CardinalsToI64(__int64 &I, const unsigned LowPart, const unsigned HighPart);
} /* namespace Rm_jclbase */
using namespace Rm_jclbase;
#pragma pack(pop)
#pragma option pop
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // Rm_jclbase
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -