Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-10-2003
doverzhoff doverzhoff is offline
Miembro
 
Registrado: ago 2003
Posts: 20
Poder: 0
doverzhoff Va por buen camino
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;
Ya probe con MODO = 'fmCreate', 'fmOpenWrite' y 'fmOpenReadWrite' pero se borra lo que tengo en el archivo cuando vuelvo a ejecutar el codigo, en este ejemplo desearia que pase lo siguiente:
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();
Espero me puedan ayudar.
Saludos

dvz
Responder Con Cita
  #2  
Antiguo 25-10-2003
Mick Mick is offline
Miembro
 
Registrado: may 2003
Posts: 405
Poder: 21
Mick Va por buen camino
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;
Salud2 !!!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:31:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi