Runtime error 103 pascal

Модератор: Модераторы

---

---

---

---

---

---

---

---

Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

Lazarus runtime error 103

lymar » 19.02.2012 14:36:47

Re: класс исключения runError(103

iskander » 19.02.2012 15:12:14

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:16:16

И лучше указывать ТТХ — версию ОС, лазаря, fpc и хоть кусок программы, где вызывается исключение

Re: класс исключения runError(103

lymar » 19.02.2012 15:20:14

FPC User’s Guide, Appendix D-Run-time errors:
.
103 File not open
Reported by the following functions : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open.
а можно по русский а то я в этом деле новичок позжалуйста

Добавлено спустя 6 минут 5 секунд:
windows xp fps 2.4.2
программа
Код: Выделить всё unit Unit1;

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
< private declarations >
public
< public declarations >
end;

var
Form1: TForm1;

procedure TForm1.Button1Click(Sender: TObject);
procedure korni(a,b,c:real;var x1,x2:real;var pr:boolean);
var d:real;
begin
d:=b*b-4*a*c;
if d 0 then
begin
x_:=-c_/b_;
writeln(‘x= ‘,x_);
end
else
writeln(‘нет коней’);
end
else
begin
korni(A_,B_,C_,X1_,X2_,PR_);
if pr_=false then
writeln(‘нет корней’)
else
writeln(‘x1=’,x1_ ,’x2=’,x2_);
end;
end;
end. .

Добавлено спустя 3 минуты 40 секунд:
дело в том что сама программа запускается а вот работать не хочет
прикладываю кусок с ошибкой:
writeln(‘a_:=’); вот здесь ошибка выделена серым цветом вся строка
readln(a_);
write(‘b_:=’);
readln(b_);
write(‘c_:=’);
readln(c_);
if a_=0 then
begin
if b_<>0 then

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:44:15

Пользуйтесь тегом Code
И потом, как в процедуре два var ?

И «Как, Холмс ?» можно в оконнную процедуру впихать консольную .
Подозрение, что сработал метод тупого копи-паста.
Или уж консольная программа — write-read — или оконное приложение — тогда используйте TEdit-TLabel

А в данном примере — ввод-вывод из несуществующей консоли — вот и 103 ошибка — не понятно, откуда читать, куда писать.

Источник

Lazarus runtime error 103

Mavlyudov » 12.12.2011 03:20:21

После компилирования при запуске возникает ошибка:
Runtime error 103 at
В программе нету работы с файлами.
Есть только обращение к таким процедурам
WRITEln(‘N=’);
READLN(N);
READLN;
В ошибке указан номер строчки , которой соответствует WRITEln(‘N=’);

Компилирую из командной строки(.bat фай) такого содержания
fpWbinwin32ppc386 -Sd -Sg -Un -O1 -Xs -gl %1
Компилятор версии 1.0.10 [2003/06/27].
Также пробовал версию 2.4.4 [2011/04/23]. При компилировании из командной строки ошибка таже самая,
а вот при компилировании из-под оболочки fp.exe всё компилируется и запускается без ошибок.

В чем может быт причина возникновения такой ошибки 103 и как ее устранить?

Re: Error 103

Сквозняк » 12.12.2011 04:48:52

Re: Error 103

Sergei I. Gorelkin » 12.12.2011 08:45:06

Re: Error 103

Mavlyudov » 13.12.2011 03:12:11

Сквозняк
Я предполагал, что fpc (или fp) использует ppc386 при компиляции, поэтому искал файл настроек с директивами, которые можно прописать и в командной строке. Как оказалось, fp и ppc386 — два независимых приложения.
Sergei I. Gorelkin
Видимо, речь все таки идет о ключе ключе -WС. Да, теперь компилируется.
Но при компиляции компилером версии 1.0.10 возникла другая ошибка 203. Переполнение кучи.
Runtime error 203 at адрес
и еще несколько адресов ниже
указана строка с кодом GetMem(ARRM[I], sizeof(ARRM[I]^));
При использовании компилятора версии 2.4.4 такой ошибки не возникает. Но нужно разобраться именно с ошибкой компилятора более ранней версии.
Компилирую как и раньше командной строкой через ppc386.
Настройки .bat файла:
FPC2.4.4bini386-win32ppc386 -Sd -Sg -Un -O1 -Xs -gl %1 -FU -Foc: -WC -WN

При запуске программы предполагается ввод большого числа(например, 20000), так чтобы выполнилась часть кода в except.

Код: Выделить всё program Project4;

type
MAS = array [0..NNMAT-1] of Double;
ARR = ^MAS;
MAS2 = array [0..NNARR] of ARR;
PMAS2 = ^MAS2;

var <——————————->
NMAT0, NMAT: INTEGER;
ARRM: array [0..NNARR] of ARR;
ARR0: ARR;
GE:DWORD;

procedure MAT_PRED(N:INTEGER);
var
NN, I: LONGINT;
begin
NN:= SQR(N);
I:= 0;
NMAT:= 0;

Источник

Lazarus runtime error 103

lymar » 19.02.2012 14:36:47

Re: класс исключения runError(103

iskander » 19.02.2012 15:12:14

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:16:16

И лучше указывать ТТХ — версию ОС, лазаря, fpc и хоть кусок программы, где вызывается исключение

Re: класс исключения runError(103

lymar » 19.02.2012 15:20:14

FPC User’s Guide, Appendix D-Run-time errors:
.
103 File not open
Reported by the following functions : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open.
а можно по русский а то я в этом деле новичок позжалуйста

Добавлено спустя 6 минут 5 секунд:
windows xp fps 2.4.2
программа
Код: Выделить всё unit Unit1;

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
< private declarations >
public
< public declarations >
end;

var
Form1: TForm1;

procedure TForm1.Button1Click(Sender: TObject);
procedure korni(a,b,c:real;var x1,x2:real;var pr:boolean);
var d:real;
begin
d:=b*b-4*a*c;
if d 0 then
begin
x_:=-c_/b_;
writeln(‘x= ‘,x_);
end
else
writeln(‘нет коней’);
end
else
begin
korni(A_,B_,C_,X1_,X2_,PR_);
if pr_=false then
writeln(‘нет корней’)
else
writeln(‘x1=’,x1_ ,’x2=’,x2_);
end;
end;
end. .

Добавлено спустя 3 минуты 40 секунд:
дело в том что сама программа запускается а вот работать не хочет
прикладываю кусок с ошибкой:
writeln(‘a_:=’); вот здесь ошибка выделена серым цветом вся строка
readln(a_);
write(‘b_:=’);
readln(b_);
write(‘c_:=’);
readln(c_);
if a_=0 then
begin
if b_<>0 then

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:44:15

Пользуйтесь тегом Code
И потом, как в процедуре два var ?

И «Как, Холмс ?» можно в оконнную процедуру впихать консольную .
Подозрение, что сработал метод тупого копи-паста.
Или уж консольная программа — write-read — или оконное приложение — тогда используйте TEdit-TLabel

А в данном примере — ввод-вывод из несуществующей консоли — вот и 103 ошибка — не понятно, откуда читать, куда писать.

Источник

Lazarus runtime error 103

lymar » 19.02.2012 14:36:47

Re: класс исключения runError(103

iskander » 19.02.2012 15:12:14

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:16:16

И лучше указывать ТТХ — версию ОС, лазаря, fpc и хоть кусок программы, где вызывается исключение

Re: класс исключения runError(103

lymar » 19.02.2012 15:20:14

FPC User’s Guide, Appendix D-Run-time errors:
.
103 File not open
Reported by the following functions : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open.
а можно по русский а то я в этом деле новичок позжалуйста

Добавлено спустя 6 минут 5 секунд:
windows xp fps 2.4.2
программа
Код: Выделить всё unit Unit1;

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
< private declarations >
public
< public declarations >
end;

var
Form1: TForm1;

procedure TForm1.Button1Click(Sender: TObject);
procedure korni(a,b,c:real;var x1,x2:real;var pr:boolean);
var d:real;
begin
d:=b*b-4*a*c;
if d 0 then
begin
x_:=-c_/b_;
writeln(‘x= ‘,x_);
end
else
writeln(‘нет коней’);
end
else
begin
korni(A_,B_,C_,X1_,X2_,PR_);
if pr_=false then
writeln(‘нет корней’)
else
writeln(‘x1=’,x1_ ,’x2=’,x2_);
end;
end;
end. .

Добавлено спустя 3 минуты 40 секунд:
дело в том что сама программа запускается а вот работать не хочет
прикладываю кусок с ошибкой:
writeln(‘a_:=’); вот здесь ошибка выделена серым цветом вся строка
readln(a_);
write(‘b_:=’);
readln(b_);
write(‘c_:=’);
readln(c_);
if a_=0 then
begin
if b_<>0 then

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:44:15

Пользуйтесь тегом Code
И потом, как в процедуре два var ?

И «Как, Холмс ?» можно в оконнную процедуру впихать консольную .
Подозрение, что сработал метод тупого копи-паста.
Или уж консольная программа — write-read — или оконное приложение — тогда используйте TEdit-TLabel

А в данном примере — ввод-вывод из несуществующей консоли — вот и 103 ошибка — не понятно, откуда читать, куда писать.

Источник

Lazarus runtime error 103

lymar » 19.02.2012 14:36:47

Re: класс исключения runError(103

iskander » 19.02.2012 15:12:14

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:16:16

И лучше указывать ТТХ — версию ОС, лазаря, fpc и хоть кусок программы, где вызывается исключение

Re: класс исключения runError(103

lymar » 19.02.2012 15:20:14

FPC User’s Guide, Appendix D-Run-time errors:
.
103 File not open
Reported by the following functions : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open.
а можно по русский а то я в этом деле новичок позжалуйста

Добавлено спустя 6 минут 5 секунд:
windows xp fps 2.4.2
программа
Код: Выделить всё unit Unit1;

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
< private declarations >
public
< public declarations >
end;

var
Form1: TForm1;

procedure TForm1.Button1Click(Sender: TObject);
procedure korni(a,b,c:real;var x1,x2:real;var pr:boolean);
var d:real;
begin
d:=b*b-4*a*c;
if d 0 then
begin
x_:=-c_/b_;
writeln(‘x= ‘,x_);
end
else
writeln(‘нет коней’);
end
else
begin
korni(A_,B_,C_,X1_,X2_,PR_);
if pr_=false then
writeln(‘нет корней’)
else
writeln(‘x1=’,x1_ ,’x2=’,x2_);
end;
end;
end. .

Добавлено спустя 3 минуты 40 секунд:
дело в том что сама программа запускается а вот работать не хочет
прикладываю кусок с ошибкой:
writeln(‘a_:=’); вот здесь ошибка выделена серым цветом вся строка
readln(a_);
write(‘b_:=’);
readln(b_);
write(‘c_:=’);
readln(c_);
if a_=0 then
begin
if b_<>0 then

Re: класс исключения runError(103

Little_Roo » 19.02.2012 15:44:15

Пользуйтесь тегом Code
И потом, как в процедуре два var ?

И «Как, Холмс ?» можно в оконнную процедуру впихать консольную .
Подозрение, что сработал метод тупого копи-паста.
Или уж консольная программа — write-read — или оконное приложение — тогда используйте TEdit-TLabel

А в данном примере — ввод-вывод из несуществующей консоли — вот и 103 ошибка — не понятно, откуда читать, куда писать.

Источник

Click here follow the steps to fix Pascal Runtime Error 103 and related errors.

Instructions

To Fix (Pascal Runtime Error 103) error you need to follow the steps below:
Step 1:
Download (Pascal Runtime Error 103) Repair Tool
Step 2:
Click the «Scan» button
Step 3:
Click ‘Fix All‘ and you’re done!
Compatibility: Windows 7, 8, Vista, XP Download Size: 6MB Requirements: 300 MHz Processor, 256 MB Ram, 22 MB HDD Limitations: This download is a free evaluation version. To unlock all features and tools, a purchase is required.

Note:
This article was updated on 2023-02-04 and previously published under WIKI_Q210794

What is Pascal Runtime Error 103 error?

The Pascal Runtime Error 103 error is the Hexadecimal format of the error caused. This is common error code format used by windows and other windows compatible software and driver vendors.

This code is used by the vendor to identify the error caused. This Pascal Runtime Error 103 error code has a numeric error number and a technical description. In some cases the error may have more parameters in Pascal Runtime Error 103 format .This additional hexadecimal code are the address of the memory locations where the instruction(s) was loaded at the time of the error.

What causes Pascal Runtime Error 103 error?

The Pascal Runtime Error 103 error may be caused by windows system files damage. The corrupted system files entries can be a real threat to the well being of your computer.

There can be many events which may have resulted in the system files errors. An incomplete installation, an incomplete uninstall, improper deletion of applications or hardware. It can also be caused if your computer is recovered from a virus or adware/spyware
attack or by an improper shutdown of the computer. All the above actives
may result in the deletion or corruption of the entries in the windows
system files. This corrupted system file will lead to the missing and wrongly
linked information and files needed for the proper working of the
application.

How to easily fix Pascal Runtime Error 103 error?

There are two (2) ways to fix Pascal Runtime Error 103 Error:

Advanced Computer User Solution (manual update):

1) Start your computer and log on as an administrator.

2) Click the Start button then select All Programs, Accessories, System Tools, and then click System Restore.

3) In the new window, select «Restore my computer to an earlier time» option and then click Next.

4) Select the most recent system restore point from the «On this list, click a restore point» list, and then click Next.

5) Click Next on the confirmation window.

6) Restarts the computer when the restoration is finished.

Novice Computer User Solution (completely automated):

1) Download (Pascal Runtime Error 103) repair utility.

2) Install program and click Scan button.

3) Click the Fix Errors button when scan is completed.

