Turbo Pascal Runtime Errors

   DOS Errors                                     Critical Errors (continued)
      2  File not found.                           153  Unknown command.                      
      3  Path not found.                           154  CRC error in data. 
      4  Too many open files.                      155  Bad drive request structure length.
      5  File access denied.                       156  Disk seek error.
      6  Invalid file handle.                      157  Unknown media type.
     12  Invalid file access code.                 158  Sector not found.
     15  Invalid drive number.                     159  Printer out of paper.
     16  Cannot remove current directory.          160  Device write fault.
     17  Cannot rename accross drives.             161  Device read fault.
                                                   162  Hardware fault.
   I/O Errors                                     
    100  Disk read error.                         Fatal Errors
    101  Disk write error.                         200  Division by zero.
    102  File not assigned.                        201  Range check error.
    103  File not opened.                          202  Stack overflow error.
    104  File not open for input.                  203  Heap overflow error.
    105  File not open for output.                 204  Invalid pointer operation.
    106  Invalid numeric format.                   205  Floating point overflow.
                                                   206  Floating point underflow.
   Critical Errors                                 207  Invalid floating point operation.
    150  Disk is write-protected.                  208  Overlay manager not installed.
    151  Unknown unit.                             209  Overlay file read error.
    152  Drive not ready.                         


TPENTRY ROUTINES:

function  EditScreen(var ESR: ESrecord; StartField: Word; ReadOnly: Boolean): EStype;
procedure EditString(Prompt: string; Row, Col: Byte; EditLen: Byte; Picture: string;
                     HelpIndex: Word; var Escaped: Boolean; var EditSt: string);
procedure DisposeEditScreen(var ESR: ESrecord);
procedure AddStringField(var ESR: ESrecord; Prompt: string; pRow, pCol: Word; Picture: string; 
                         eRow, eCol: Word; EditLen: Byte; HelpIndex: Word; Validation: Pointer; var EditSt: string);
procedure AddIntField(var ESR: ESrecord; Prompt: string; pRow, pCol: Word; Picture: string; 
                      eRow, eCol: Word; HelpIndex: Word; IntLo: Integer; IntHi: Integer; var EditInt: Integer); 
procedure AddChoiceField(var ESR: ESrecord; Prompt: string; pRow, pCol: Word; Picture: string; 
                         eRow, eCol: Word; HelpIndex: Word; DataSize: Byte; Increment: Pointer; var EditVar); 
procedure SetWrapMode(var ESR: ESrecord; WrapMode: WrapModeType);
procedure SetEntryWindow(var ESR: ESrecord; XLow, YLow, XHigh, YHigh: Byte; Framed: Boolean;
                        BackAttr, FrameAttr: Byte);
procedure ChangeProtection(var ESR: ESrecord; FieldID: Word; OnOff: Boolean);
procedure ChangePromptAttr(var ESR: ESrecord; FieldID: Word; A: Byte);
procedure ClearEntryWindow(var ESR: ESrecord);procedure ChangeFieldAttr(var ESR: ESrecord; FieldID: Word; A: Byte);
procedure ChangeStringAttr(var ESR: ESrecord; FieldID: Word; A: Byte);
function  AddEntryCommand(Cmd: EStype; NumKeys: Byte; Key1, Key2: Word): Boolean;

procedure InitESrecord(var ESR: ESrecord);             procedure DrawEditScreen(var ESR: ESrecord);
procedure SetNumeric(On: Boolean);                     procedure SetExitOnSecondClick(On: Boolean);
procedure SetAutoAdvance(On: Boolean);                 procedure EnableEntryMouse;
procedure SetCursorToEnd(On: Boolean);                 procedure DisableEntryMouse;
procedure SetTrimBlanks(On: Boolean);                  procedure SetPromptAttr(A: Byte);                      
procedure SetRightJustify(On: Boolean);                procedure SetFieldAttr(A: Byte);                       
procedure SetPadChar(Ch: Char);                        procedure SetStringAttr(A: Byte);                      
procedure SetClearFirstChar(On: Boolean);              procedure SetCtrlAttr(A: Byte);                        
procedure SetInsertPushes(On: Boolean);                procedure SetProtectAttrs(PromptA, FieldA: Byte);      
procedure SetAutoNumLock(On: Boolean);                 procedure SetBeepOnError(var ESR: ESrecord; On: Boolean);
procedure SetRequired(On: Boolean);                    procedure SetPreEditPtr(var ESR: ESrecord; P: Pointer);  
procedure SetPasswordMode(On: Boolean);                procedure SetPostEditPtr(var ESR: ESrecord; P: Pointer); 
procedure SetProtection(On: Boolean);                  procedure SetErrorPtr(var ESR: ESrecord; P: Pointer);    
procedure SetForceMode(Force, OverType: Boolean); 


TPMENU ROUTINES:

