Sobre Escribir un archivo de texto

[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.

[mangel]

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.

[roman]

Empezado por mangel

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

Entonces no es ni Reset ni Rewrite sino Append.

// Saludos

[mangel]

Pongo la solucion de mi probleme por si tal vez alguien, en algun lugar.......

Código Delphi [-]
  AssignFile(F,'C:\NoAjuste.txt');  
  Append(F); 
  Writeln(F,lp,clave);
  CloseFile(F);

Gracias por su valioso tiempo y ayuda.

[diego bohorquez]

muchas gracias por tomarte el tiempo de escribir y compartir tu solucion pues a mi me sirvio de maravilla

muchas gracias