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