|
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.
|