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.
no te dice en que linea te tira el error ?
No tira error de sintaxis, osea salta un error 100 y no se que hago mal.
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
El tema es que esas lecturas las vuelvo a hacer dentro del ciclo while. (que eso no te lo puse en el codigo)
sin el codigo no puedo adivinar
pone todo el codigo y usuando el coso de "codigo" asi queda mas lindo y se ve mejor
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.
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.
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.
Pero esos while son una vez que salieron del primer ciclo para vaciar los archivos luego del apareo.
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
disculpame estoy quemado, como lo puedo validar? Que parte?
linea 80 a 87
pregunta si es eof y actuliza los flag
Pruebo y te digo, gracias. Disculpá la molestia.
Sale error 105, ahora lo arreglo.
mira que si queres leer y llegaste al eof, le tenes que hacer un reset o un seek a la posicion 0
creeeo
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?