4) Restart your computer.

How does it work?

This tool will scan and diagnose, then repairs, your PC with patent
pending technology that fix your windows operating system registry
structure.
basic features: (repairs system freezing and rebooting issues , start-up customization , browser helper object management , program removal management , live updates , windows structure repair.)

# Short description Explanation 1 Invalid function number An invalid operating system call was attempted. 2 File not found Reported when trying to erase, rename or open a non-existent file. 3 Path not found Reported by the directory handling routines when a path does not exist or is invalid. Also reported when trying to access a non-existent 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 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 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, and you’re trying to write to it. 102 File not assigned This is reported by Reset, Rewrite, Append, Rename and Erase, if you call them with an unassigned file as a parameter. 103 File not open Reported by the following functions : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open. 104 File not open for input Reported by Read, BlockRead, Eof, Eoln, SeekEof or SeekEoln if the file is not opened with Reset. 105 File not open for output Reported by write if a text file isn’t opened with Rewrite. 106 Invalid numeric format Reported when a non-numeric value is read from a text file, and a numeric value was expected. 107 Invalid enumeration Reported when a text representation of an enumerated constant cannot be created in a call to str or write(ln). 150 Disk is write-protected (Critical error) 151 Bad drive request struct length (Critical error) 152 Drive not ready (Critical error) 154 CRC error in data (Critical error) 156 Disk seek error (Critical error) 157 Unknown media type (Critical error) 158 Sector Not Found (Critical error) 159 Printer out of paper (Critical error) 160 Device write fault (Critical error) 161 Device read fault (Critical error) 162 Hardware failure (Critical error) 200 Division by zero The application attempted to divide a number by zero. 201 Range check error If you compiled your program with range checking on, then you can get this error in the following cases:

