abconst.pas

Lazarus is a free and open source development tool for the FreePascal Compiler. The purpose of the p

  AbMadeByFormatS = 'Made by Version: %f';
  AbNeededFormatS = 'Version Needed to Extract: %f';
  AbCommentFormatS = 'Comment: %s';
  AbDefaultExtS = '*.zip';
  AbFilterS = 'PKZip Archives (*.zip)|*.zip|Self Extracting Archives (*.exe)|*.exe|All Files (*.*)|*.*';
  AbFileNameTitleS = 'Select File Name';

  AbOKS = 'OK';
  AbCancelS = 'Cancel';
  AbSelectDirectoryS = 'Select Directory';

  AbEnterPasswordS = 'Enter Password';
  AbPasswordS = '&Password';
  AbVerifyS = '&Verify';

  AbCabExtS = '*.cab';
  AbCabFilterS = 'Cabinet Archives (*.cab)|*.CAB|All Files (*.*)|*.*';
  AbLogExtS = '*.txt';
  AbLogFilterS = 'Text Files (*.txt)|*.TXT|All Files (*.*)|*.*';
  AbExeExtS = '*.exe';
  AbExeFilterS = 'Self-Extracting Zip Files (*.exe)|*.EXE|All Files (*.*)|*.*';

  AbVMSReadTooManyBytesS = 'VMS: request to read too many bytes [%d]';
  AbVMSInvalidOriginS = 'VMS: invalid origin %d, should be 0, 1, 2';
  AbVMSErrorOpenSwapS = 'VMS: Cannot open swap file %s';
  AbVMSSeekFailS = 'VMS: Failed to seek in swap file %s';
  AbVMSReadFailS = 'VMS: Failed to read %d bytes from swap file %s';
  AbVMSWriteFailS = 'VMS: Failed to write %d bytes to swap file %s';
  AbVMSWriteTooManyBytesS = 'VMS: request to write too many bytes [%d]';

  AbBBSReadTooManyBytesS = 'BBS: request to read too many bytes [%d]';
  AbBBSSeekOutsideBufferS = 'BBS: New position is outside the buffer';
  AbBBSInvalidOriginS = 'BBS: Invalid Origin value';
  AbBBSWriteTooManyBytesS = 'BBS: request to write too many bytes [%d]';

  AbSWSNotEndofStreamS = 'TabSlidingWindowStream.Write: Not at end of stream';
  AbSWSSeekFailedS = 'TabSlidingWindowStream.bsWriteChunk: seek failed';
  AbSWSWriteFailedS = 'TabSlidingWindowStream.bsWriteChunk: write failed';
  AbSWSInvalidOriginS = 'TabSlidingWindowStream.Seek: invalid origin';
  AbSWSInvalidNewOriginS = 'TabSlidingWindowStream.Seek: invalid new position';

  AbItemNameHeadingS = 'Name';
  AbPackedHeadingS = 'Packed';
  AbMethodHeadingS = 'Method';
  AbRatioHeadingS = 'Ratio (%)';
  AbCRCHeadingS = 'CRC32';
  AbFileAttrHeadingS = 'Attributes';
  AbFileFormatHeadingS = 'Format';
  AbEncryptionHeadingS = 'Encrypted';
  AbTimeStampHeadingS = 'Time Stamp';
  AbFileSizeHeadingS = 'Size';
  AbVersionMadeHeadingS = 'Version Made';
  AbVersionNeededHeadingS = 'Version Needed';
  AbPathHeadingS = 'Path';
  AbPartialHeadingS = 'Partial';
  AbExecutableHeadingS = 'Executable';

  AbCabMethod0S = 'None';
  AbCabMethod1S = 'MSZip';

  AbLtAddS = ' added ';
  AbLtDeleteS = ' deleted ';
  AbLtExtractS = ' extracted ';
  AbLtFreshenS = ' freshened ';
  AbLtMoveS = ' moved ';
  AbLtReplaceS = ' replaced ';
  AbLtStartS = ' logging ';

  AbGzipInvalidS                   = 'Invalid Gzip';
  AbGzipBadCRCS                    = 'Bad CRC';
  AbGzipBadFileSizeS               = 'Bad File Size';

  AbUnhandledEntityS             = 'Unhandled Entity';

  { pre-defined "operating system" (really more FILE system) identifiers for the
    Gzip header }
  AbGzOsFat         = 'FAT filesystem (MS-DOS, OS/2, NT/Win32)';
  AbGzOsAmiga       = 'Amiga';
  AbGzOsVMS         = 'VMS (or OpenVMS)';
  AbGzOsUnix        = 'Unix';
  AbGzOsVM_CMS      = 'VM/CMS';
  AbGzOsAtari       = 'Atari TOS';
  AbGzOsHPFS        = 'HPFS filesystem (OS/2, NT)';
  AbGzOsMacintosh   = 'Macintosh';
  AbGzOsZ_System    = 'Z-System';
  AbGzOsCP_M        = 'CP/M';
  AbGzOsTOPS_20     = 'TOPS-20';
  AbGzOsNTFS        = 'NTFS filesystem (NT)';
  AbGzOsQDOS        = 'QDOS';
  AbGzOsAcornRISCOS = 'Acorn RISCOS';
  AbGzOsunknown     = 'unknown';
  AbGzOsUndefined   = 'ID undefined by gzip';


