Vale, fuera coñas del título xDD
A lo que iba, tengo un problema con un trozo de código Pascal:
begin { LoadObject }
writeln('Culo01');
readln(puraMierda);
assign(object_file, 'a.dat');
writeln('Culo02');
readln(puraMierda);
for aux:=1 to 100 do
begin
writeln('Culo021');
end;
{$I-}
reset(object_file); {AQUI FALLA}
{$I+}
if IOResult = 0 then
writeln('Va bien')
else
writeln('ya sabia yo que no iba bien...'); {ESTO SE MUESTRA}
writeln('Culo03');
readln(puraMierda);
new(current_object);
writeln('Culo04');
Como veis, he puesto marcas de traza para acotarlo. Falla la llamada a reset. Por supuesto, el archivo a.dat existe y está en el mismo directorio que el ejecutable.
Si pudierais agregarme al messenger ( joakiniko2002@hotmail.com ) sospecho que será más fácil echarme un cable
Jrasias a todos de antebraso!!
A lo que iba, tengo un problema con un trozo de código Pascal:
begin { LoadObject }
writeln('Culo01');
readln(puraMierda);
assign(object_file, 'a.dat');
writeln('Culo02');
readln(puraMierda);
for aux:=1 to 100 do
begin
writeln('Culo021');
end;
{$I-}
reset(object_file); {AQUI FALLA}
{$I+}
if IOResult = 0 then
writeln('Va bien')
else
writeln('ya sabia yo que no iba bien...'); {ESTO SE MUESTRA}
writeln('Culo03');
readln(puraMierda);
new(current_object);
writeln('Culo04');
Como veis, he puesto marcas de traza para acotarlo. Falla la llamada a reset. Por supuesto, el archivo a.dat existe y está en el mismo directorio que el ejecutable.
Si pudierais agregarme al messenger ( joakiniko2002@hotmail.com ) sospecho que será más fácil echarme un cable
Jrasias a todos de antebraso!!