1. An array was accessed with an index outside its declared range.
2. Trying to assign a value to a variable outside its range (for instance an enumerated type).

202 Stack overflow error The stack has grown beyond its maximum size (in which case the size of local variables should be reduced to avoid this error), or the stack has become corrupt. This error is only reported when stack checking is enabled. 203 Heap overflow error The heap has grown beyond its boundaries. This is caused when trying to allocate memory explicitly with New, GetMem or ReallocMem, or when a class or object instance is created and no memory is left. Please note that, by default, Free Pascal provides a growing heap, i.e. the heap will try to allocate more memory if needed. However, if the heap has reached the maximum size allowed by the operating system or hardware, then you will get this error. 204 Invalid pointer operation You will get this in several cases:

• if you call Dispose or Freemem with an invalid pointer
• in case New or GetMem is called, and there is no more memory available. The behavior in this case depends on the setting of ReturnNilIfGrowHeapFails. If it is True, then Nil is returned. if False, then runerror 204 is raised.

205 Floating point overflow You are trying to use or produce real numbers that are too large. 206 Floating point underflow You are trying to use or produce real numbers that are too small. 207 Invalid floating point operation Can occur if you try to calculate the square root or logarithm of a negative number. 210 Object not initialized When compiled with range checking on, a program will report this error if you call a virtual method without having called its object’s constructor. 211 Call to abstract method Your program tried to execute an abstract virtual method. Abstract methods should be overridden, and the overriding method should be called. 212 Stream registration error This occurs when an invalid type is registered in the objects unit. 213 Collection index out of range You are trying to access a collection item with an invalid index (objects unit). 214 Collection overflow error The collection has reached its maximal size, and you are trying to add another element (objects unit). 215 Arithmetic overflow error This error is reported when the result of an arithmetic operation is outside of its supported range. Contrary to Turbo Pascal, this error is only reported for 32-bit or 64-bit arithmetic overflows. This is due to the fact that everything is converted to 32-bit or 64-bit before doing the actual arithmetic operation. 216 General Protection fault The application tried to access invalid memory space. This can be caused by several problems:

