Ayuda con fichero binario

[JoAnCa]

Hola a todos
Quiero almacenar un listado de usuarios en un fichero binario (o no se como se le llamaria a este tipo que yo mismo creo), pero no se como desplazarme por él.

El fichero lo creo de esta forma:

Type Usuarios = record
    Nombre  :String[25];
    Clave   :String[10];
    Permiso :Boolean;
 end;

 var
  MiFile  :File of Usuarios;
  Usuario :Usuarios;

.....
// Para escribir cada usuario en ek fichero

  AssignFile(MiFile, '.\ConActI2.cfg');
  Reset(MiFile);
  Write(MiFile, Usuario);
  CloseFile(MiFile);

//Aqui parece que me reescribe en un solo record, y yo quiero añadir 
//tantos usuarios como se desee
.....

//Para leer del fichero y actualizar un cuadro combinado

 While Not EOF(MiFile) do
  begin
    Read(MiFile, Usuario);
    ComboUser.Items.Add(Codifica(Usuario.Nombre,64));
  end;

....

El problema de aqui es que no se como moverme por el fichero para leer cada uno de los usuarios, solo me lee el ultimo

[Spynosa]

prueba esto

Código Delphi [-]
AssignFile(MiFile, '.\ConActI2.cfg');
Reset(MiFile);
seek(mifile,filesize(mifile));
Write(MiFile, Usuario);
CloseFile(MiFile);

[JoAnCa]

Spynosa, ya probe con Seek, pero lo que hace es saltarme la cantidad de bytes del fichero y No la cantidad de registros.
Es decir, en lugar de saltarme al segundo registro cuando hay uno, me salta 308 registros, que es el tamaño en bytes del fichero.

[Khronos]

Prueba con la clase TFileStream, es mucho más fácil

Salu2

[JoAnCa]

Empezado por Khronos

Prueba con la clase TFileStream, es mucho más fácil

Salu2

Disculpa por mi desconocimiento, pero como es que uso TFileStream
Como se si la instruccion Seek es la de TFileStream o la de TFile

[[Delphius]]

Hola Jose Caceres,
Si todavía estás interesado en tener tu File of Records, tal vez te interese este hilo. Ve al post 6, allí dejé a disposición un ejemplo de como proceder.

Saludos,