checkbox en un form de registro

[gontxalo]

Hola
En un Form de registro, donde tengo dos edit, uno para nombre y otro para contraseña, para que funcione un CheckBox, el cual digo "recordar mi nombre y contraseña", que tengo que hacer?


Es decir que si el checkbox está check, que la próxima vez que se ejecute la aplicación, las cajas edit tengan ya puestos el nombre y contraseña.

Gracias.

[delphi.com.ar]

Simplemente guardar esos datos en algún lugar donde tu aplicación pueda acceder, por ejemplo: Un archivo propietario, un archivo de inicio, el registro de configuraciones de windows.....

[gontxalo]

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

[gontxalo]

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.

[roman]

Empezado por gontxalo

Edit1 := aqui no se que poner para que me funcione

Edit1.Text := name;

es decir, la propiedad de un Edit análoga al Caption de un Label es Text.

Pero creo que hay un error conceptual en tu diseño. No me parece lógico que los datos se lean cuando se hace click en el checkbox "recordar mi nombre y contraseña".

// Saludos

[gontxalo]

Hola Roman.
Me funciona.
Pero el problema que tengo ahora es que si le doy al checkbox me sale lo puesto la última vez, pero al ejecutar la aplicación el checkbox me sale sin checked y los edit vacíos. Y al darle al check se rellenan los edit.

Hay alguna forma de que al ejecutar la aplicación y llamar al form, salgan los edit ya con los datos escritos ?

Si el checkbox le pongo la propiedad de checked true, lo que consigo es que salga check pero no con los edit rellenos.

Gracias