{!!.03 - Moved from AbCompnd.inc }
{ Compound File specific error messages }
resourcestring
  AbCmpndIndexOutOfBounds   = 'Index out of bounds';
  AbCmpndBusyUpdating       = 'Compound file is busy updating';
  AbCmpndInvalidFile        = 'Invalid compound file';
  AbCmpndFileNotFound       = 'File/Directory not found';
  AbCmpndFolderNotEmpty     = 'Folder not empty';
  AbCmpndExceedsMaxFileSize = 'File size exceeds maximum allowable';
{!!.03 - End Moved }


type
  AbStrRec = record
    ID: Integer;
    Str: string;
  end;

const
  AbStrArray : array [0..145] of AbStrRec = (
    (ID: AbZipVersionNeeded; Str: AbZipVersionNeededS),
    (ID: AbUnknownCompressionMethod; Str: AbUnknownCompressionMethodS),
    (ID: AbNoExtractionMethod; Str: AbNoExtractionMethodS),
    (ID: AbInvalidPassword; Str: AbInvalidPasswordS),
    (ID: AbNoInsertionMethod; Str: AbNoInsertionMethodS),
    (ID: AbInvalidFactor; Str: AbInvalidFactorS),
    (ID: AbDuplicateName; Str: AbDuplicateNameS),
    (ID: AbUnsupportedCompressionMethod; Str: AbUnsupportedCompressionMethodS),
    (ID: AbUserAbort; Str: AbUserAbortS),
    (ID: AbArchiveBusy; Str: AbArchiveBusyS),
    (ID: AbDiskRequest; Str: AbDiskRequestS),
    (ID: AbLastDiskRequest; Str: AbLastDiskRequestS),
    (ID: AbBadSpanStream; Str: AbBadSpanStreamS),
    (ID: AbDiskNumRequest; Str: AbDiskNumRequestS),
    (ID: AbNoOverwriteSpanStream; Str: AbNoOverwriteSpanStreamS),
    (ID: AbNoSpannedSelfExtract; Str: AbNoSpannedSelfExtractS),
    (ID: AbBlankDisk; Str: AbBlankDiskS),
    (ID: AbStreamFull; Str: AbStreamFullS),
    (ID: AbNoSuchDirectory; Str: AbNoSuchDirectoryS),
    (ID: AbInflateBlockError; Str: AbInflateBlockErrorS),
    (ID: AbBadStreamType; Str: AbBadStreamTypeS),
    (ID: AbTruncateError; Str: AbTruncateErrorS),
    (ID: AbZipBadCRC; Str: AbZipBadCRCS),
    (ID: AbZipBadStub; Str: AbZipBadStubS),
    (ID: AbFileNotFound; Str: AbFileNotFoundS),
    (ID: AbInvalidLFH; Str: AbInvalidLFHS),
    (ID: AbNoArchive; Str: AbNoArchiveS),
    (ID: AbErrZipInvalid; Str: AbErrZipInvalidS),
    (ID: AbReadError; Str: AbReadErrorS),
    (ID: AbInvalidIndex; Str: AbInvalidIndexS),
    (ID: AbInvalidThreshold; Str: AbInvalidThresholdS),
    (ID: AbNthImageRequest; Str: AbNthImageRequestS),
    (ID: AbLastImageRequest; Str: AbLastImageRequestS),
    (ID: AbImageRequest; Str: AbImageRequestS),
    (ID: AbUnhandledFileType; Str: AbUnhandledFileTypeS),
    (ID: AbSpanningNotSupported; Str: AbSpanningNotSupportedS),
    (ID: AbLogCreateError; Str: AbLogCreateErrorS),

    (ID: AbImageNumRequest; Str: AbImageNumRequestS),

    (ID: AbBBSReadTooManyBytes; Str: AbBBSReadTooManyBytesS),
    (ID: AbBBSSeekOutsideBuffer; Str: AbBBSSeekOutsideBufferS),
    (ID: AbBBSInvalidOrigin; Str: AbBBSInvalidOriginS),
    (ID: AbBBSWriteTooManyBytes; Str: AbBBSWriteTooManyBytesS),

    (ID: AbNoCabinetDllError; Str: AbNoCabinetDllErrorS),
    (ID: AbFCIFileOpenError; Str: AbFCIFileOpenErrorS),
    (ID: AbFCIFileReadError; Str: AbFCIFileReadErrorS),
    (ID: AbFCIFileWriteError; Str: AbFCIFileWriteErrorS),
    (ID: AbFCIFileCloseError; Str: AbFCIFileCloseErrorS),
    (ID: AbFCIFileSeekError; Str: AbFCIFileSeekErrorS),
    (ID: AbFCIFileDeleteError; Str: AbFCIFileDeleteErrorS),
    (ID: AbFCIAddFileError; Str: AbFCIAddFileErrorS),
    (ID: AbFCICreateError; Str: AbFCICreateErrorS),
    (ID: AbFCIFlushCabinetError; Str: AbFCIFlushCabinetErrorS),
    (ID: AbFCIFlushFolderError; Str: AbFCIFlushFolderErrorS),
    (ID: AbFDICopyError; Str: AbFDICopyErrorS),
    (ID: AbFDICreateError; Str: AbFDICreateErrorS),
    (ID: AbInvalidCabTemplate; Str: AbInvalidCabTemplateS),
    (ID: AbInvalidCabFile; Str: AbInvalidCabFileS),

    (ID: AbSWSNotEndofStream; Str: AbSWSNotEndofStreamS),
    (ID: AbSWSSeekFailed; Str: AbSWSSeekFailedS),
    (ID: AbSWSWriteFailed; Str: AbSWSWriteFailedS),
    (ID: AbSWSInvalidOrigin; Str: AbSWSInvalidOriginS),
    (ID: AbSWSInvalidNewOrigin; Str: AbSWSInvalidNewOriginS),

    (ID: AbVersionFormat; Str: AbVersionFormatS),
    (ID: AbMethod0; Str: AbMethod0S),
    (ID: AbMethod1; Str: AbMethod1S),
    (ID: AbMethod2; Str: AbMethod2S),
    (ID: AbMethod3; Str: AbMethod3S),
    (ID: AbMethod4; Str: AbMethod4S),
    (ID: AbMethod5; Str: AbMethod5S),
    (ID: AbMethod6; Str: AbMethod6S),
    (ID: AbMethod7; Str: AbMethod7S),
    (ID: AbMethod8; Str: AbMethod8S),
    (ID: AbMethod9; Str: AbMethod9S),
    (ID: AbMethod10; Str: AbMethod10S),
    (ID: AbMethod11; Str: AbMethod11S),

    (ID: AbCompressedSizeFormat; Str: AbCompressedSizeFormatS),
    (ID: AbUncompressedSizeFormat; Str: AbUncompressedSizeFormatS),
    (ID: AbCompressionMethodFormat; Str: AbCompressionMethodFormatS),
    (ID: AbCompressionRatioFormat; Str: AbCompressionRatioFormatS),
    (ID: AbCRCFormat; Str: AbCRCFormatS),
    (ID: AbReadOnly; Str: AbReadOnlyS),
    (ID: AbHidden; Str: AbHiddenS),
    (ID: AbSystem; Str: AbSystemS),
    (ID: AbArchived; Str: AbArchivedS),
    (ID: AbEFAFormat; Str: AbEFAFormatS),
    (ID: AbIFAFormat; Str: AbIFAFormatS),
    (ID: AbText; Str: AbTextS),
    (ID: AbBinary; Str: AbBinaryS),
    (ID: AbEncryptionFormat; Str: AbEncryptionFormatS),
    (ID: AbEncrypted; Str: AbEncryptedS),
    (ID: AbNotEncrypted; Str: AbNotEncryptedS),
    (ID: AbUnknown; Str: AbUnknownS),
    (ID: AbTimeStampFormat; Str: AbTimeStampFormatS),
    (ID: AbMadeByFormat; Str: AbMadeByFormatS),
    (ID: AbNeededFormat; Str: AbNeededFormatS),
    (ID: AbCommentFormat; Str: AbCommentFormatS),

    (ID: AbDefaultExt; Str: AbDefaultExtS),
    (ID: AbFilter; Str: AbFilterS),
    (ID: AbFileNameTitle; Str: AbFileNameTitleS),

    (ID: AbOK; Str: AbOKS),
    (ID: AbCancel; Str: AbCancelS),
    (ID: AbSelectDirectory; Str: AbSelectDirectoryS),

    (ID: AbEnterPassword; Str: AbEnterPasswordS),
    (ID: AbPassword; Str: AbPasswordS),
    (ID: AbVerify; Str: AbVerifyS),

    (ID: AbCabExt; Str: AbCabExtS),
    (ID: AbCabFilter; Str: AbCabFilterS),
    (ID: AbLogExt; Str: AbLogExtS),
    (ID: AbLogFilter; Str: AbLogFilterS),
    (ID: AbExeExt; Str: AbExeExtS),
    (ID: AbExeFilter; Str: AbExeFilterS),

    (ID: AbVMSReadTooManyBytes; Str: AbVMSReadTooManyBytesS),
    (ID: AbVMSInvalidOrigin; Str: AbVMSInvalidOriginS),
    (ID: AbVMSErrorOpenSwap; Str: AbVMSErrorOpenSwapS),
    (ID: AbVMSSeekFail; Str: AbVMSSeekFailS),
    (ID: AbVMSReadFail; Str: AbVMSReadFailS),
    (ID: AbVMSWriteFail; Str: AbVMSWriteFailS),
    (ID: AbVMSWriteTooManyBytes; Str: AbVMSWriteTooManyBytesS),

    (ID: AbItemNameHeading; Str: AbItemNameHeadingS),
    (ID: AbPackedHeading; Str: AbPackedHeadingS),
    (ID: AbMethodHeading; Str: AbMethodHeadingS),
    (ID: AbRatioHeading; Str: AbRatioHeadingS),
    (ID: AbCRCHeading; Str: AbCRCHeadingS),
    (ID: AbFileAttrHeading; Str: AbFileAttrHeadingS),
    (ID: AbFileFormatHeading; Str: AbFileFormatHeadingS),
    (ID: AbEncryptionHeading; Str: AbEncryptionHeadingS),
    (ID: AbTimeStampHeading; Str: AbTimeStampHeadingS),
    (ID: AbFileSizeHeading; Str: AbFileSizeHeadingS),
    (ID: AbVersionMadeHeading; Str: AbVersionMadeHeadingS),
    (ID: AbVersionNeededHeading; Str: AbVersionNeededHeadingS),
    (ID: AbPathHeading; Str: AbPathHeadingS),
    (ID: AbPartialHeading; Str: AbPartialHeadingS),
    (ID: AbExecutableHeading; Str: AbExecutableHeadingS),

    (ID: AbCabMethod0; Str: AbCabMethod0S),
    (ID: AbCabMethod1; Str: AbCabMethod1S),

    (ID: AbLtAdd; Str: AbLtAddS),
    (ID: AbLtDelete; Str: AbLtDeleteS),
    (ID: AbLtExtract; Str: AbLtExtractS),
    (ID: AbLtFreshen; Str: AbLtFreshenS),
    (ID: AbLtMove; Str: AbLtMoveS),
    (ID: AbLtReplace; Str: AbLtReplaceS),
    (ID: AbLtStart; Str: AbLtStartS),

    (ID: AbGzipInvalid; Str: AbGzipInvalidS),
    (ID: AbGzipBadCRC; Str: AbGzipBadCRCS),
    (ID: AbGzipBadFileSize; Str: AbGzipBadFileSizeS),

    (ID: AbUnhandledEntity; Str: AbUnhandledEntityS)
  );



function AbStrRes(Index : Integer) : string;

implementation

function AbStrRes(Index : Integer) : string;
var
  i : Integer;
begin
  for i := Low(AbStrArray) to High(AbStrArray) do
    if AbStrArray[i].ID = Index then
      Result := AbStrArray[i].Str;
end;


end.