OpenTool doit être utilisé dans le OnCreate de la Fiche pour relire le fichier écrit par SaveTool à la précédente exécution
Tu dois lire son contenu systématiquement, sachant que la 1ere fois le fichier n'existe pas, il faut donc vérifier son existence avant !
if Tcheckbox1.checked=true then
Je suppose que le T est un mauvais copier coller
sinon = true, ça se simplifie en
if CheckBox1.Checked then
Ensuite, tu devrais renommer Edit1,Edit2,CheckBox1, en edUser, edPassWord, ckbRememberUser, c'est tout de même plus compréhensible
D'ailleurs, c'est de la chance que Edit1,Edit2,CheckBox1 soit exactement les composants que tu as créé, nuxtay doit avoir une boule de cristal ?
il serait bon d'ajouter un else qui supprime le fichier si la case est décochée
Il est dommage d'utiliser du code sans le comprendre, le nom des fonctions OpenTool et SaveTool semble assez logique pourtant !
Dommage que tu n'aies pas chercher à utiliser la solution avec un TIniFile qui est tout de même plus basique !
Une recherche personnelle est plus intéressante que de pomper des fonctions utilisant des mécanismes très spécifique au langage Delphi, lorsque ton prof, te posera la question, seras-tu capable d'expliquer le contenu du fichier (un contenu binaire d'ailleurs) comme dans le sujet .dfm corrompu en XE
Partager