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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-05-2004
luna luna is offline
Miembro
 
Registrado: may 2004
Posts: 17
Poder: 0
luna Va por buen camino
fichero en delphi

Hola a tod@s!

Estoy utilizando un fichero con tipo, de registros ,(file of tregistros)
y quiero abrirlo para escribir al final, append no puedo utilizarlo xq es para ficheros de texto y abriendo con Reset o Rewrite me sobreescribe lo que ya tenía, existe algun otro comando equivalente a append para ficheros tipados?

gracias por adelantado
Responder Con Cita
  #2  
Antiguo 23-05-2004
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Poder: 21
Julià T. Va por buen camino
después del Reset(F) puedes hacer:
seek(F,filesize(F));
Responder Con Cita
  #3  
Antiguo 23-05-2004
luna luna is offline
Miembro
 
Registrado: may 2004
Posts: 17
Poder: 0
luna Va por buen camino
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!!

Última edición por marcoszorrilla fecha: 23-05-2004 a las 18:05:38. Razón: Ajustar al ancho pantalla
Responder Con Cita
  #4  
Antiguo 23-05-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 24
__cadetill Va por buen camino
Hola luna

No entiendo porque tanto bucle
Es más fácil que eso (creo). Como tu bien dices, no se puede borrar un "registro", ha de copiarse en un fichero temporal......

(lo pongo es pseudocódigo, supongo que será fácil pasarlo )
Código Delphi [-]
begin
  AbroFicheroTemporalPaEscritura;
  AbroFicheroOriginalPaLectura;
  while not Eof(Original) do
  begin
    LeoDelOriginal( Tmp );
    if Tmp <> RegistroAComprobar then
      AñadoEnFicheroTempral
    else
      if not PuedoBorrar then
        AñadoEnFicheroTempral;
  end;

  RenombroFicheroOriginalACopiaSeguridad;
  RenombroFicheroTemporalAOriginal;
end;
Más fácil, no?

PD: pobre Carmen, la tienes discriminada

Última edición por __cadetill fecha: 23-05-2004 a las 18:24:05.
Responder Con Cita
  #5  
Antiguo 23-05-2004
luna luna is offline
Miembro
 
Registrado: may 2004
Posts: 17
Poder: 0
luna Va por buen camino
Hola de nuevo!!
Muchas gracias por lo de antes, sí es verdad que es más sencillo pero, cómo se renombra un fichero?? Hace falta que copie el auxiliar al original??
PD: Carmen es la administradora, no está discriminada! jeje
Responder Con Cita
  #6  
Antiguo 23-05-2004
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Poder: 21
Julià T. Va por buen camino
si no es un fichero ordenado, puede intercambiar el registro a borrar por el último y truncar el fichero.

Código Delphi [-]
procedure BorrarPosicion(N:integer);
Var
 f:file of TipoDelFichero;
 temp:TipoDelFichero;
begin
 //abrir fichero
 seek(F,UltimaPosicion);
 Read(F,Temp);
 seek(F,N);
 Write(F,Temp);
 seek(f,UltimaPosicion);
 truncate(F);
 //cerrar fichero
end;
Responder Con Cita
  #7  
Antiguo 23-05-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 24
__cadetill Va por buen camino
Cita:
Empezado por luna
... cómo se renombra un fichero??
Mírate la función RenameFile

Cita:
Empezado por luna
Hace falta que copie el auxiliar al original??
De hecho no, es sólo por medida de seguridad. No creo que el mantener un archivo más suponga mucho gaste de HD y, mira, te aeguras. No se, quizás son manías mias
Responder Con Cita
Respuesta


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


La franja horaria es GMT +2. Ahora son las 03:56:03.


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