Modo compacto | Modo extendido

8 en 6 posts · 04-07-2012 23:41

Hice la lectura especial, hago el ciclo, hago todo pero pascal me tira error 100 o me copia las cosas por la mitad.

La verdad ya no entiendo que tengo que hacer.

program leeguarda;

uses

Crt;

type
str5 = string[5];
str4 = string[4];
rZona = record
NroPat: str4;
NroRegCond: integer;
rFecInf:record
dd,
mm: byte;
aaaa: word;
CodDestPol,
CodInfr: word;
NroIdPol: str5;
end;
end;
ArcTipo = file of rZona;

var
fda,fdb : boolean;
zna,
znb,
aux: ArcTipo;
registro,
registro2: rZona;
fechA,fechB: integer;
begin
Filemode :=0;
assign (zna, 'ZONA1.dat');
reset (zna);
assign (znb, 'ZONA2.dat');
reset(znb);
assign (aux,'AUXILIAR1.dat');
rewrite(aux);
{seek(zna,0);
seek(znb,0);
seek(aux,0);}

fda := false;
fdb := false;
if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;

while not fda and not fdb do begin

end;

while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);

{
while not eof (zna) and not eof (znb) do begin
read(zna,registro);
read(znb,registro2);
write(aux,registro,registro2);
end;}

end.

dentro del while iria todo lo relacinoado con copiar pegar leer etc etc

pero no lo pongo porqeu cuadno lo pongo no funciona tira error 100, que leo afuera de los limites
del archivo.

110 en 30 posts · 04-07-2012 23:49

no te dice en que linea te tira el error ?

8 en 6 posts · 04-07-2012 23:58

No tira error de sintaxis, osea salta un error 100 y no se que hago mal.

110 en 30 posts · 05-07-2012 00:09

creo que puede ser por esto:

Cita:while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);

(puse los close asi sabes en que parte hablo).

vos validas el fda y fdb arriba y lees..... y despues volves a leer en esa parte, pero no actualizas fda y fdb, entonces ahi podria suceder que tratas de leer y llegaste al eof y te tira el error 100

8 en 6 posts · 05-07-2012 00:12

El tema es que esas lecturas las vuelvo a hacer dentro del ciclo while. (que eso no te lo puse en el codigo)

110 en 30 posts · 05-07-2012 00:15

sin el codigo no puedo adivinar

pone todo el codigo y usuando el coso de "codigo" asi queda mas lindo y se ve mejor

8 en 6 posts · 05-07-2012 00:19

program leeguarda;

uses

Crt;

type
str5 = string[5];
str4 = string[4];
rZona = record
NroPat: str4;
NroRegCond: integer;
rFecInf:record
dd,
mm: byte;
aaaa: word;
CodDestPol,
CodInfr: word;
NroIdPol: str5;
end;
end;
ArcTipo = file of rZona;

var
fda,fdb : boolean;
zna,
znb,
aux: ArcTipo;
registro,
registro2: rZona;
fechA,fechB: integer;
begin
Filemode :=0;
assign (zna, 'ZONA1.dat');
reset (zna);
assign (znb, 'ZONA2.dat');
reset(znb);
assign (aux,'AUXILIAR1.dat');
rewrite(aux);

if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;

while not fda and not fdb do begin
write (zna, registro);
write (znb, registro2);

if not eof(zna) then begin
read(zna,registro);
fda := false;
end else begin
fda := true;
end;
if not eof(znb) then begin
read(znb,registro2);
fdb := false;
end else begin
fdb := true;
end;

end;

while not fda do begin
read(zna,registro);
write(aux,registro);
end;
while not fdb do begin
read(znb,registro2);
write(aux,registro2);
end;

close (zna);
close (znb);
close (aux);

end.

110 en 30 posts · 05-07-2012 00:26



 program leeguarda;





uses



Crt;



type

str5 = string[5];

str4 = string[4];

rZona = record

NroPat: str4;

NroRegCond: integer;

rFecInf:record

dd,

mm: byte;

aaaa: word;

CodDestPol,

CodInfr: word;

NroIdPol: str5;

end;

end;

ArcTipo = file of rZona;





var

fda,fdb : boolean;

zna,

znb,

aux: ArcTipo;

registro,

registro2: rZona;

fechA,fechB: integer;

begin

Filemode :=0;

assign (zna, 'ZONA1.dat');

reset (zna);

assign (znb, 'ZONA2.dat');

reset(znb);

assign (aux,'AUXILIAR1.dat');

rewrite(aux);





if not eof(zna) then begin

read(zna,registro);

fda := false;

end else begin

fda := true;

end;

if not eof(znb) then begin

read(znb,registro2);

fdb := false;

end else begin

fdb := true;

end;



while not fda and not fdb do begin

write (zna, registro);

write (znb, registro2);



if not eof(zna) then begin

read(zna,registro);

fda := false;

end else begin

fda := true;

end;

if not eof(znb) then begin

read(znb,registro2);

fdb := false;

end else begin

fdb := true;

end;











end;



while not fda do begin

read(zna,registro);

write(aux,registro);

end;

while not fdb do begin

read(znb,registro2);

write(aux,registro2);

end;



close (zna);

close (znb);

close (aux);





end.

Compilar y ejecutar código

emmmm, no, fijate que en el ultimo while nunca cambias el valor de fda y fdb



 program leeguarda;





uses



Crt;



type

str5 = string[5];

str4 = string[4];

rZona = record

NroPat: str4;

NroRegCond: integer;

rFecInf:record

dd,

mm: byte;

aaaa: word;

CodDestPol,

CodInfr: word;

NroIdPol: str5;

end;

end;

ArcTipo = file of rZona;





var

fda,fdb : boolean;

zna,

znb,

aux: ArcTipo;

registro,

registro2: rZona;

fechA,fechB: integer;

begin

Filemode :=0;

assign (zna, 'ZONA1.dat');

reset (zna);

assign (znb, 'ZONA2.dat');

reset(znb);

assign (aux,'AUXILIAR1.dat');

rewrite(aux);





if not eof(zna) then begin

read(zna,registro);

fda := false;

end else begin

fda := true;

end;

if not eof(znb) then begin

read(znb,registro2);

fdb := false;

end else begin

fdb := true;

end;



while not fda and not fdb do begin

write (zna, registro);

write (znb, registro2);



if not eof(zna) then begin

read(zna,registro);

fda := false;

end else begin

fda := true;

end;

if not eof(znb) then begin

read(znb,registro2);

fdb := false;

end else begin

fdb := true;

end;











end;



while not fda do begin

read(zna,registro);

write(aux,registro);

end;

while not fdb do begin

read(znb,registro2);

write(aux,registro2);

end;



close (zna);

close (znb);

close (aux);





end.

Compilar y ejecutar código

8 en 6 posts · 05-07-2012 00:33

Pero esos while son una vez que salieron del primer ciclo para vaciar los archivos luego del apareo.

110 en 30 posts · 05-07-2012 00:38

por eso mismo

estas haciendo read de algo que puede ser un eof, y por eso te tira error.

o sea, cuando llegas al final, como no validas que no sea eof, lee eof y rompe

haceme caso, valida eso y vas a ver que anda

8 en 6 posts · 05-07-2012 00:39

disculpame estoy quemado, como lo puedo validar? Que parte?

110 en 30 posts · 05-07-2012 00:41

linea 80 a 87

pregunta si es eof y actuliza los flag

8 en 6 posts · 05-07-2012 00:45

Pruebo y te digo, gracias. Disculpá la molestia.

Sale error 105, ahora lo arreglo.

110 en 30 posts · 05-07-2012 00:55

mira que si queres leer y llegaste al eof, le tenes que hacer un reset o un seek a la posicion 0

creeeo

8 en 6 posts · 05-07-2012 01:07

PERFECTO!!!!!!! SOS UN GENIO!!!. CUCHAME, hago apareo de dos archivos que pesan 1,14 kb y 1,43 kb, pero el archivo final pesa 2,55 kb. Puede que haya un error de copia? No me faltaran los ultimos registros?

Modo compacto \| Modo extendido Como catso hago un apareo en pascal?
Autor	Mensaje