![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Como puedo grabar texto en un Archivo de Texto sin Sobreescribir????
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 y tambien me sobreescribe. Agradezco cualquier sugerencia. |
#2
|
||||
|
||||
Tendrías que posicionarte en el final del archivo..
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. ![]() |
#3
|
|||
|
|||
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 |
#4
|
||||
|
||||
Gracias
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. Última edición por AGAG4 fecha: 19-01-2005 a las 20:45:52. Razón: Corrección |
#5
|
||||
|
||||
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...
__________________
El malabarista. |
#6
|
||||
|
||||
Cita:
Yo preferiría utilizar un TFileStream.
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. ![]() |
#7
|
||||
|
||||
oki
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. |
#8
|
||||
|
||||
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...
__________________
El malabarista. |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|