stconst.pas

条码控件： 一维条码控件 二维条码控件 PDF417Barcode MaxiCodeBarcode

  stscPRNGWeibullShapeS             = 'StRandom: the Weibull distribution shape must be greater than zero';
  stscPRNGWeibullScaleS             = 'StRandom: the Weibull distribution scale must be greater than zero';
  stscPRNGLimitS                    = 'StRandom: the limit must be greater than zero';
  stscPRNGUpperLimitS               = 'StRandom: the upper limit must be greater than the lower limit';
  stscPRNGErlangOrderS              = 'StRandom: the Erlang distribution''s order must be greater than zero';


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

const
  SysToolsStrArray : array [0..174] of StStrRec = (

  {string table constants for STREGINI}
 (ID: stscFalseString; Str: stscFalseStringS),
 (ID: stscTrueString; Str: stscTrueStringS),
 (ID: stscNoFileKey; Str: stscNoFileKeyS),
 (ID: stscInvalidPKey; Str: stscInvalidPKeyS),
 (ID: stscNoWin32S; Str: stscNoWin32SS),
 (ID: stscCreateKeyFail; Str: stscCreateKeyFailS),
 (ID: stscOpenKeyFail; Str: stscOpenKeyFailS),
 (ID: stscIniWriteFail; Str: stscIniWriteFailS),
 (ID: stscRegWriteFail; Str: stscRegWriteFailS),
 (ID: stscNoKeyName; Str: stscNoKeyNameS),
 (ID: stscQueryKeyFail; Str: stscQueryKeyFailS),
 (ID: stscEnumKeyFail; Str: stscEnumKeyFailS),
 (ID: stscEnumValueFail; Str: stscEnumValueFailS),
 (ID: stscIniDeleteFail; Str: stscIniDeleteFailS),
 (ID: stscKeyHasSubKeys; Str: stscKeyHasSubKeysS),
 (ID: stscDeleteKeyFail; Str: stscDeleteKeyFailS),
 (ID: stscIniDelValueFail; Str: stscIniDelValueFailS),
 (ID: stscRegDelValueFail; Str: stscRegDelValueFailS),
 (ID: stscOutputFileExists; Str: stscOutputFileExistsS),
 (ID: stscFileHasExtension; Str: stscFileHasExtensionS),
 (ID: stscSaveKeyFail; Str: stscSaveKeyFailS),
 (ID: stscNo16bitSupport; Str: stscNo16bitSupportS),
 (ID: stscCantFindInputFile; Str: stscCantFindInputFileS),
 (ID: stscLoadKeyFail; Str: stscLoadKeyFailS),
 (ID: stscUnloadKeyFail; Str: stscUnloadKeyFailS),
 (ID: stscNotWinNTPlatform; Str: stscNotWinNTPlatformS),
 (ID: stscBadOptionsKeyCombo; Str: stscBadOptionsKeyComboS),
 (ID: stscRestoreKeyFail; Str: stscRestoreKeyFailS),
 (ID: stscReplaceKeyFail; Str: stscReplaceKeyFailS),
 (ID: stscNoIniFileSupport; Str: stscNoIniFileSupportS),
 (ID: stscRemoteKeyIsOpen; Str: stscRemoteKeyIsOpenS),
 (ID: stscConnectRemoteKeyFail; Str: stscConnectRemoteKeyFailS),
 (ID: stscCloseRemoteKeyFail; Str: stscCloseRemoteKeyFailS),
 (ID: stscFlushKeyFail; Str: stscFlushKeyFailS),
 (ID: stscBufferDataSizesDif; Str: stscBufferDataSizesDifS),
 (ID: stscKeyIsEmptyNotExists; Str: stscKeyIsEmptyNotExistsS),
 (ID: stscGetSecurityFail; Str: stscGetSecurityFailS),
 (ID: stscSetSecurityFail; Str: stscSetSecurityFailS),
 (ID: stscByteArrayTooLarge; Str: stscByteArrayTooLargeS),
 (ID: stscQueryValueFail; Str: stscQueryValueFailS),
 (ID: stscNoValueNameSpecified; Str: stscNoValueNameSpecifiedS),

  {string table constants for container classes}
 (ID: stscNoCompare; Str: stscNoCompareS), {Compare property must be set}
 (ID: stscBadType; Str: stscBadTypeS), {an incompatible class is passed to a method}
 (ID: stscBadSize; Str: stscBadSizeS), {bad size for TStDictionary, TStBits, TStCollection}
 (ID: stscDupNode; Str: stscDupNodeS), {attempt to add duplicate node to TStTree}
 (ID: stscBadIndex; Str: stscBadIndexS), {bad index passed to TStBits or large array}
 (ID: stscBadWinMode; Str: stscBadWinModeS), {requires enhanced mode operation}
 (ID: stscUnknownClass; Str: stscUnknownClassS), {container class name not registered}
 (ID: stscUnknownNodeClass; Str: stscUnknownNodeClassS), {container node class name not registered}
 (ID: stscNoStoreData; Str: stscNoStoreDataS), {container has no store data routine}
 (ID: stscNoLoadData; Str: stscNoLoadDataS), {container has no load data routine}
 (ID: stscWrongClass; Str: stscWrongClassS), {container class and streamed class not equal}
 (ID: stscWrongNodeClass; Str: stscWrongNodeClassS), {container node class and streamed class not equal}
 (ID: stscBadCompare; Str: stscBadCompareS), {invalid compare function or unable to assign now}
 (ID: stscTooManyCols; Str: stscTooManyColsS), {assign a matrix with >1 col to array}
 (ID: stscBadColCount; Str: stscBadColCountS), {assign a matrix with wrong col count to virtual matrix}
 (ID: stscBadElSize; Str: stscBadElSizeS), {assign a matrix with wrong elem size to virtual matrix}
 (ID: stscBadDups; Str: stscBadDupsS), {setting Dups to False in a non-empty sorted collection}

  {string table constants for sorting unit}
 (ID: stscTooManyFiles; Str: stscTooManyFilesS), {too many merge files in TStSorter}
 (ID: stscFileCreate; Str: stscFileCreateS), {error creating file in TStSorter}
 (ID: stscFileOpen; Str: stscFileOpenS), {error opening file in TStSorter}
 (ID: stscFileWrite; Str: stscFileWriteS), {error writing file in TStSorter}
 (ID: stscFileRead; Str: stscFileReadS), {error reading file in TStSorter}
 (ID: stscBadState; Str: stscBadStateS), {TStSorter in wrong state}

  {string table constants for Bcd unit}
 (ID: stscBcdBadFormat; Str: stscBcdBadFormatS), {bad BCD format}
 (ID: stscBcdOverflow; Str: stscBcdOverflowS), {BCD larger than 10**64}
 (ID: stscBcdDivByZero; Str: stscBcdDivByZeroS), {BCD divide by zero}
 (ID: stscBcdBadInput; Str: stscBcdBadInputS), {BCD negative input to sqrt, ln, or power}
 (ID: stscBcdBufOverflow; Str: stscBcdBufOverflowS), {buffer overflow in FormatBcd}
 (ID: stscNoVerInfo; Str: stscNoVerInfoS), {no version info in file}
 (ID: stscVerInfoFail; Str: stscVerInfoFailS), {error reading version info}

(*
  {shell string constants}
 (ID: stscShellVersionError; Str: stscShellVersionErrorS), {not available in this version of Shell32.dll}
 (ID: stscShellFileOpSrcError; Str: stscShellFileOpSrcErrorS), {no source files specified}
 (ID: stscShellFileOpDstError; Str: stscShellFileOpDstErrorS), {no destination files specified}
 (ID: stscShellFileOpMapError; Str: stscShellFileOpMapErrorS), {mapping incomplete}
 (ID: stscShellFormatError; Str: stscShellFormatErrorS), {format error}
 (ID: stscShellFormatCancel; Str: stscShellFormatCancelS), {format cancelled}
 (ID: stscShellFormatNoFormat; Str: stscShellFormatNoFormatS), {drive cannot be formatted}
 (ID: stscShellFormatBadDrive; Str: stscShellFormatBadDriveS), {not removable drive}
 (ID: stscTrayIconInvalidOS; Str: stscTrayIconInvalidOSS), {bad OS (NT 3.51)}
 (ID: stscTrayIconCantAdd; Str: stscTrayIconCantAddS), {can't add icon to the tray}
 (ID: stscTrayIconCantDelete; Str: stscTrayIconCantDeleteS), {can't delete icon from the tray}
 (ID: stscTrayIconError; Str: stscTrayIconErrorS), {general tray icon error}
 (ID: stscBadDropTarget; Str: stscBadDropTargetS), {drop target is not TWinControl}
 (ID: stscCOMInitFailed; Str: stscCOMInitFailedS), {COInitialize failed}
 (ID: stscNoPathSpecified; Str: stscNoPathSpecifiedS), {No destination path for shortcut}
 (ID: stscIShellLinkError; Str: stscIShellLinkErrorS), {Error creating IShellLink}
 (ID: stscNotShortcut; Str: stscNotShortcutS), {File is not a shortcut}
 (ID: stscTrayIconClose; Str: stscTrayIconCloseS), {Close}
 (ID: stscTrayIconRestore; Str: stscTrayIconRestoreS), {Restore}
 (ID: stscInvalidTargetFile; Str: stscInvalidTargetFileS), {Shortcut target file not found}
 (ID: stscShellFileOpDelete; Str: stscShellFileOpDeleteS), {Can't use file mappings with delete op}
 (ID: stscShellFileNotFound; Str: stscShellFileNotFoundS), {One or more source files is missing}
 (ID: stscTrayIconDuplicate; Str: stscTrayIconDuplicateS), {Cant' have more than one tray icon}
 (ID: stscBadVerInfoKey; Str: stscBadVerInfoKeyS), {User-defined key not found in ver info}
 (ID: stscImageListInvalid; Str: stscImageListInvalidS), {No image list assigned.}
*)
 (ID: stscBadVerInfoKey; Str: stscBadVerInfoKeyS), {User-defined key not found in ver info}

  {barcode errors}
 (ID: stscInvalidUPCACodeLen; Str: stscInvalidUPCACodeLenS),
 (ID: stscInvalidCharacter; Str: stscInvalidCharacterS),
 (ID: stscInvalidCheckCharacter; Str: stscInvalidCheckCharacterS),
 (ID: stscInvalidUPCECodeLen; Str: stscInvalidUPCECodeLenS),
 (ID: stscInvalidEAN8CodeLen; Str: stscInvalidEAN8CodeLenS),
 (ID: stscInvalidEAN13CodeLen; Str: stscInvalidEAN13CodeLenS),
 (ID: stscInvalidSupCodeLen; Str: stscInvalidSupCodeLenS),

  {stexpr errors}
 (ID: stscExprEmpty; Str: stscExprEmptyS),  {empty expression}
 (ID: stscExprBadNum; Str: stscExprBadNumS),  {error in floating point number}
 (ID: stscExprBadChar; Str: stscExprBadCharS),  {unknown character}
 (ID: stscExprOpndExp; Str: stscExprOpndExpS),  {expected function, number, sign, or (}
 (ID: stscExprNumeric; Str: stscExprNumericS),  {numeric error}
 (ID: stscExprBadExp; Str: stscExprBadExpS),  {invalid expression}
 (ID: stscExprOpndOvfl; Str: stscExprOpndOvflS),  {operand stack overflow}
 (ID: stscExprUnkFunc; Str: stscExprUnkFuncS),  {unknown function identifier}
 (ID: stscExprLParExp; Str: stscExprLParExpS),  {left parenthesis expected}
 (ID: stscExprRParExp; Str: stscExprRParExpS),  {right parenthesis expected}
 (ID: stscExprCommExp; Str: stscExprCommExpS),  {list separator (comma) expected}
 (ID: stscExprDupIdent; Str: stscExprDupIdentS),  {duplicate identifier}

  {ststat errors}
 (ID: stscStatBadCount; Str: stscStatBadCountS),  {unequal or bad counts of array elements}
 (ID: stscStatBadParam; Str: stscStatBadParamS),  {invalid parameter}
 (ID: stscStatBadData; Str: stscStatBadDataS),  {invalid data point in array}
 (ID: stscStatNoConverge; Str: stscStatNoConvergeS),  {no convergence in numerical routine}

  {stfin errors}
 (ID: stscFinBadArg; Str: stscFinBadArgS),
 (ID: stscFinNoConverge; Str: stscFinNoConvergeS),

  {stmime errors}
 (ID: stscBadEncodeFmt; Str: stscBadEncodeFmtS),
 (ID: stscBadAttachment; Str: stscBadAttachmentS),
 (ID: stscDupeString; Str: stscDupeStringS),
 (ID: stscInStream; Str: stscInStreamS),

  {ststring errors}
 (ID: stscOutOfBounds; Str: stscOutOfBoundsS),  {Index out of string bounds}


  {stBarPN errors}
 (ID: stscInvalidLength; Str: stscInvalidLengthS),

  {StHTML errors}
 (ID: stscNoInputFile; Str: stscNoInputFileS),
 (ID: stscNoOutputFile; Str: stscNoOutputFileS),
 (ID: stscInFileError; Str: stscInFileErrorS),
 (ID: stscOutFileError; Str: stscOutFileErrorS),
 (ID: stscWordDelimiters; Str: stscWordDelimitersS),
 (ID: stscInvalidSLEntry; Str: stscInvalidSLEntryS),
 (ID: stscBadStream; Str: stscBadStreamS),

  {StShlCtl constansts}
 (ID: stscName; Str: stscNameS),
 (ID: stscSize; Str: stscSizeS),
 (ID: stscType; Str: stscTypeS),
 (ID: stscModified; Str: stscModifiedS),
 (ID: stscAttributes; Str: stscAttributesS),
 (ID: stscFileFolder; Str: stscFileFolderS),
 (ID: stscSystemFolder; Str: stscSystemFolderS),
 (ID: stscOriginalLoc; Str: stscOriginalLocS),
 (ID: stscDateDeleted; Str: stscDateDeletedS),
 (ID: stscFile; Str: stscFileS),
 (ID: stscInvalidFolder; Str: stscInvalidFolderS),
 (ID: stscFolderReadOnly; Str: stscFolderReadOnlyS),

  {StSpawnApplication errors}
  (ID: stscInsufficientData; Str: stscInsufficientDataS),

  {StMemoryMappedFile errors}
 (ID: stscCreateFileFailed; Str: stscCreateFileFailedS),
 (ID: stscFileMappingFailed; Str: stscFileMappingFailedS),
 (ID: stscCreateViewFailed; Str: stscCreateViewFailedS),
 (ID: stscBadOrigin; Str: stscBadOriginS),
 (ID: stscGetSizeFailed; Str: stscGetSizeFailedS),

  {buffered stream errors}
 (ID: stscNilStream; Str: stscNilStreamS),
 (ID: stscNoSeekForRead; Str: stscNoSeekForReadS),
 (ID: stscNoSeekForWrite; Str: stscNoSeekForWriteS),
 (ID: stscCannotWrite; Str: stscCannotWriteS),
 (ID: stscBadTerminator; Str: stscBadTerminatorS),
 (ID: stscBadLineLength; Str: stscBadLineLengthS),
 (ID: stscCannotSetSize; Str: stscCannotSetSizeS),

  {RegEx errors}
 (ID: stscUnknownError; Str: stscUnknownErrorS),
 (ID: stscExpandingClass; Str: stscExpandingClassS),
 (ID: stscAlternationFollowsClosure; Str: stscAlternationFollowsClosureS),
 (ID: stscUnbalancedParens; Str: stscUnbalancedParensS),
 (ID: stscFollowingClosure; Str: stscFollowingClosureS),
 (ID: stscPatternError; Str: stscPatternErrorS),
 (ID: stscUnbalancedTag; Str: stscUnbalancedTagS),
 (ID: stscNoPatterns; Str: stscNoPatternsS),
 (ID: stscPatternTooLarge; Str: stscPatternTooLargeS),
 (ID: stscStreamsNil; Str: stscStreamsNilS),
 (ID: stscInTextStreamError; Str: stscInTextStreamErrorS),
 (ID: stscOutTextStreamError; Str: stscOutTextStreamErrorS),
 (ID: stscClosureMaybeEmpty; Str: stscClosureMaybeEmptyS),
 (ID: stscInFileNotFound; Str: stscInFileNotFoundS),
 (ID: stscREInFileError; Str: stscREInFileErrorS),
 (ID: stscOutFileDelete; Str: stscOutFileDeleteS),
 (ID: stscOutFileCreate; Str: stscOutFileCreateS),


  {StNet errors 320-339}
 (ID: stscNetNoManualCreate; Str: stscNetNoManualCreateS),
 (ID: stscNetUnknownError; Str: stscNetUnknownErrorS),
 (ID: stscNetGroupNotSpecified; Str: stscNetGroupNotSpecifiedS),
 (ID: stscNetDateSpecifiedOutOfRange; Str: stscNetDateSpecifiedOutOfRangeS),
 (ID: stscNetInvalidParameter; Str: stscNetInvalidParameterS),
 (ID: stscNetInvalidItemType; Str: stscNetInvalidItemTypeS),

 { StMoney errors }
// (ID: stscMoneyIdxOutOfRange; Str:           stscMoneyIdxOutOfRangeS),
 (ID: stscMoneyNilResult; Str:               stscMoneyNilResultS),
 (ID: stscMoneyNilParameter; Str:            stscMoneyNilParameterS),
 (ID: stscMoneyCurrenciesNotMatch; Str:      stscMoneyCurrenciesNotMatchS),
 (ID: stscMoneyNoExchangeRatesAvail; Str:    stscMoneyNoExchangeRatesAvailS),
 (ID: stscMoneyInvalidExchangeParams; Str:   stscMoneyInvalidExchangeParamsS),
 (ID: stscMoneyInvalidTriangleExchange; Str: stscMoneyInvalidTriangleExchangeS),
 (ID: stscMoneyNoSuchExchange; Str:          stscMoneyNoSuchExchangeS),
 (ID: stscMoneyMissingIntermediateRate; Str: stscMoneyMissingIntermediateRateS),
 (ID: stscMoneyInvalidExchRate; Str: stscMoneyInvalidExchRateS),
 (ID: stscMoneyTriExchUsesTriExch; Str: stscMoneyTriExchUsesTriExchS),
 (ID: stscDecMathMultOverflow; Str: stscDecMathMultOverflowS),
 (ID: stscDecMathDivOverflow; Str: stscDecMathDivOverflowS),

 (ID: stscTxtDatNoSuchField; Str:        stscTxtDatNoSuchFieldS),
 (ID: stscTxtDatUniqueNameRequired; Str: stscTxtDatUniqueNameRequiredS),
 (ID: stscTxtDatUnhandledVariant; Str:   stscTxtDatUnhandledVariantS),
 (ID: stscTxtDatInvalidSchema; Str:      stscTxtDatInvalidSchemaS),
 (ID: stscTxtDatRecordSetOpen; Str:      stscTxtDatRecordSetOpenS)
 );

function SysToolsStr(Index : Integer) : string;

implementation

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


initialization

end.