![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#4
|
|||
|
|||
|
Hola
Me faltaba esto creo, pero para que funcione cuando esta check: if checkbox1.Checked then Edit1 := No se que poner Edit2 := No se que poner. Por lo que el checkbox queda así: 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); if checkbox1.Checked then Edit1 := aqui no se que poner para que me funcione Edit2 := aqui no se que poner para que me funcione end; En otro form me funciona para leer los edit en un label con un caption: Label1.Caption := name; Y me sale en el label lo puesto en el edit. Pero para que me salga en el edit no se hacerlo. Gracias. |
|
|
|