Pascal/Turbo Pascal - Ayuda, visualizar contenido de un archivo

   
Vista:

Ayuda, visualizar contenido de un archivo

Publicado por Maxi (3 intervenciones) el 08/11/2008 15:14:51
Intenté hacer q se visualize el contenido de un archivo, pero sin exito. el codigo:

Procedure mostrar_cliente(var cliente1:arch_cliente);
var
reg1:cliente;
buscador:boolean;
begin
buscador:=encontrar_cliente(cliente1);
if buscador = true then
if (not reg1.baja) then
begin
writeln('Numero de Cliente: ',reg1.nrocliente);
writeln ('Nombre y apellido: ',reg1.apellidoynombre);
writeln ('Direccion: ',reg1.direccion);
writeln ('Localidad: ',reg1.localidad);
writeln ('Numero de telefono: ',reg1.telefono);
writeln ('Presione cualquier tecla para continuar...');
Readkey
end
else
begin
writeln('El cliente no existe o el numero de cliente ingresado es incorrecto');
writeln('Presione cualquier tecla para continuar...');
Readkey
end
end;

Cuando ejecuto se ven cosas re locas, no se q onda jaja, espero q me puedan ayudar en decirme cual es mi error.

desde ya gracias y saludos!
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:Ayuda, visualizar contenido de un archivo

Publicado por Miguel (162 intervenciones) el 08/11/2008 15:50:44
Que hace encontrar_ cliente??? Mmm no entiendo lo que quieres hacer. No veo la apertura del archivo y menos el cierre del mismo. Tampoco veo un READLN(cliente1,reg1); para tomar ese valor!!! Digo no lo estas leyendo!!!
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:Ayuda, visualizar contenido de un archivo

Publicado por Maxi (3 intervenciones) el 08/11/2008 16:06:49
el encontrar cliente se fija si esta, es boolean, los clientes ya estan agregados y agrege eso de leer, XD se me pasó, igual, me tira error

Procedure mostrar_cliente(var cliente1:arch_cliente);
var
reg1:cliente;
buscador:boolean;
begin
abrir_cli(cliente1);
buscador:=encontrar_cliente(cliente1);
if buscador = true then
read(cliente1,reg1);
if (not reg1.baja) then
begin
writeln(' ');
writeln('Numero de Cliente: ',reg1.nrocliente);
writeln ('Nombre y apellido: ',reg1.apellidoynombre);
writeln ('Direccion: ',reg1.direccion);
writeln ('Localidad: ',reg1.localidad);
writeln ('Numero de telefono: ',reg1.telefono);
writeln(' ');
writeln ('Presione cualquier tecla para continuar...');
close(cliente1);
Readkey
end
else
begin
writeln(' ');
writeln('El cliente no existe o el numero de cliente ingresado es incorrecto');
writeln(' ');
writeln('Presione cualquier tecla para continuar');
Readkey
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:Ayuda, visualizar contenido de un archivo

Publicado por maxi (3 intervenciones) el 08/11/2008 16:31:39
listo, me salio, modifique todo el codigo:

Procedure mostrar_cliente(var reg1:cliente);
var
buscar:boolean;
begin
buscar:=encontrar_cliente(cliente1);
if buscar = false then
begin
writeln(' ');
writeln('El cliente no existe o el numero de cliente ingresado es incorrecto');
writeln(' ');
writeln('Presione cualquier tecla para continuar...');
Readkey
end
else
with reg1 do begin
if (not reg1.baja) then
begin
writeln('Numero de Cliente: ',nrocliente);
writeln ('Nombre y apellido: ',apellidoynombre);
writeln ('Direccion: ',direccion);
writeln ('Localidad: ',localidad);
writeln ('Numero de telefono: ',telefono);
writeln;
writeln ('Presione cualquier tecla para continuar...');
readkey
end
end
end;

Saludos y gracias igual miguel!
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