[luna]

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;  //xq el fichero empiza en 0
    AssignFile (faux, 'seguridad.dat');
    //Abrimos el auxiliar xa escritura
    rewrite (faux);
    encontrado:=false;
//Abrimos el fichero para lectura y comprobamos si los datos coinciden.
 Reset(fichero);
 while Eof(fichero) = False do
    begin
    read (fichero,ficha);
    num:=num+1; //me dira las posicion dentro del fichero de la linea
 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  //Lo podemos borrar
                    begin
                       {num-1 es la linea anterior a lo q keremos borrar}
                       for i:=0 to num-2  do
                          begin
                             read (fichero, ficha);
                             write (faux, ficha);
                          end;
                          seek (fichero, num);
                             //se coloca dentro del fichero en la posicion 
                            donde está la linea q keremos borrar
                          {num+1 eslinea posterior a lo q keremos borrar}
                       for i:=num  to filesize (fichero) do
                          begin
                             read (fichero, ficha);
                             write (faux, ficha);
                          end;
                       rewrite (fichero); //Abrimos fichero xa escritura
                       reset (faux); //Abre faux para lectura
                       While NOT EOF (faux) do
                          begin
                             read (faux, ficha);
                             write (fichero, ficha);
                          end;
                       erase (faux);
                    end;
              end;
      end;
 end;
  CloseFile(fichero);

Gracias por adelantado!!