anchor.diff:   * ***** END LICENSE BLOCK ***** *)
   
   {*********************************************************}
  -{* Abbrevia: Abconst.pas 3.05                            *}
  +{* Abbrevia: AbConst.pas 3.05                            *}
   {*********************************************************}
   {* Abbrevia: Constants                                   *}
   {*********************************************************}
  
positive.code:   AbUnsupportedCompressionMethod = 8;
    AbUserAbort                    = 9;
    AbArchiveBusy                  = 10;
    AbDiskRequest                  = 11;
    AbLastDiskRequest              = 12;
    AbBadSpanStream                = 13;
    AbDiskNumRequest               = 14;
    AbNoOverwriteSpanStream        = 15;
    AbNoSpannedSelfExtract         = 16;
    AbBlankDisk                    = 17;
    AbStreamFull                   = 18;
    AbNoSuchDirectory              = 19;
    AbInflateBlockError            = 20;
    AbBadStreamType                = 21;
    AbTruncateError                = 22;
    AbZipBadCRC                    = 23;
    AbZipBadStub                   = 24;
    AbFileNotFound                 = 25;
    AbInvalidLFH                   = 26;
    AbNoArchive                    = 27;
    AbErrZipInvalid                = 28;
    AbReadError                    = 29;
    AbInvalidIndex                 = 30;
    AbInvalidThreshold             = 31;
    AbNthImageRequest              = 32;
    AbLastImageRequest             = 33;
    AbImageRequest                 = 34;
  
    AbUnhandledFileType            = 35;
    AbSpanningNotSupported         = 36;
    AbImageNumRequest              = 37;
    AbLogCreateError               = 38;
  
    AbBBSReadTooManyBytes          = 40;
    AbBBSSeekOutsideBuffer         = 41;
  
negative.code:   AbSWSInvalidOrigin             = 83;
    AbSWSInvalidNewOrigin          = 84;
  
    AbVMSReadTooManyBytes           = 100;
    AbVMSInvalidOrigin              = 101;
    AbVMSErrorOpenSwap              = 102;
    AbVMSSeekFail                   = 103;
    AbVMSReadFail                   = 104;
    AbVMSWriteFail                  = 105;
    AbVMSWriteTooManyBytes          = 106;
  
    AbGZipInvalid                   = 200;
    AbGzipBadCRC                    = 201;
    AbGzipBadFileSize               = 202;
  
  
  function AbStrRes(Index : Integer) : string;
  
  implementation
  
  uses
    AbResString;
  
  type
    AbStrRec = record
      ID: Integer;
      Str: string;
    end;
  
  const
    AbStrArray : array [0..62] 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: AbBadSpanStream; Str: AbBadSpanStreamS),
      (ID: AbNoOverwriteSpanStream; Str: AbNoOverwriteSpanStreamS),
      (ID: AbNoSpannedSelfExtract; Str: AbNoSpannedSelfExtractS),
      (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: AbUnhandledFileType; Str: AbUnhandledFileTypeS),
      (ID: AbSpanningNotSupported; Str: AbSpanningNotSupportedS),
  
      (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: 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: AbGzipInvalid; Str: AbGzipInvalidS),
      (ID: AbGzipBadCRC; Str: AbGzipBadCRCS),
      (ID: AbGzipBadFileSize; Str: AbGzipBadFileSizeS)
    );
  
  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.
  