1. Dereferencing a nil pointer.
2. Trying to access memory which is out of bounds (for example, calling move with an invalid length).

217 Unhandled exception occurred An exception occurred, and there was no exception handler present. The sysutils unit installs a default exception handler which catches all exceptions and exits gracefully. 218 Invalid value specified Error 218 occurs when an invalid value was specified to a system call, for instance when specifying a negative value to a seek() call. 219 Invalid typecast Thrown when an invalid typecast is attempted on a class using the as operator. This error is also thrown when an object or class is typecast to an invalid class or object and a virtual method of that class or object is called. This last error is only detected if the -CR compiler option is used. 222 Variant dispatch error No dispatch method to call from variant. 223 Variant array create The variant array creation failed. Usually when there is not enough memory. 224 Variant is not an array This error occurs when a variant array operation is attempted on a variant which is not an array. 225 Var Array Bounds check error This error occurs when a variant array index is out of bounds. 227 Assertion failed error An assertion failed, and no AssertErrorProc procedural variable was installed. 229 Safecall error check This error occurs is a safecall check fails, and no handler routine is available. 231 Exception stack corrupted This error occurs when the exception object is retrieved and none is available. 232 Threads not supported Thread management relies on a separate driver on some operating systems (notably, Unixes). The unit with this driver needs to be specified on the uses clause of the program, preferably as the first unit (cthreads on unix).

Add {$define UseCThreads} in the top of the first Pascal unit (usually the project .lpr file)