Problema con ficheros

[vhirginia]

hola compañeros,
usamos un fichero de registros para realizar la gestión de usuarios de un programa. Cuando damos de alta un usuario, se tiene que escribir sus datos, incluyendo el nombre de usuario y una contraseña, en el fichero. Entonces al inciar sesión en el programa, lo que hacemos comparar el nombre y contraseña introducidos con los que hay en el fichero y si coincide con alguno es que el usuario está registrado y por tanto puede utilizar el programa.
El problema es que nos da este error al intentar inciar la sesión con el nombre y contraseña de un usuario que ya está registrado en el fichero: "Proyect ... raised exception class ElnOutError with message 'Read Beyond End of File'. "

Él código para dar de alta es:

type
  tentrada = record
     nombre:string[15];
     apellidos:string[25];
     contrasena:string[20];
     nombre_usuario:string[20];
     end;

var
  ficherousuarios:file of tentrada;
     .
     .
     .

procedure TForm6.Button1Click(Sender: TObject);
var
 linea:string;
 nombre2,apellidos2,nombre_usuario2,
 contrasena2,rcontrasena2,contrasenaad:string;
 usuario:tentrada;
begin
 usuario.nombre:=#0;
 usuario.apellidos:=#0;
 usuario.contrasena:=#0;
 usuario.nombre_usuario:=#0;  
 nombre2:=Edit1.Text;
 apellidos2:=Edit2.Text;
 nombre_usuario2:=Edit3.Text;
 contrasena2:=Edit4.Text;
 rcontrasena2:=Edit5.Text;
 contrasenaad:=Edit6.Text;
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 Edit4.Text:='';
 Edit5.Text:='';
 Edit6.Text:='';
 AssignFile(administrador,'administrador.txt');
 Reset(administrador);
 Readln(administrador,linea);
 if linea=contrasenaad then
 begin
   AssignFile(ficherousuarios,'ficherousuarios');
   if FileExists('ficherousuarios') then
    begin
     Reset(ficherousuarios);
    // totreg:=FileSize(ficherousuarios);
     Seek(ficherousuarios,FileSize(ficherousuarios));
    end
   else Rewrite(ficherousuarios);
   if contrasena2=rcontrasena2 then
    begin
       usuario.nombre:=nombre2;
       usuario.apellidos:=apellidos2;
       usuario.contrasena:=contrasena2;
       usuario.nombre_usuario:=nombre_usuario2;
       write(ficherousuarios,usuario);
       Form6.ModalResult:=mrOk;
       Form6.Visible:=False;
       Form1.Visible:=True;
       CloseFile(ficherousuarios);
    end
   else
    begin
     Form17.ShowModal;
     CloseFile(ficherousuarios);
    end;
  end
 else Form11.ShowModal;
end;

y el código con el que leemos para poder iniciar la sesión es el siguiente:

procedure TForm2.Button1Click(Sender: TObject);
var
 n2,c2,nombre2,contrasena2:string;
 ej:tentrada;
 encon,enconc,enconn:boolean;
begin
 encon:=false;
 enconc:=true;
 enconn:=false;
 nombre2:=Edit1.Text;
 contrasena2:=Edit2.Text;
 Edit1.Text:='';
 Edit2.Text:='';
 AssignFile(ficherousuarios,'ficherousuarios');
 if FileExists('ficherousuarios') then
    begin
     Reset(ficherousuarios); 
     while not Eof(ficherousuarios) do
      begin
       read(ficherousuarios,ej);//EL ERROR NOS DA JUSTO EN ESTE PUNTO 
       n2:=ej.nombre_usuario;
       c2:=ej.contrasena;
       if (n2=nombre2)then
        begin
         enconn:=true;
         if (c2<>contrasena2) then enconc:=false;
        end;
       if ((n2=nombre2) and (c2=contrasena2)) then
        encon:=true;
      end;
     if encon then
      begin
        Form3.Activar;
        Form2.ModalResult:=mrOK;
        Form2.Visible:=False;
      end
     else if ((enconn=true) and (enconc=false)) then
       Form13.ShowModal
      else Form14.ShowModal;
     Seek(ficherousuarios,1);
    end
 else Form12.ShowModal;
end;

nosotras no encontramos el error, espero que nos podais ayudar, gracias.

[Julià T.]

'Read Beyond End of File'

Comprobad que el fichero tenga almenos 80 bytes. (tamaño de la estructura que utilizais)

A parte de esto:
el fichero 'ficherousuarios', no simepre va a estar donde deseeis, ya que puede variar del "directorio donde trabajeis", por lo que si en algún momento, accedeis a otro directorio, puede variarla ruta.

No cerrais el fichero despues de leer, por lo que supongo que lo maneneis abierto para cerrarlo posteriomente, ya que la variable file que utilizais es global

[vhirginia]

Empezado por Julià T.

Comprobad que el fichero tenga almenos 80 bytes. (tamaño de la estructura que utilizais)

A parte de esto:
el fichero 'ficherousuarios', no simepre va a estar donde deseeis, ya que puede variar del "directorio donde trabajeis", por lo que si en algún momento, accedeis a otro directorio, puede variarla ruta.

No cerrais el fichero despues de leer, por lo que supongo que lo maneneis abierto para cerrarlo posteriomente, ya que la variable file que utilizais es global

Muchas gracias por tu respuesta,
Hemos comprobado el tamaño del fichero y es de 336 bytes,asi que por eso no puede darnos el error.
El fichero ya lo hemos cerrado, pero nos sigue dando el mismo error de 'Read beyond end of file' en el mismo punto que antes.
A ver si nos podeis ayudar, porfavor.
Muchas gracias.

[[Lepe]]

Sugerencia:
Salir del bucle
while not Eof(ficherousuarios) do
cuando lo encuentre o bien por el Eof

¿Para que seguir recorriendo todo el archivo si ya lo ha encontrado?

Saludos.

[vhirginia]

Gracias Lepe,
hemos añadido en el bucle la condicion de que siga buscando mientras no lo encuentra(con una variable booleana), pero aún así, nos da error.En cualquier caso, con condición añadida o sin ella no debería dar ese problema,no sé a que se refiere exactamente con 'Read beyond end of file'(Lee más allá del fin de fichero),
¿puede ser por que la posición del cursor al intentar leer este al final del fichero?Pero se supone que al hacer un reset el fichero se abre para lectura y el cursor se posiciona al principio, no?

Puede que el problema esté en dar de alta a un usuario, pero no encontramos ningún fallo en el código(antes lo escribimos )

Muchas gracias de nuevo, espero que nos podais echar un cable.

[javiermorales]

Podríais insertar antes de la lectura de la línea, la lectura de un único caracter y si ese caracter es #26 (EOF) que no lea la línea completa y salga del bucle.

Un saludo.