function  NewMenu(SelectKeys: MenuCharSet; UserFunc: Pointer): Menu;
procedure SubMenu(XLP, YLP, YhelpP: Byte; OrientP: Orientation; FrameP: FrameArray; ColorsP: MenuColorArray; HeaderStr: string);
procedure PopSubLevel;
procedure MenuItem(NameStr: string; DisplayPosP: Byte; SelectPosP: Byte; KeyP: MenuKey; HelpStr: string);
procedure MenuMode(Explode, Shadow, Noise: Boolean);
procedure SetMenuMode(Mnu: Menu; Explode, Shadow, Noise: Boolean);
procedure SetMenuDelay(Mnu: Menu; ExpDelay: Word);
procedure DisposeMenu(Mnu: Menu);
procedure ResetMenu(Mnu: Menu);
function  MenuChoice(Mnu: Menu; var SelectKey: Char): MenuKey;
procedure EraseMenu(Mnu: Menu; ResetSelections: Boolean);
function  AddMenuCommand(Cmd: MKType; NumKeys: Byte; Key1, Key2: Word): Boolean;
procedure EnableMenuItem(Mnu: Menu; MKey: MenuKey);
procedure DisableMenuItem(Mnu: Menu; MKey: MenuKey);
procedure EnableMenuMouse;
procedure DisableMenuMouse;
procedure WriteMenuLib(Mnu: Menu; Fname: string; ID: string);
function  ReadMenuLib(Fname: string; ID: string; UserFunc: Pointer): Menu;
procedure PackMenuLib(Iname, Oname: string);


TPSTRING ROUTINES:
                                                                    
function HexB(B: Byte): string;                              function  Str2Int(S: string; var I: Integer): Boolean;
function HexW(W: Word): string;                              function  Str2Word(S: string; var I: Word): Boolean;
function HexL(L: LongInt): string;                           function  Str2Long(S: string; var I: LongInt): Boolean;
function HexPtr(P: Pointer): string;                         function  Str2Real(S: string; var R: Float): Boolean;
function BinaryB(B: Byte): string;                           function  Long2Str(L: LongInt): string;
function BinaryW(W: Word): string;                           function  Real2Str(R: Float; Width, Places: Byte): string;
function BinaryL(L: LongInt): string;                        function  UpCaseMac(Ch: Char): Char;
function OctalB(B: Byte): string;                            function  LoCaseMac(Ch: Char): Char;
function OctalW(W: Word): string;                            function  Upcase(Ch: Char): Char;
function OctalL(L: LongInt): string;                         function  StUpcase(S: string): string;
function Form(Mask: string; R: Float): string;               function  LoCase(Ch: Char): Char;
function CharStr(Ch: Char; Len: Byte): string;               function  StLocase(S: string): string;
function DefaultExtension(Name, Ext: string): string;        procedure UpCasePrim;  
function ForceExtension(Name, Ext: string): string;          procedure LoCasePrim;  
function JustFilename(PathName: string): string;             function  PadCh(S: string; Ch: Char; Len: Byte): string;
function JustExtension(Name: string): string;                function  Pad(S: string; Len: Byte): string;
function JustPathname(PathName: string): string;             function  LeftPadCh(S: string; Ch: Char; Len: Byte): string;
function AddBackSlash(DirName: string): string;              function  LeftPad(S: string; Len: Byte): string;
function CleanPathName(PathName: string): string;            function  TrimLead(S: string): string;
function FullPathName(FName: string): string;                function  TrimTrail(S: string): string;
function Entab(S: string; TabSize: Byte): string;            function  Trim(S: string): string;
function Detab(S: string; TabSize: Byte): string;            function  StringToHeap(S: string): Pointer;
function Soundex(S: string): string;                         function  StringFromHeap(P: Pointer): string;
function MakeLetterSet(S: string): LongInt;                  procedure DisposeString(P: Pointer);
function CompareLetterSets(Set1, Set2: LongInt): Word;       function  CenterCh(S: string; Ch: Char; Width: Byte): string;
function CompString(S1, S2: string): CompareType;            function  Center(S: string; Width: Byte): string;
function CompUCString(S1, S2: string): CompareType;          function  WordCount(S: string; WordDelims: CharSet): Byte;
function CompStruct(var S1, S2; Size: Word): CompareType;

function  ExtractWord(N: Byte; S: string; WordDelims: CharSet): string;
procedure WordWrap(InSt: string; var OutSt, Overlap: string; Margin: Byte; PadToMargin: Boolean);
function  Search(var Buffer; BufLength: Word; var Match; MatLength: Word): Word;
function  SearchUC(var Buffer; BufLength: Word; var Match; MatLength: Word): Word;
procedure BMMakeTable(MatchString: string; var BT: BTable);
function  BMSearch(var Buffer; BufLength: Word; BT: BTable; MatchString: string): Word;
function  BMSearchUC(var Buffer; BufLength: Word; BT: BTable; MatchString: string): Word;









   
   
   
   
   
   
   
   


