vampirikarulez
11/11/2008, 10:53
ke tal, me kedo una duda de pascal.. supongo k este thread va aka. A ver si alguno sabe xD
tengo 999 registros de maquinas en un archivo1. Cada uno contiene los siguientes campos:
- codigo de maquina: 1 a 999 (cod)
- descripcion (desc)
- vida util (VU)
- reparaciones (rep)
- antiguedad (en meses) (ant)
y tengo k krear un archivo2 nuevo kon 999 registros, ke tenga los mismos campos, lo unico ke varia es ke debo sumarle 1 a los meses de antiguedad.
Ahora.. si lo hago asi:
while not EOF (nuevo) do
read(archivo1.regviejo);
begin
RegNuevo.cod := RegViejo.cod;
RegNuevo.desc := RegViejo.desc;
RegNuevo.VU := RegViejo.VU;
RegNuevo.rep := RegViejo.rep;
RegNuevo.ant := RegViejo.ant + 1;
write(archivo2.regnuevo);
end;
en esa parte, me crearia 999 registros en el archivo nuevo, o crearia uno solo ke se sobreescribiria 999 veces? En caso de ser asi, como hago para ke me keden 999 registros en el archivo nuevo?
muchas gracias
tengo 999 registros de maquinas en un archivo1. Cada uno contiene los siguientes campos:
- codigo de maquina: 1 a 999 (cod)
- descripcion (desc)
- vida util (VU)
- reparaciones (rep)
- antiguedad (en meses) (ant)
y tengo k krear un archivo2 nuevo kon 999 registros, ke tenga los mismos campos, lo unico ke varia es ke debo sumarle 1 a los meses de antiguedad.
Ahora.. si lo hago asi:
while not EOF (nuevo) do
read(archivo1.regviejo);
begin
RegNuevo.cod := RegViejo.cod;
RegNuevo.desc := RegViejo.desc;
RegNuevo.VU := RegViejo.VU;
RegNuevo.rep := RegViejo.rep;
RegNuevo.ant := RegViejo.ant + 1;
write(archivo2.regnuevo);
end;
en esa parte, me crearia 999 registros en el archivo nuevo, o crearia uno solo ke se sobreescribiria 999 veces? En caso de ser asi, como hago para ke me keden 999 registros en el archivo nuevo?
muchas gracias