absconst.hpp

Absolute Database 5.12 src. Absolute Database lets you forget the Borland Database Engine (BDE). Th

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Absconst.pas' rev: 10.00

#ifndef AbsconstHPP
#define AbsconstHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Abssecurity.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Absconst
{
//-- type declarations -------------------------------------------------------
typedef AnsiString ABSConst__1[13];

#pragma option push -b-
enum TReservedWord { rwABSOLUTE, rwACTION, rwADD, rwALL, rwALLOCATE, rwALTER, rwAND, rwANY, rwARE, rwAS, rwASC, rwASSERTION, rwAT, rwAUTHORIZATION, rwAVG, rwBEGIN, rwBETWEEN, rwBIT, rwBIT_LENGTH, rwBOTH, rwBY, rwCASCADE, rwCASCADED, rwCASE, rwCAST, rwCATALOG, rwCHAR, rwCHARACTER, rwCHAR_LENGTH, rwCHARACTER_LENGTH, rwCHECK, rwCLOSE, rwCOALESCE, rwCOLLATE, rwCOLLATION, rwCOLUMN, rwCOMMIT, rwCONNECT, rwCONNECTION, rwCONSTRAINT, rwCONSTRAINTS, rwCONTINUE, rwCONVERT, rwCORRESPONDING, rwCOUNT, rwCREATE, rwCROSS, rwCURRENT, rwCURRENT_DATE, rwCURRENT_TIME, rwCURRENT_TIMESTAMP, rwCURRENT_USER, rwCURSOR, rwDATE, rwDAY, rwDEALLOCATE, rwDEC, rwDECIMAL, rwDECLARE, rwDEFAULT, rwDEFERRABLE, rwDEFERRED, rwDELETE, rwDESC, rwDESCRIBE, rwDESCRIPTOR, rwDIAGNOSTICS, rwDISCONNECT, rwDISTINCT, rwDOMAIN, rwDOUBLE, rwDROP, rwELSE, rwEND, rwEND_EXEC, rwESCAPE, rwEXCEPT, rwEXCEPTION, rwEXEC, rwEXECUTE, rwEXISTS, rwEXTERNAL, rwEXTRACT, rwFALSE, rwFETCH, rwFIRST, rwFLOAT, rwFOR, rwFOREIGN, rwFOUND, rwFROM, rwFULL, rwGET, rwGLOBAL, rwGO
	, rwGOTO, rwGRANT, rwGROUP, rwHAVING, rwHOUR, rwIDENTITY, rwIMMEDIATE, rwIN, rwINDICATOR, rwINITIALLY, rwINNER, rwINPUT, rwINSENSITIVE, rwINSERT, rwINT, rwINTEGER, rwINTERSECT, rwINTERVAL, rwINTO, rwIS, rwISOLATION, rwJOIN, rwKEY, rwLANGUAGE, rwLAST, rwLEADING, rwLEFT, rwLEVEL, rwLIKE, rwLOCAL, rwLOWER, rwMATCH, rwMAX, rwMEMORY, rwMIN, rwMINUS, rwMINUTE, rwMODULE, rwMONTH, rwNAMES, rwNATIONAL, rwNATURAL, rwNCHAR, rwNEXT, rwNO, rwNOT, rwNULL, rwNULLIF, rwNUMERIC, rwOCTET_LENGTH, rwOF, rwON, rwONLY, rwOPEN, rwOPTION, rwOR, rwORDER, rwOUTER, rwOUTPUT, rwOVERLAPS, rwPAD, rwPARTIAL, rwPOSITION, rwPRECISION, rwPREPARE, rwPRESERVE, rwPRIMARY, rwPRIOR, rwPRIVILEGES, rwPROCEDURE, rwPUBLIC, rwREAD, rwREAL, rwREFERENCES, rwRELATIVE, rwRESTRICT, rwREVOKE, rwRIGHT, rwROLLBACK, rwROWS, rwSCHEMA, rwSCROLL, rwSECOND, rwSECTION, rwSELECT, rwSESSION, rwSESSION_USER, rwSET, rwSIZE, rwSMALLINT, rwSOME, rwSPACE, rwSQL, rwSQLCODE, rwSQLERROR, rwSQLSTATE, rwSUBSTRING, rwSUM, rwSYSTEM_USER, rwTABLE, rwTEMPORARY, rwTHEN, rwTIME
	, rwTIMESTAMP, rwTIMEZONE_HOUR, rwTIMEZONE_MINUTE, rwTO, rwTOP, rwTRAILING, rwTRANSACTION, rwTRANSLATE, rwTRANSLATION, rwTRIM, rwTRUE, rwUNION, rwUNIQUE, rwUNKNOWN, rwUPDATE, rwUPPER, rwUSAGE, rwUSER, rwUSING, rwVALUE, rwVALUES, rwVARCHAR, rwVARYING, rwVIEW, rwWHEN, rwWHENEVER, rwWHERE, rwWITH, rwWORK, rwWRITE, rwYEAR, rwZONE, rwPASSWORD, rwBLOBBLOCKSIZE, rwBLOBCOMPRESSIONMODE, rwBLOBCOMPRESSIONALGORITHM, rwLAST_AUTOINC, rwMODIFY, rwNEW, rwINDEX, rwNOCASE, rwLTRIM, rwRTRIM, rwPOS, rwLENGTH, rwSYSDATE, rwNOW, rwTODATE, rwTOSTRING, rwAUTOINDEXES, rwNOAUTOINDEXES, rwINCREMENT, rwLASTVALUE, rwMAXVALUE, rwMINVALUE, rwCYCLED, rwNOMAXVALUE, rwNOMINVALUE, rwNOCYCLED, rwINITIALVALUE, rwSTARTVALUE, rwRENAME, rwSTART, rwFLUSH, rwAUTOINC, rwMIMETOBIN, rwROWNUM, rwIF, rwTRUNCATE, rwABS, rwACOS, rwASIN, rwATAN, rwCEIL, rwCOS, rwEXP, rwFLOOR, rwLOG, rwPOWER, rwRAND, rwROUND, rwSIGN, rwSIN, rwSQR, rwSQRT, rwHALFEVEN, rwHALFPOS, rwHALFNEG, rwHALFDOWN, rwHALFUP, rwRNDNEG, rwRNDPOS, rwRNDDOWN, rwRNDUP, rwNone };
#pragma option pop

typedef AnsiString ABSConst__2[292];

//-- var, const, procedure ---------------------------------------------------
static const Word NextErrorLCode = 0x2913;
#define ErrorLInvalidPageOffset "Error - invalid page offset = %d, page size = %d"
#define ErrorLLockByTimeoutFailed "Error - cannot lock object, timeout = %d, delay (ms) = %"\
	"d"
#define ErrorLUnlockFailed "Error - cannot unlock object"
#define ErrorLInvalidPageNo "Invalid PageNo = %d"
#define ErrorLInvalidRecordNo "Invalid record No = %d"
#define ErrorLInvalidFloat "'%s' is not a valid floating point value"
#define ErrorLInvalidBoolean "'%s' is not a valid boolean value"
#define ErrorLInvalidCurrency "'%s' is not a valid currency value"
#define ErrorLSystemError "System error. Error code = %d"
#define ErrorLVarNotArray "Not a variant array"
#define ErrorLVarArrayBounds "Invalid variant array bounds. DimCount = %d, IndexCount ="\
	" %d"
#define ErrorLDuplicateFieldName "Duplicate field name %s"
#define ErrorLZeroBlockSizeIsNotAllowedForField "BLOB block size should be > 0 for field %s"
#define ErrorLZeroBlockSizeIsNotAllowed "Stream block size = 0 is not allowed"
#define ErrorLFieldNameExpected "Field name expected, but expression '%s...' found at line"\
	" %d, column %d"
#define ErrorLUnexpectedToken "Unexpected token '%s' found at line %d, column %d"
#define ErrorLAmbiguousFieldReference "Ambiguous field reference to '%s'"
#define ErrorLAmbiguousFieldReferenceInOrderBy "Ambiguous field reference in ORDER BY clause. TableName = "\
	"%s, ColumnName = %s"
#define ErrorLInvalidBitNo "Invalid bit no = %d, number of bits = %d"
#define ErrorLFieldDoesNotIncludedInGroupByList "Field is not included in GROUP BY list. Table name = '%s'"\
	", Field name = '%s', FieldNo = %d, Found field name = '%"\
	"s'"
#define ErrorLInvalidUnionType "Invalid union type = %d"
#define ErrorLBothJoinAOEqual "Both join fields are from the same table. Field1 = '%s', "\
	"Field2 = '%s', No1 = %d, No2 = %d."
#define ErrorLEmptyFieldList "Empty field list, item count = %d"
#define ErrorLInvalidJoinField "Invalid field for join operation. Table name = '%s', Fiel"\
	"dName = '%s', i = %d, FieldExists = %d"
#define ErrorLEqualRecordsInJoins "Equal records in joins, while not EOF loop"
#define ErrorLCompareFieldValues "Cannot compare values for fields: %s, %s. Error: %s"
#define ErrorLInvalidTableNameInReference "Invalid table name in reference. Table name = %s, table a"\
	"lias = %s, tname = %s"
#define ErrorLCannotFindIndexByID "Cannot find index by ID = %d"
#define ErrorLCannotFindIndex "Cannot find index %s"
#define ErrorLNoFieldsInProjection "No fields were specified while setting projection"
#define ErrorLInvalidFilterExpressionType "Invalid filter expression type = %d"
#define ErrorLCannotAccessHiddenField "Cannot access hidden field: table name = %s, field name ="\
	" %s, display name = %s, FieldNo = %d"
#define ErrorLInvalidFieldLink "Invalid field link: table name = %s, FieldNo = %d"
#define ErrorLCannotFindField "Cannot find field %s"
#define ErrorLCannotFindFieldInTable "Cannot find field %s in table %s"
#define ErrorLCannotOpenTable "Cannot open table %s, InMemory = %d"
#define ErrorLCannotOpenTableInSQL "Error on opening table \"%s\" (InMemory = %d) in SQL que"\
	"ry: %s"
#define ErrorLInvalidTopRecord "Invalid top row = %d"
#define ErrorLIndexFieldMissing "Cannot access index field '%s'"
#define ErrorLCircularDataLink "Circular datalinks are not allowed"
#define ErrorLMissingDataSource "Missing MasterSource or DataSource"
#define ErrorLLinkDesigner "Field %s, from the Detail Fields list, must be linked"
#define ErrorLTableExists "Table %s already exists"
#define ErrorLRecordDoesNotExist "Record does not exist, ID = %d, %d"
#define ErrorLFilterFunctionOffsetMoved "Offset to filter function has been moved. Version should b"\
	"e recompiled with correct offset"
#define ErrorLFieldIndexError "Field index out of range"
#define ErrorLNoFieldIndexes "No index currently active"
#define ErrorLDifferentListsLength "Error - different lists length. L1 = %d, L2 = %d"
#define ErrorLInvalidFieldNumber "Invalid field number - FieldNo = %d, FieldCount = %d"
#define ErrorLInvalidItemNumber "Invalid item number - ItemNo = %d, ItemCount = %d"
#define ErrorLNilPointer "Nil pointer occured"
#define ErrorLErrorGettingFieldData "Error getting field data - FieldNo = %d, MemoryOffset = %"\
	"d, MemoryDataSize = %d"
#define ErrorLDatasetIsNotInEditOrInsertMode "Dataset not in edit or insert mode"
#define ErrorLInvalidRecordSize "Invalid record size = 0"
#define ErrorLUpdatingRecord "Error updating record"
#define ErrorLDeletingRecord "Error deleting record"
#define ErrorLWriteToStream "Error writing to stream"
#define ErrorLNoFields "Error creating table - no fields were specified"
#define ErrorLGetRecordFailed "Cannot retreive record"
#define ErrorLTableDataNotFound "Table not found, table name = %s"
#define ErrorLDatasetIsNotInInsertOrEditMode "Dataset is not in insert or edit mode"
#define ErrorLDatasetIsNotOpened "Dataset is not opened"
#define ErrorLDatasetIsInReadOnlyMode "Dataset is in read only mode"
#define ErrorLUpdateRecord "Error updating record"
#define ErrorLDeleteRecord "Error deleting record"
#define ErrorLAddingRecord "Error adding record"
#define ErrorLRetreivingRecord "Error retreiving record"
#define ErrorLUpdateRecordModified "Error updating record - record was modified by other proce"\
	"ss"
#define ErrorLUpdateRecordDeleted "Error updating record - record was deleted by other proces"\
	"s"
#define ErrorLDeleteRecordModified "Error deleting record - record was modified by other proce"\
	"ss"
#define ErrorLDeleteRecordDeleted "Error deleting record - record was deleted by other proces"\
	"s"
#define ErrorLCannotDeleteBusyTable "Cannot delete table '%s'. Table is open by another datase"\
	"t"
#define ErrorLCannotRenameBusyTable "Cannot rename table '%s'. Table is open by another datase"\
	"t"
#define ErrorLCannotSaveBusyTable "Cannot save table '%s'. Table is open by another dataset"
#define ErrorLCannotLoadBusyTable "Cannot load table '%s'. Table is open by another dataset"
#define ErrorLCannotSetPosition "Cannot set stream position to %d. Position = %d, Size = "\
	"%d"
#define ErrorLStreamSizeTooSmall "Stream size = %d too small. Should be at least = %d"
#define ErrorLCannotChangeStreamSize "Cannot change stream size. NewSize = %d, Current size = %"\
	"d"
#define ErrorLCompressBufferFailed "Compress buffer failed. CompAlg = %d, CompMode = %d, InS"\
	"ize = %d, OutSize = %d"
#define ErrorLCannotReadFromStream "Cannot read from stream. Position = %d, Stream size = %d"\
	", Block size = %d, Bytes Read = %d"
#define ErrorLCannotWriteToStream "Cannot write to stream. Position = %d, Stream size = %d,"\
	" Block size = %d, Bytes Write = %d"
#define ErrorLDecompressBufferFailed "Decompress buffer failed. CompAlg = %d, InSize = %d, Out"\
	"Size = %d"
#define ErrorLDecompressBufferFailedInvalidSize "Decompress buffer failed. UncompSize = %d, Header.UncompS"\
	"ize = %d"
#define ErrorLDecompressBufferFailedInvalidCRC "Decompress buffer failed. CheckSum = %d, Header.Crc32 = %"\
	"d"
#define ErrorLCannotReadFromStreamInvalidReadSize "Cannot read from stream. ReadSize = %d"
#define ErrorLInvalidStreamSize "Invalid stream size = %d. Should be = %d"
#define ErrorLInvalidExtensionSize "Invalid extension size. NewSize = %d, UncompressedSize = "\
	"%d, ExtensionSize = %d"
#define ErrorLCannotCreateFile "Cannot create file. FileName = %s"
#define ErrorLCannotOpenFile "Cannot open file. FileName = %s, Mode = %d"
#define ErrorLBLOBFieldAlreadyOpened "BLOB field already opened. FieldNo = %d, FieldName = %s"
#define ErrorLCannotWriteToReadOnlyStream "Cannot write to read only stream"
#define ErrorLInvalidRecordCount "Invalid record count = %d. Limit is %d"
#define ErrorLUpdateRecordProhibited "Cannot update record in temporary mode"
#define ErrorLDeleteRecordProhibited "Cannot delete record in temporary mode"
#define ErrorLCancelProhibited "Cannot cancel operation in temporary mode"
#define ErrorLInvalidSignature "Invalid file format. Found signature: '%s', expected: '%"\
	"s'"
#define ErrorLInvalidVersion "Invalid version number = %f. Should be <= %f"
#define ErrorLImportTableCannotCopyData "Error importing table. Cannot copy data due to error: %s\r"\
	"\n"
#define ErrorLImportTableCannotCreateTable "Error importing table. Cannot create table due to error: %"\
	"s\r\n"
#define ErrorLExportTableCannotCreateTable "Error exporting table. Cannot create table due to error: %"\
	"s\r\n"
#define ErrorLExportTableCannotOpenTable "Error exporting table. Cannot open destination table due t"\
	"o error: %s\r\n"
#define ErrorLExportTableCannotCopyData "Error exporting table. Cannot copy data due to error: %s\r"\
	"\n"
#define ErrorLCopyTableInvalidFieldValue "Error copying table \"%s\". Record #%d, field '%s' was "\
	"copied with Null value due to error: %s\r\n"
#define ErrorLCopyTablePostFailed "Error copying table \"%s\". Record #%d was not imported "\
	"due to error: %s\r\n"
#define ErrorLNotExpressionPassed "Not expression object passed as expression"
#define ErrorLInvalidScanConditionNo "Invalid condition number = %d, count = %d"
#define ErrorLCannotFindRecordPositionInIndex "Cannot find record position in index %d, RecordID = %d %"\
	"d"
#define ErrorLInvalidScanConditionNoIndex "Invalid scan condition - indexID = %d, count = %d"
#define ErrorLRestructureTableCannotCreateTable "Error restructuring table. Cannot create table due to erro"\
	"r: %s\r\n"
#define ErrorLRestructureTableCannotCopyData "Error restructuring table. Cannot copy data due to error: "\
	"%s\r\n"
#define ErrorLRestructureTableCannotDeleteTable "Error restructuring table. Cannot delete table due to erro"\
	"r: %s\r\n"
#define ErrorLRestructureTableCannotRenameTable "Error restructuring table. Cannot rename table due to erro"\
	"r: %s\r\n"
#define ErrorLDatabaseFileIsNotOpened "Error - database file is not opened."
#define ErrorLDatabaseFileIsInUse "Error - database file %s is in use."
#define ErrorLCannotAddTablePFSPage "Error - cannot add table PFS page. PageCount = %d, No = %"\
	"d, Item[No].PageNo = %d, PageNo = %d"