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:
Código:
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
