FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
TFileStream
Hola a todos, espero se encuentren bien estoy atorado con lo siguiente:
Tengo un TFileStream y deseo abrir un archivo para escritura pero que no borre los datos que tengo sino que agrege lo que escribo al final del archivo, este es el codigo: Código:
var F : TFileStream; S : String; begin F := TFileStream.Create('C:\archivo.xxx', MODO); S := 'Hola'; F.Write(S, Length(S)); F.Free; end; Ejecuto el codigo una vez: Archivo de texto: 'Hola' Ejecuto el codigo dos veces: Archivo de texto: 'HolaHola' Ejecuto el codigo tres veces: Archivo de texto: 'HolaHolaHola' En C++ lo hago con así: Código:
char s[4] = "Hola"; ofstream f("C:\\archivo.xxx", ios::app); f.write((char *)&s, sizeof(s)); f.close(); Saludos dvz |
#2
|
|||
|
|||
Prueba a posicionarte al final del
archivo antes de escribir: Código:
var F : TFileStream; S : String; begin F := TFileStream.Create('C:\archivo.xxx', MODO); try S := 'Hola'; F.Seek(0,soFromEnd); F.Write(S, Length(S)); finally F.Free; end; end; |
|
|
|