Problema al hacer reset de un archivo
Publicado por Santiago (6 intervenciones) el 13/06/2015 22:46:09
Hola, hice 3 programas parecidos cambiando las funciones solamente, y el tercero empezo a tirarme error con el reset de uno de los archivos...
Les dejo el codigo sin las funciones así no se hace largo y les remarco la parte del error:
Espero que alguien sepa detectar el error, los anteriores funcionaron a la perfeccion y no cambie esa parte del código en ningún momento, solo agregue y quite funciones y agregue que además de escribir el contenido del archivo B escriba los 2, fuera de eso nada.
Saludos!
Les dejo el codigo sin las funciones así no se hace largo y les remarco la parte del error:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var ArchiA:file of integer; ArchiB:file of integer; e:integer;Capi,DigPar,DigitosImp:boolean;
Begin
Assign(ArchiA,'ArchivoDeEnteros');
Assign(ArchiB,'ArchivoDeEnterosSeleccionadosC');
reset(ArchiA); // ACÁ ESTA EL ERROR
rewrite(ArchiB);
while not eof(ArchiA) do
Begin
read(ArchiA,e);
Capi:=es_capicua(e);
DigitosImp:=digitosimpares(e);
DigPar:=DigitoPar(e);
if (digitosimp=false) and (Capi=false) and (DigPar=true)
then write(ArchiB,e);
end;
close(ArchiA);
close(ArchiB);
reset(ArchiA);
reset(ArchiB);
Writeln('Elementos en ArchivoA: ');
while not eof(ArchiA) do
begin
read(ArchiA,e);
write(' ',e,' ');
end;
Writeln('Elementos en ArchivoB: ');
while not eof(ArchiB) do
begin
read(ArchiB,e);
write(' ',e,' ');
end;
close(ArchiA);
close(ArchiB);readln;
end.Espero que alguien sepa detectar el error, los anteriores funcionaron a la perfeccion y no cambie esa parte del código en ningún momento, solo agregue y quite funciones y agregue que además de escribir el contenido del archivo B escriba los 2, fuera de eso nada.
Saludos!
Valora esta pregunta
0