Pascal/Turbo Pascal - error 103 File Not Open

 
Vista:

error 103 File Not Open

Publicado por DIEGO (15 intervenciones) el 25/06/2007 13:02:54
holas racias a ustedes x fin pude terminar mi programa y solia funcionar perfectamente, pero despues de unas pequeñas modificaciones me comenzo a dar error 103 File Not Open aca les muestro mi assignacion la verdad no se q paso ya prove viendo el archivo q se crea q no este como solo lectura pero me sigue dando el mismo error cuando quiero crear un nuevo arcivo de expediente en el programa.
procedure inicio;
var
est:integer;
begin
clrscr;
assign (Arc_exp,'c:\pascal\expedie.dat');
{$i-}
reset(arc_exp);
est:=ioresult;
{$i+}
if est<>0
then
rewrite(arc_exp);
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:error 103 File Not Open

Publicado por Mechanic (177 intervenciones) el 25/06/2007 18:44:18
Hola DIEGO.
Lo mejor sería que mandaras todo el código pues no se sabe si creaste una varible que hace referencia a tu archivo.

Yo probé tu procedimiento y por supuesto declaré una variable para el archivo y así si funciona.

program prueba;
uses crt;
var Arc_exp : file of integer;

procedure inicio;
var
est:integer;
begin
clrscr;
assign (Arc_exp,'c:\pascal\expedie.dat');
{$i-}
reset(arc_exp);
est:=ioresult;
{$i+}
if est<>0
then
rewrite(arc_exp);
end;

begin
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:error 103 File Not Open

Publicado por diego (15 intervenciones) el 26/06/2007 03:33:49
ok pero si sos tan amable pasame tu direccion de email x q el codigo es muy grande tiene mas de 3440 lineas y usa 10 units x q ya se extendia demacio el codigo y me comenzaba a dar error 48 code segment to large a si que tuvew q comenzar a crear units y hay fue cuando comence con este error antes funcionaba perfectamente dejo mi email para el msn si alguien es tan amable de ayudarme es [email protected]
muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar