UNIT StrConst; { Common used constants definitions module } INTERFACE const PSPSize=256; { Number constants } MaxWord=$FFFF; MaxHeapVarSize=65519; { File constants } MaxFileNameLength=8; MaxFileExtLength=4; { Memory constants } Kb=1024; Mb=1024*Kb; Paragraph=16; { Text constants } Lf=^J; { Line feed } Cr=^M; { Carriage return } Tab=#$9; { Tabulation } LineEnd=Cr+Lf; { End of line for text file } UpLatinCharsSet=['A'..'Z']; LoLatinCharsSet=['a'..'z']; LatinLoUpShift =Ord('a')-Ord('A'); UpRussianCharsSet1=[''..'']; UpRussianCharsSet2=[''..'']; LoRussianCharsSet1=[''..'']; LoRussianCharsSet2=[''..'']; RussianLoUpShift1 =Ord('')-Ord(''); RussianLoUpShift2 =Ord('')-Ord(''); DecimalSigns='0123456789'; HexadecimalSigns=DecimalSigns+'ABCDEF'; cSpaceChars=' '+Lf+Cr+Tab; IMPLEMENTATION END.