Añadir Informacion en archivos

[muppett]

Hola q tal, me surge una pequeña dificultad. Estoy creando un archivo y necesito que me guarde la informacion cada que doy un clic tengo e sig codigo

Código Delphi [-]
var
f1:textfile;
begin
AssignFile(F1,'c:\ejemplo.txt' );
Rewrite(F1);
Writeln(F1, edit1.text);
Writeln(F1, edit2.text);
CloseFile(F1);
Append(F1);
Reset(F1)





Pero marca error de tipo I/O 32. Me podrian decir que me falta o en q estoy mal

[jachguate]

En que línea ocurre el error??

Veo que Append y Reset están de mas... quitalas.

Un saludo.

[muppett]

Gracias x su ayuda ya resolvi el problema

Código Delphi [-]
var
  f: TextFile;
  begin                    { open a text file }
    AssignFile(f, 'c:\a.txt');
    Append(f);
    Writeln(f,edit1.text);
    Flush(f);  { ensures that the text was actually written to file }
    CloseFile(f);
  end;

este es el codigo correcto x si a alguien le sirve

[ixMike]

Me parece que necesitas leerte la ayuda de las funciones AssignFile, Reset, Rewrite, Append, Write, Read, WriteLn, ReadLn y CloseFile (¿me dejo alguna?)


Salu2

[[duilioisola]]

(¿me dejo alguna?)

Quizás Flush

[Nomad]

Empezado por muppett

Hola q tal, me surge una pequeña dificultad. Estoy creando un archivo y necesito que me guarde la informacion cada que doy un clic tengo e sig codigo

Código Delphi [-]
var
f1:textfile;
begin
AssignFile(F1,'c:\ejemplo.txt' );
Rewrite(F1);
Writeln(F1, edit1.text);
Writeln(F1, edit2.text);
CloseFile(F1);
Append(F1);
Reset(F1)





Pero marca error de tipo I/O 32. Me podrian decir que me falta o en q estoy mal

Pues obvio

Estas haciendole un append y un reset despues de cerrar el archivo.

[muppett]

Les agradesco mucho su ayuda, ya esta resuelto este problemon