Ver Mensaje Individual
  #5  
Antiguo 01-07-2005
mangel mangel is offline
Registrado
 
Registrado: dic 2003
Ubicación: Mexico
Posts: 8
Reputación: 0
mangel Va por buen camino
No lo sobre-escribe

Cita:
Empezado por marcoszorrilla
Para crear un fichero y sobreescribirlo si ya existía con esto es suficiente:
Código Delphi [-]
   procedure TForm1.Button1Click(Sender: TObject);
   var F: TextFile;
   begin
     AssignFile(F, 'd:\pruebas\MiFichero.txt');
     Rewrite(F);
     Writeln(F, 'Creo un fichero y borro el contenido del anterior si existe...');
     CloseFile(F);
   
   end;

Un Saludo.

Gracias por la ayuda.
Realice los cambios que me sugeriste sin embargo creo que no me explique bien por lo cual les pido una disculpa, lo que quiero es que si mi archivo ya tiene grabado algo y quiero guardar mas información esta nueva información quede hasta abajo escrita y asi sucesivamente.

Quiero que mi archivo se vea mas o menos de la siguiente manera:

Escritura 1
Escritura 2
Escritura 3
Escritura N Donde cada escritura puede ser en una tiempo diferente, no necesariamente en el mismo instante.

Gracias por su ayuda.
Responder Con Cita