Como puedo grabar texto en un Archivo de Texto sin Sobreescribir????

AGAG4 · #1 19-01-2005

Como puedo grabar texto en un Archivo de Texto sin Sobreescribir????

Lo que pasa es que tengno un archivo de texto donde voy guardando una pequeña bitacora de Errores por lo que no quiero que cada vez que haya un error me vaya borrando la informacion que ya estaba, ya intente usando el SaveToStream con sua valores fmCreatey fmOpenWrite pero me sobreescribe y con SaveToFile tambien me lo sobreescribe y abriendo el archivo con

Código Delphi [-]    AssignFile(Txt,RutaVar+'\'+Archivo);
    ReWrite(Txt);
    WriteLN(Txt,Mensaje);

y tambien me sobreescribe.
Agradezco cualquier sugerencia.

delphi.com.ar · #2 19-01-2005

Tendrías que posicionarte en el final del archivo..

Cita:

...To expand a file, seek one component beyond the last component; that is, the statement Seek(F, FileSize(F)) moves the current file position to the end of the file...

Saludos!

cone220 · #3 19-01-2005

Si lo que queres es agregar texto a un archivo, en lugar de utilizar ReWrite(F) utiliza Reset(F)

AssignFile(F,'\Prueba\prueba.txt');
if FileExists('\Prueba\prueba.txt') then
Reset(F)
else
ReWrite(F);
Writeln(F,'Texto de Prueba');
CloseFile(F);

Saludos.

Federico

AGAG4 · #4 19-01-2005

Muchas Gracias Federico y Cone también funciona con Append, que hace las 2 cosas te abre un nuevo registro y al final...

Que tenga buen día.

mamcx · #5 20-01-2005

En esos caso es mas simple usar un TStringList... o una clase del INI. A menos que se necesite acceso random o manejar un formato especial, no veo para que complicarse con bajo nivel...

delphi.com.ar · #6 20-01-2005

Cita:

Empezado por mamcx

En esos caso es mas simple usar un TStringList... o una clase del INI. A menos que se necesite acceso random o manejar un formato especial, no veo para que complicarse con bajo nivel...

Mmmm... recuerda que un TStringList cargará todo el archivo en memoria, y solo guardará el archivo en el momento que se le indique.
Yo preferiría utilizar un TFileStream.

AGAG4 · #7 20-01-2005

Les agradezco sus respuestas, pero opte por la manera antigua con AssignFile, lo que pasa es que primeramente use el TFileStream pero no encontre que valor es el que te inserta un nuevo mensaje de texto al final del archivo de texto use el fmOpenWrite y el fmCreate.

Que tengan buen día.

mamcx · #8 20-01-2005

Es cierto. Pero normalmente los archivos de texto no son tan grandes. Ahora bien, no caeria mal una clase similar en TStringList con acceso bajo demanda...