Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
{Mira la forma de escribir y leer registros en este ejemplo ponlo a tus valores de registroy cambia lo que deseas y luego prueba}uses
crt;
type
datosreg = record id : integer; passwor : word;nombre : string[190];
contrase : string[200];
end;
var
tecla : char; dat : datosreg; f : file of datosreg; cont : integer;procedure gravarregistro;
begin
assign(f,'el nombre y extension que quieras');
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,dat);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,dat);
close(f);
end;
end;
procedure presentarregistro;
var
long, num : longint;
tec : char;begin
assign(f,'el nombre y extension que quieras');
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
writeln(' El Archivo Nombre : ','el nombre y extension que quieras');
writeln(' No Existe [Pulsa Enter]');
readln;
end
else
begin
long := filesize(f) - 1;
num := 0;
repeat
clrscr;
writeln(' Finaliza Tecla [ESC] Presentan Teclas [',chr(24),chr(25),']');
writeln;
seek(f,num);
read(f,dat);
writeln(dat.id);
writeln(dat.passwor);
writeln(dat.nombre);
writeln(dat.contrase);
tec := readkey;
if tec = #72 then
begin
num := num - 1;
if num < 0 thennum := 0;
end;
if tec = #80 then
begin
num := num + 1;
if num > long thennum := long;
end;
until tec = #27;
close(f);
end;
end;
begin
end.type
datosreg = record id : integer; passwor : word;nombre : string[190];
contrase : string[200];
end;
var
tecla : char; dat : datosreg; f : file of datosreg; cont : integer;procedure gravarregistro;
begin
assign(f,'el nombre y extensión que quieras');
{$I-} reset(f); {$I+} {A qui comprobamos si existe o no}
if ioresult <> 0 then
begin
rewrite(f); {Si no existe lo creamos}
seek(f,0);
write(f,dat);
close(f);
end
else
begin
seek(f,filesize(f)); {Si existe añadimos}
write(f,dat);
close(f);
end;
end;