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
