Pascal/Turbo Pascal - como guardar los datos de un arreglo o registro

 
Vista:

como guardar los datos de un arreglo o registro

Publicado por Luis enrique avila solis (5 intervenciones) el 15/03/2005 01:36:09
He realizado un simple programa donde manejo altas, bajas y consultas de usuarios. Donde manejo registros (record)
pero me gustaria saber como implementar el codigo para que despues de que cierro el programa, los datos que fueron introducidos en el registro queden guardados en un archivo de .txt o .dat
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como guardar los datos de un arreglo o registro

Publicado por M@rceloL (152 intervenciones) el 15/03/2005 03:06:21
Tenés que declarar un archivo del tipo del registro. Por ejemplo:

Suponiendo type TDatos=record... bla bla bla...

type TArchivo=file of TDatos;

var MiArchivo:TArchivo;

Para guardar:

assign(MiArchivo, 'Archivo.bin');
reset(MiArchivo); {Si el archivo no existe, tenés que usar rewrite en vez de reset}

Calculo que tendrás un arrelgo...

for Ind:=1 to Max do write(MiArchivo,Arreglo[Ind]);

close(MiArchivo);

¿Se entiende? Cualquier cosa, preguntá de nuevo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como guardar los datos de un arreglo o registro

Publicado por Luis enrique avila solis (5 intervenciones) el 15/03/2005 20:19:13
Muchisimas gracias M@rceloL comprendi todo muy bien......pero
tengo otra preguntita, cuando vaya a cerrar mi programa mando llamar un procedure para que realize guardado de los datos en un archivo .bin,
y al abrir mi programa mandaria llamar otro procedure para que cargue
los datos, ¿como seria esa parte del codigo?

Nota: Mis respetos para ti M@rceloL
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como guardar los datos de un arreglo o registro

Publicado por M@rceloL (152 intervenciones) el 15/03/2005 20:38:23
Bueno, suponiendo que cargás en el arreglo:

assign(MiArchivo,'Archivo.bin');reset(MiArchivo);
Cont:=1;
while not eof(MiArchivo) do {Mientras el archivo no se termine}
begin
read(MiArchivo,Arreglo[Cont]);
inc(Cont);
end;
close(MiArchivo);

Claro que habría che checkear que que no se llegue al final del arreglo, en caso de que el archivo sea mayor al arreglo...

Escribir y leer se diferencian solamente en que usás "write" y "read" según el caso.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como guardar los datos de un arreglo o registro

Publicado por Luisenrique avila solis (5 intervenciones) el 15/03/2005 21:06:16
Ok, muchas gracias M@rceloL.

Espero que si vuelvo a tener alguna duda me puedas ayudar, y si tu llegas a tener alguna duda comentamelo y ya veremos, aunque no creo poder ayudarte mucho ya que apenas me estoy iniciando en esto de la programacion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Para Luis...

Publicado por Diego Romero (786 intervenciones) el 02/07/2005 14:09:01
Quizá te sería útil mirar aquí:
http://mx.geocities.com/antrahxg/pascal/pmf/archivos.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como guardar los datos de un arreglo o registro

Publicado por martin (5 intervenciones) el 01/07/2005 20:34:25
bueno lo que tenes que hacer es definirte un archoivo de texto y recorrer cada registro de tu base y mandarlo con un write a ese archivo eso genera un txt.

type
archivo:text;

//escritura

write(archivo, dato)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar