{A ver si esto ayuda}
program busqueda;
uses
crt;
const
archivo = 'datosreg.dat';
type
losdatos = record
codigo : word;
nombre : string[30];
apellido : string[40];
telefono : word;
end;
var
datos : losdatos;
f : file of losdatos;
cont : longint;
procedure guardaregistro(rg : losdatos);
begin
assign(f,archivo);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,rg);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,rg);
close(f);
end;
end;
procedure entradadatos;
var
dd : losdatos;
ace : char;
begin
clrscr;
writeln(' ##### Entrada De Datos ######'); writeln;
write(' Entre Codigo : '); readln(dd.codigo);
write(' Entre Nombre : '); readln(dd.nombre);
write(' Entre Apellido : '); readln(dd.apellido);
write(' Entre Telefono : '); readln(dd.telefono);
writeln;
writeln(' Datos Correctos [S/N]'); repeat
ace := upcase(readkey);
until ace in['S','N'];
if ace = 'S' then
begin
guardaregistro(dd);
end;
end;
procedure tomadatos(cod : word);
var
ok : boolean;
begin
assign(f,archivo);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
writeln(' Error de Archivo O No Existe Pulse Una Tecla'); readkey;
end
else
begin
ok := false;
for cont := 0 to filesize(f) - 1 do
begin
seek(f,cont);
read(f,datos);
if datos.codigo = cod then
begin
close(f);
ok := true;
break;
end;
end;
if ok = true then
begin
writeln(' Los Datos Pedidos Son '); writeln;
writeln(' El Codigo : ',datos.codigo); writeln(' El Nombre : ',datos.nombre); writeln(' El Apellido : ',datos.apellido); writeln(' El Telefono : ',datos.telefono); writeln;
writeln(' Pulse Una Tecla'); readkey;
end
else
begin
writeln(' El codigo No Existe Pulse Una Tecla'); readkey;
end;
end;
end;
procedure menu;
var
sal : boolean;
tec : char;
codi : word;
begin
sal := false;
repeat
clrscr;
writeln(' ***** Menu Jeneral *****'); writeln;
writeln(' [E] = Entrada Datos'); writeln(' [B] = Busqueda Dato'); writeln(' [S] = Salida'); writeln;
writeln(' Elija Opcion'); repeat
tec := upcase(readkey);
until tec in['E','B','S'];
clrscr;
case tec of
'E' : entradadatos;
'B' : begin
clrscr;
writeln(' @@@@@ Busqueda Por Codigo @@@@@'); writeln;
write(' Entre Codigo : '); readln(codi);
tomadatos(codi);
end;
'S' : sal := true;
end;
until sal = true;
end;
begin
menu;
end.
Crear cuenta