Free Pascal Error 2
Contents |
errors and gives information on why they might be produced. 1 Invalid function number An invalid operating system call was attempted. 2 File not found Reported when trying to erase, rename or
Pascal Exit Code 201
open a non-existent file. 3 Path not found Reported by the directory handling runtime error 2 pascal routines when a path does not exist or is invalid. Also reported when trying to access a non-existent
Pascal Error Codes
file. 4 Too many open files The maximum number of files currently opened by your process has been reached. Certain operating systems limit the number of files which can be opened runtime error 106 pascal concurrently, and this error can occur when this limit has been reached. 5 File access denied Permission to access the file is denied. This error might be caused by one of several reasons: Trying to open for writing a file which is read-only, or which is actually a directory. File is currently locked or used by another process. Trying to create a new runtime error 103 pascal file, or directory while a file or directory of the same name already exists. Trying to read from a file which was opened in write-only mode. Trying to write from a file which was opened in read-only mode. Trying to remove a directory or file while it is not possible. No permission to access the file or directory. 6 Invalid file handle If this happens, the file variable you are using is trashed; it indicates that your memory is corrupted. 12 Invalid file access code Reported when a reset or rewrite is called with an invalid FileMode value. 15 Invalid drive number The number given to the Getdir or ChDir function specifies a non-existent disk. 16 Cannot remove current directory Reported when trying to remove the currently active directory. 17 Cannot rename across drives You cannot rename a file such that it would end up on another disk or partition. 100 Disk read error An error occurred when reading from disk. Typically happens when you try to read past the end of a file. 101 Disk write error Reported when the disk is full,
sorted by: [ date ]
Types Of Errors In Pascal Programming
[ thread ] [ subject ] [ author ] liyupeng schreef: > Hi,list, http://www.freepascal.org/docs-html/user/userap4.html > this is the first time of using free pascal! > > after I compiled my program successful, I run it. The information is > "exitcode=2". http://lists.freepascal.org/fpc-pascal/2007-March/013668.html > > what is that mean? > It means: File not found See runtime error list: http://www.freepascal.org/docs-html/user/userap4.html Try compiling with -gl, it may give you a usable stack trace, where the wrong file name is used. Vincent Previous message: [fpc-pascal] exitcode=2 what is that? Next message: [fpc-pascal] A randon posting on the Borland web server Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] More information about the fpc-pascal mailing list
CodeMeaning 1Invalid function number 2File not http://www.frameworkpascal.com/helphtml/run_errors.htm found 3Path not found 4Too many open files http://stackoverflow.com/questions/22589308/how-to-fix-run-time-error-201 5File access denied 6Invalid file handle 12Invalid file access code 15Invalid drive number 16Cannot remove current directory 17Cannot rename across drives 18No more files 100Disk read error 101Disk write error 102File not assigned 103File runtime error not open 104File not open for input 105File not open for output 106Invalid numeric format 150Disk is write protected 151Bad drive request structure length 152Drive not ready 154CRC error in data 156Disk seek error 157Unknown media type 158Sector not found 159Printer out of pascal exit code paper 160Device write fault 161Device read fault 162Hardware failure 200Division by zero 201Range check error 202Stack overflow error 203Heap overflow error 204Invalid pointer operation 205Floating point overflow 206Floating point underflow 207Invalid floating point operation 208Overlay manager not installed 209Overlay file read error 210Object not initialized 211Call to abstract method 212Stream registration error 213Collection index out of range 214Collection overflow error 215Arithmetic overflow error 216General protection fault 217Invalid operation code 227Assertion failed 300File IO error 301Non matched array bounds 302Non local procedure pointer 303Procedure pointer out of scope 304Function not implemented 305Breakpoint error 306Break by Ctrl/C 307Break by Ctrl/Break 308Break by other process 309No floating point coprocessor 310Invalid Variant type operation 2.3.13. Differences between 16- and 32-bit code Table of Contents 3. Compiler Directives - 2.4. -
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up How to fix run-time error 201 up vote 0 down vote favorite help me, please. I don't know how to fix this error. Program Polynomial; type arrayOfInt = Array[1..21] of Integer; biggerArrayOfInt = Array[1..41] of Integer; function isNumber(c : Char): Boolean; var res : Boolean; code : Longint; begin code := Ord(c); if ((code > 47) AND (code < 58)) then begin res := true end else begin res := false; end; isNumber := res; end; function parsePolynomial(polynomial : String): arrayOfInt; var coeficients : Array[1..21] of Integer; number : Integer; coef : Integer; tmp : String; i, j : Integer; positive : Boolean; numberPosition, numberLength : Integer; expectX : Boolean; begin i := 1; for j:=1 to Length(coeficients) do begin coeficients[j] := 0; end; while (true) do begin coef := 0; number := 0; positive := true; expectX := true; if(polynomial[i] = '-') then begin positive := false; i := i + 1; end; if(polynomial[i] = '+') then begin i := i + 1; end; if(isNumber(polynomial[i])) then begin numberPosition:= i; while (isNumber(polynomial[i])) do begin i := i + 1; end; tmp := Copy(polynomial, numberPosition, i - numberPosition); Val(tmp, number); if(not positive) then begin number := number * -1; end; if ((not(polynomial[i] = '*')) OR (i > length(polynomial))) then begin expectX := false; end else begin i:= i + 1; end; end else begin if(positive) then begin number := 1; end else begin number := -1; end; end; if (expectX) then begin if(not(polynomial[i] = 'x')) then begin write('Bad input!'); exit; end else begin i := i + 1; if (polynomial[i] = '^') then begin i := i + 1; if (not isNumber(polynomial[i])) then begin write('Bad input!'); exit; end; numberPosition:= i; while (isNumber(polynomial[i])) do begin i := i + 1; end; tmp := Copy(polynomial, numberPosition, i - numberPosition); Val(tmp, coef); end else begin coef := 1; end; end; end; coeficients[coef + 1] := number; if ((length(polynomial)) - 1 < i) then begin break; end; end; parsePolynomial := coeficients; end; function sumPolynomial(polynomial1, polynomial2 : array of Integer): arrayOfInt; var coeficients :