modification des variables sur fichier ini
bonjour;
je suis entrain de developper une application dont j'utilise un fichier ini pour sauvegarder le changement du mot de passe.
et quand j'ouvr le fichier ini le variable pass(mot de passe) ne change pas.
voici mon code:
por le changement du mot de passe.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure Tchange.validerClick(Sender: TObject);
var
fichier:tinifile;
begin
if edit1.Text=edit2.text then
begin
fichier:=tinifile.Create('c:\windows\motdepasse.ini');
fichier.WriteString('preference','pass',edit1.text);
fichier.Free;
motdepasse.show;
close;
end else
showmessage('le mot de passe ne correspond pas à la confirmation.');
end; |
pour la lecture du mot de passe depuis edit2.text
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| procedure Tmotdepasse.validerClick(Sender: TObject);
var
fichier:tinifile;
motdepasse:string;
begin
Fichier:=TIniFile.Create('c:\windows\motdepass.ini');
motdepasse:=fichier.readstring('preference','pass',edit2.text);
fichier.Free;
if edit2.Text=motdepasse then
begin
menuprincipal.show;
self.Hide;
end
else
showmessage('mot de passe incorrecte');
end; |
