Problem with source code

program Test;
var
F:text;
s:char;
begin
assign(F,'sds.txt');
reset(F);
read(F,s);
writeln(ord(s));
end.

I copiled the progam.
But when I tried to execute this program it said me: Runtime error 104 at 0000:003D.
Where is the mistake ?

Comments

  • : program Test;
    : var
    : F:text;
    : s:char;
    : begin
    : assign(F,'sds.txt');
    : reset(F);
    : read(F,s);
    : writeln(ord(s));
    : end.
    :
    : I copiled the progam.
    : But when I tried to execute this program it said me: Runtime error 104 at 0000:003D.
    : Where is the mistake ?
    :

    Hit ALT-S and then E to open the Find Error dialog, and then type in the address you were given. It'll show you what line has a problem. You may also want to look up what run-time error 104 is in the help file.
  • [code]
    Code Meaning
    1 Invalid function number
    2 File not found
    3 Path not found
    4 Too many open files
    5 File access denied
    6 Invalid file handle
    12 Invalid file access code
    15 Invalid drive number
    16 Cannot remove current directory
    17 Cannot rename across drives
    18 No more files

    100 Disk read error
    101 Disk write error
    102 File not assigned
    103 File not open
    104 File not open for input
    105 File not open for output
    106 Invalid numeric format
    150 Disk is write protected
    151 Bad drive request structure length
    152 Drive not ready
    154 CRC error in data
    156 Disk seek error
    157 Unknown media type
    158 Sector not found
    159 Printer out of paper
    160 Device write fault

    161 Device read fault
    162 Hardware failure
    200 Division by zero
    201 Range check error
    202 Stack overflow error
    203 Heap overflow error
    204 Invalid pointer operation
    205 Floating point overflow
    206 Floating point underflow
    207 Invalid floating point operation
    208 Overlay manager not installed
    209 Overlay file read error
    210 Object not initialized
    211 Call to abstract method
    212 Stream registration error

    213 Collection index out of range
    214 Collection overflow error
    215 Arithmetic overflow error
    216 General protection fault
    217 Invalid operation code
    300 File IO error
    301 Non matched array bounds
    302 Non local procedure pointer
    303 Procedure pointer out of scope
    304 Function not implemented
    305 Breakpoint error
    306 Break by Ctrl/C
    307 Break by Ctrl/Break
    308 Break by other process
    309 No floating point coprocessor
    [/code]


    : : program Test;
    : : var
    : : F:text;
    : : s:char;
    : : begin
    : : assign(F,'sds.txt');
    : : reset(F);
    : : read(F,s);
    : : writeln(ord(s));
    : : end.
    : :
    : : I copiled the progam.
    : : But when I tried to execute this program it said me: Runtime error 104 at 0000:003D.
    : : Where is the mistake ?
    : :
    :
    : Hit ALT-S and then E to open the Find Error dialog, and then type in the address you were given. It'll show you what line has a problem. You may also want to look up what run-time error 104 is in the help file.
    :

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories