Ver Mensaje Individual
  #3  
Antiguo 12-02-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Hola Gaston, tu código quedaría así
Código Delphi [-]
begin
 AssignFile (Datos, 'C:.\\archivos\MiAgenda1.txt');
 Rewrite (Datos);
 CloseFile (Datos);
 AssignFile (Datos, 'C:.\\archivos\MiAgenda1.txt');
 Append (Datos);
 Writeln (Datos, edit.Text);
 CloseFile (Datos);
 end;

Código Delphi [-]
begin
 agenda1 := TStringList.Create;
 Agenda1.Add(edit.Text);
 agenda1.SaveToFile('C:\archivos\MiAgenda1.txt');
 agenda1.free;
end;

Yo te aconsejo que utilices la segunda forma, el TStringList podrías crearlo en el OnCreate de tu form así cada vez que añadas haces el Add al StringList, puede estar en button solo esa línea y cuando quieras grabar haces el SaveToFile.

Nota.- Para que el codigo te salga bien, es solo añadir entre tu codigo las etiquetas [ delphi] [ /delphi] sin los espacios.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita