fichero en delphi

[__cadetill]

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

[luna]

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

[__cadetill]

Empezado por luna

... cómo se renombra un fichero??

Mírate la función RenameFile

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

[Julià T.]

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;