Ver Mensaje Individual
  #5  
Antiguo 10-02-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 25
Delphius Va camino a la fama
sirsolrac,
Siendo esa la manera de trabajar con el archivo. Va a ser un tanto dificil. Porque lo que debes hacer es correr todas las líneas primero y luego sobrrescribir el contenido.

Deberás tener una rutina que haga dicho corrimiento. Para moverse por las líneas tienes a disposición el procedimiento Seek. El funcionamiento de Seek es así:

Código Delphi [-]
Seek(myFile,0);
Con ello te vas al principio y ya puedes ingresar el texto.

Pero antes debes hacer una rutina para mover todo:

1. Abrir el archivo. Con lo cual estarás al final.
2. Ingresas un registro "ficticio".
3. Te mueves 2 valores atrás y lees el valor, ahora te mueves un lugar hacia adelante y lo sobrescribes.
4. Vas decrementando el valor a medida que sobreescribes hasta llegar al comienzo.

Todo se trata de emplear Seek.

Ahora, te podrías evitar ese dolor de cabeza si empleases el Objeto que te comentaba.

Ve probando como te queda el algoritmo. Ya te di una buena pista...

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita