Ver Mensaje Individual
  #23  
Antiguo 22-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Lo que hace esa variable (Ruta) es recoger el resultado (en texto) de lo que contiene la Dirección del archivo que usaremos para el archivo.

Seguimos:

Dale doble click al boton CERRAR, te saldra el evento OnClick y ponemos esto:
Código Delphi [-]
Close;

Dale Doble click al boton GUARDAR y colocaremos esto:
Código Delphi [-]
  Ruta:= ExtractFilePath(Application.exename);
  Memo1.Lines.SaveToFile(Ruta + 'Notas.txt');
  Showmessage('Archivo Guardado');
  Memo1.Lines.Clear;
1- Aqui (Ruta:= ExtractFilePath(Application.exename); ) la ruta sera el mismo directorio donde este el programa.
2- Aqui (Memo1.Lines.SaveToFile(Ruta + 'Notas.txt'); ) dice que Salve o guarde las lineas, el contenido del memo dentro del archivo Notas.txt. (asi lo hemos denominado)
3- Aqui (Showmessage('Archivo Guardado'); ) nos muestra un mensaje.
4- Aqui ( Memo1.Lines.Clear; ) nos limpia el memo.


Dale doble click al boton VER y coloca esto:
Código Delphi [-]
 Ruta:= ExtractFilePath(Application.exename);
 Memo1.Lines.LoadFromFile(Ruta + 'Notas.txt');
1- Aqui (Ruta:= ExtractFilePath(Application.exename); ) Nos muestra la ruta de nuestro programa.
2- Aqui (Memo1.Lines.LoadFromFile(Ruta + 'Notas.txt'); ) Recoge los datos del archivo Notas.txt y los muestra en el memo.

Ahora corre el programa, escribe algo en el memo y presiona Guardar, veras que te muestra el mensaje y el memo queda en blanco, si presionas el boton ver podras ver lo que guardaste, lo puedes modificar y volver a guardar y ver.

Espero que esto te enseñe el concepto basico de guardar datos en un archivo.

Espero haber servido de ayuda.
Saludos
__________________
Siempre Novato
Responder Con Cita