Hola:
Gracias por lo de antes, me ha funcionado. Ahora tengo otra duda, estoy intentando borrar uno de los registros del fichero tipado para ello paso todo el fichero menos la línea que quiero borrar a un auxiliar y luego lo vuelvo a copiar al principal, debido a que creo que no hay un comando para ello. Pero no me funciona. Aquí te adjunto el código que utilizo:
Código Delphi
[-]
num:=0; AssignFile (faux, 'seguridad.dat');
rewrite (faux);
encontrado:=false;
Reset(fichero);
while Eof(fichero) = False do
begin
read (fichero,ficha);
num:=num+1; q kiero borrar
with ficha do
begin
if username= nombre_baja.Text then
if pass= password_baja.Text then
begin
encontrado:=true;
if username= 'carmen' then
MessageDlg ('Permiso denegado',mtError, [mbOK],0)
else begin
for i:=0 to num-2 do
begin
read (fichero, ficha);
write (faux, ficha);
end;
seek (fichero, num);
donde está la linea q keremos borrar
for i:=num to filesize (fichero) do
begin
read (fichero, ficha);
write (faux, ficha);
end;
rewrite (fichero); reset (faux); While NOT EOF (faux) do
begin
read (faux, ficha);
write (fichero, ficha);
end;
erase (faux);
end;
end;
end;
end;
CloseFile(fichero);
Gracias por adelantado!!