Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-07-2008
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Poder: 19
JoAnCa Va por buen camino
Cool Ayuda con fichero binario

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


Última edición por JoAnCa fecha: 18-07-2008 a las 15:28:25. Razón: Intento poner las etiquetas par el codigo
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Localizar un array de bytes en un fichero binario. maro Varios 3 12-02-2008 11:58:12
Bloquear registro en fichero binario jonmendi API de Windows 3 13-11-2007 17:16:31
Ayuda con fichero de texto jadelphi Varios 4 07-10-2004 09:43:14
crear fichero de ayuda empty Varios 2 04-05-2004 23:12:21
Fichero de Ayuda jsc Varios 2 02-04-2004 15:19:38


La franja horaria es GMT +2. Ahora son las 01:13:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi