Pascal/Turbo Pascal - como crear un archivo

 
Vista:

como crear un archivo

Publicado por Agustin (3 intervenciones) el 18/06/2004 19:16:01
cual es la sentencia para grabar una variable a uno de los n campos de un registro de un archivo¿?
dedsde ya gracias
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 crear un archivo

Publicado por Morito (176 intervenciones) el 19/06/2004 18:19:33
assign
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 crear un archivo

Publicado por M@rceloL (152 intervenciones) el 20/06/2004 02:41:24
Supongamos:

type Datos=record
Dato1:integer;
Dato2:string[50];
end;

type TArchivo=file of Datos;

var MiArchivo:TArchivo;
Info:Datos;

Lo asignás mediante Assign(MiArchivo,"UnNombre.dat").
Lo abrís con Reset(MiArchivo) si es que existe, o con Rewrite(MiArchivo) si es que no existe o querés inicializarlo vacío (lo borra si existe y crea otro).
Escribís usando Write(MiArchivo,Info).
Leés usando Read(MiArchivo,Info).
Cerrás usando close(MiArchivo).

Por ejemplo, supongamos leer y mostrar:

assign(MiArchivo,"pepe.dat");reset(MiArchivo);
while not eof(MiArchivo) do
read(MiArchivo,Info);write(Info.Dato1);writeln(Info.Dato2);
end;
Close(MiArchivo),
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 crear un archivo

Publicado por Agustin (3 intervenciones) el 22/06/2004 01:36:22
Muchas gracias..
pero no logro hacer que imprima en pantalla el archivo. aca noi esta el error no? debe estan en el procedimiento anterior q da a elegir ersta opcion no?

procedure verarch(var arch : tarch);
var
rarch:trarch;
begin
clrscr;
while not eof(arch) do
begin
read(arch,rarch);writeln(rarch.dato1,\\\\\\\' \\\\\\\',rarch.dato2);
end;
end;
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 crear un archivo

Publicado por M@rceloL (152 intervenciones) el 23/06/2004 00:08:05
No parece haber nincgún error. Siempre y cuand el archivo se halla abierto.

Podés probar lo siguiente: después de una operación con archivos (cualquiera sea) hay una variable llamada IOResult, que da el número de error que se halla producido o 0 (cero) si no hubo ninguno. Probá leer esa variable para ver qué error es...
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 crear un archivo

Publicado por Agustin (3 intervenciones) el 24/06/2004 16:34:04
Ya lo solucione.. el problema estaba en un procedimiento anterior a este.. jeje
gracias igual marcelo!
saludos
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