Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda kn este programa :S (https://www.clubdelphi.com/foros/showthread.php?t=71993)

Caral 22-01-2011 21:38:36

Hola
Vamos a crear una variable local para que nos de la ruta del archivo que vamos a tener:
En el Unit (la zona Blanca) veremos que existe esto:
Código Delphi [-]
var
  Form1: TForm1;

implementation

Simplemente colocaremos la variable ahi mismo, quedara asi:
La nombraremos Ruta:
Código Delphi [-]
var
  Form1: TForm1;
  Ruta: String;

implementation

Me sigues?
Saludos

llSnakell 22-01-2011 21:49:37

ok listo !!
String es una cadena que sirve para recibir los resultados ??
o algo parecido ???
es lo que entiendo yo !!
dale

Caral 22-01-2011 22:05:57

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

Caral 22-01-2011 22:10:13

Hola
Aqui esta el codigo por si tienes alguna duda.
Saludos

llSnakell 22-01-2011 22:11:55

okas !! muchas gracias !!
espero que me sigas ayudando =)
bye

llSnakell 22-01-2011 23:58:52

no hay una manera de que cada cosa que se escriba se vaya guardando en block de notas diferentes ??? y si se puede como puedo hacerlo ????
plis !!

Caral 23-01-2011 03:10:56

Hola
Casi todo se puede hacer.
1- colocamos un listbox.
Con este veremos la lista de los archivos creados.
Con solo darle click nos mostrara el contenido en el memo.

2- Colocamos dos botones.
2-A- El boton para crear el archivo.
Con este boton se cargara la lista de archivos creados en el memo y se podra escribir el nombre del nuevo archivo a crear (con extension txt).
Una vez que se escriba el nombre se presiona el boton Guardar Nuevo Nombre.

3- El boton Guardar Nuevo nombre, guardara el nombre y borrara el memo.

4- Una vez creado estara en el listbox, al seleccionarlo se podra escribir en el y guardar el contenido con el boton guardar.
Si no se guarda, no se crea el archivo, simplemente se ha creado el nombre.

Como veras es muy sencillo.
Aqui os dejo el ejemplo para que lo veais.
Saludos

Ñuño Martínez 23-01-2011 12:31:43

Pedazo ejemplo os habéis currado...

Caral: quizá debas escribirlo en un documento (TXT, ODT, HTML...) y publicarlo.

Caral 23-01-2011 14:11:00

Hola
Me parece demasiado básico y sencillo.
Simplemente se hizo para ayudar a llSnakell.
Tal vez a alguien mas le sirva este hilo, no lo se, el tiempo lo dira.
Saludos

llSnakell 23-01-2011 19:43:25

caral eres una muy buena profesora espero que me sigas ayudando
he aprendido mucho estos dos dias gracias a ti :)
muy agradecido :)

Caral 23-01-2011 19:47:18

Hola
Bueno, no creo que sea buen PROFESOR.
Mucho menos que sepa de esto, pero gracias de todos modos.
Saludos

llSnakell 23-01-2011 20:04:54

Al guardar lo escrito en el documento text al elegir en cual deseo guardar
me aparece un error
en el progarama que tu hiciste :S
por que ???

Caral 23-01-2011 20:12:02

Hola
No traje la bola de cristal amigo.
Si no dices que error te da es algo dificil saberlo.
Saludos
PD: Sigue los pasos como indique en el post donde esta el ejemplo.

llSnakell 23-01-2011 21:55:51

para que sirve el tpanel ???? como lo puedo dejar debajo de los button y de los
label ???
cual es su funcion ??
gracias
saludos

Caral 23-01-2011 22:10:48

Hola
El Planel esta de adorno, me gusto asi.
No tiene ninguna funcion, pero podria tenerla si se quisiera.
Saludos

llSnakell 23-01-2011 23:01:25

Caral mira sabes que toi repitiendo el ejercicio para ir aprendiendo terminos
y todo eso !!
pero mira escribo los codigos de un boton y aparece un error en implementation
por que ??
tengo que terminar todo el programa para hacerlo correr ??
yo lo hago correr por boton para ir viendo los errores :S

como adjunto archivos ???
nno puedo :S

llSnakell 23-01-2011 23:02:34

en el boton de guardar datos :S
pero aparece error en implementation :S
que hago !!

Delphius 23-01-2011 23:17:13

llSnakell,
Tomate la molestia de escribir el error textual que te arroja. No somos adivinos, explícate apropiadamente. En vista a que eres nuevo y con el fin de evitar más problemas te aconsejo que leas la guía de estilo.

Copia y pega el código que tienes y de allí podemos ver donde esta el problema y como solucionarlo. Y ya que estamos, de pasada, ¿te puedo aconsejar algo? En CD hay mucho material teórico y práctico... en el FTP del Club puedes encontrar mucho material; el que más te hace falta leer (te lo digo casi como lectura obligada) es La Cara Oculta de Delphi.

Saludos,

Neftali [Germán.Estévez] 24-01-2011 10:54:58

Te recomiendo el libro "La cara oculta de Delphi". Es de lo mejorcito que hay para empezar (además de ir preguntando por aquí ;)).


La franja horaria es GMT +2. Ahora son las 16:01:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi