UTNianos

resulta q estaba probando en free pascal lo aprendido en algoritmos.
y al tratar de hacer el programa en una parte no me andaba.

Si leo el primer registro de un archivo.........

read(arch,reg)

y ahora quiero mostrarlo por pantalla.....

writeln(reg)

no tendria q andar?

o... tengo q mostrar cada campo del registro por separado
writeln(reg.nombre)
writeln(reg.edad)


GRACIAS



---------PROGRAMA COMPLETO-----------

program fer;

type
treg = record
nombre:string;
numero:real;
end;
tarch = file of treg;

var
reg:treg;
arch:tarch;
a:byte;
i:integer;

begin
assign(arch,'fer.dat');
rewrite(arch);
a:=1;

while (a=1) do

begin
writeln(' INGRESE NOMBRE ');
readln(reg.nombre);
writeln(' INGRESE NUMERO ');
readln(reg.numero);
write(arch,reg);
writeln(' DECEA INGRESAR REGISTRO??');
writeln('1.SI');
writeln('2.NO');
readln(a);

end;
writeln (' ---------------------------- ');
writeln (' ---------------------------- ');
writeln ('LOS REGISTROS DEL ARCHIVO SON.... ');

a:=filesize(arch);
writeln(a);
seek(arch,0);

for i:=1 to a do
begin
read(arch,reg);
writeln(reg);
end;
close(arch);
read(a)

end.

Si no me equivoco mucho, tenés que mostrar cada uno.

-

Como alternativa, creo que se podia hacer algo como esto:

type
treg = record
nombre:string;
numero:real;
end;
tarch = file of treg;

with reg do
writeln(nombre);
writeln(numero);
end;

Campo por campo tiene que ser.

Muchas Gracias