![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
Hola
Los guardo en un txt. Pero luego no se como decirle para que salga en los edit lo guardado en los txt. Como les digo a los edit que lo lea ? En el botón de login tengo puesto: procedure TForm2.Button2Click(Sender: TObject); Var MiRegistro : textfile; MiRegistro2 : textfile; name : string; password : string; begin name := edit1.Text; Password := edit2.Text; AssignFile (MiRegistro,'name.txt'); AssignFile (MiRegistro2,'password.txt'); reWrite (MiRegistro); reWrite (MiRegistro2); writeln(MiRegistro,name); writeln(MiRegistro2,password); CloseFile (MiRegistro); CloseFile (MiRegistro2); end; Y en el checkbox: procedure TForm2.CheckBox1Click(Sender: TObject); var MiRegistro : Textfile; MiRegistro2 : Textfile; name : string; password : string; begin AssignFile (MiRegistro,'name.txt'); AssignFile (MiRegistro2,'password.txt'); Reset (MiRegistro); Reset (MiRegistro2); Read(MiRegistro,name); Read(MiRegistro2,password); CloseFile (MiRegistro); CloseFile (MiRegistro2); Edit1 := aqui no se que poner para que me funcione Edit2 := aqui no se que poner para que me funcione end; Gracias |
|
|
|