Discussion :

[zodiak66]

Bonjour tout le monde,

Je travaille sur une petite application sous Delphi XE. Une application qui utilise un nombre important de Tedit
je veux savoir comment puis-je garder les valeurs que l'utilisateur doit saisir dans les Tedit et les TchechBox avant la fermeture , cette operation s'active s'il clique sur TmenuMain Enregistrer

[Rayek]

Important comment ?

Le plus simple reste l'utilisation d'un ou plusieurs fichiers ini

[zodiak66]

utilisation Fichier ini Ta réponse est trop vaste, pour le nombre important de tedit c'est pas un problème, la solution est la même pour un seul ou plusieurs donc s'il te plait précise moi comment dois-je faire pour résoudre mon problème

[tourlourou]

crée 2 sections dans un fichier ini : [Edit] et [Check]
dans la section Edit, ajoute autant de clefs que de TEdit : clef=valeur
où clef = nom du TEdit
et valeur = Text de l'Edit
fais de même pour les CheckBoxes

[Rayek]

Tu parcours ta liste de composants et tu sauves la paire cle (nom du composant) valeur (text/check) dans le fichier ini

[edit]
Grillé

[nuxtay]

Salut,
Fichier ini ou en utilisant TFileStream,WriteComponent,ReadComponent...
Avec un petit tableau de component par exemple...(pas tester)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//Enregistrement des composants
procedure SaveTool(DirFile: string; Components: array of TComponent);
var
  FileStream : TFileStream;
  I : Integer;
begin
  FileStream:=TFileStream.Create(DirFile, fmCreate);
  try
    for I := Low(Components) to High(Components) do
      FileStream.WriteComponent(Components[I]);
  finally
    FileStream.Free;
  end;
end;
//Ouverture des composants
procedure OpenTool(DirFile: string; Components: array of TComponent);
var
  FileStream : TFileStream;
  I : Integer;
begin
  FileStream:=TFileStream.Create(DirFile, fmOpenRead);
  try
    for I := Low(Components) to High(Components) do
      FileStream.ReadComponent(Components[I]);
  finally
    FileStream.Free;
  end;
end;

@+

[Rayek]

Salut,
Fichier ini ou en utilisant TFileStream,WriteComponent,ReadComponent...
Avec un petit tableau de component par exemple...(pas tester)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//Enregistrement des composants
procedure SaveTool(DirFile: string; Components: array of TComponent);
var
  FileStream : TFileStream;
  I : Integer;
begin
  FileStream:=TFileStream.Create(DirFile, fmCreate);
  try
    for I := Low(Components) to High(Components) do
      FileStream.WriteComponent(Components[I]);
  finally
    FileStream.Free;
  end;
end;
//Ouverture des composants
procedure OpenTool(DirFile: string; Components: array of TComponent);
var
  FileStream : TFileStream;
  I : Integer;
begin
  FileStream:=TFileStream.Create(DirFile, fmOpenRead);
  try
    for I := Low(Components) to High(Components) do
      FileStream.ReadComponent(Components[I]);
  finally
    FileStream.Free;
  end;
end;

@+

Et si on change l'ordre des composants c'est un gros risque de passer par ta méthode

[nuxtay]

Salut,
Si on change l'ordre des composants ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SaveTool('C:\Utilisateur1',[Edit1,Edit2,CheckBox1]);

Où y a-t-il des risques d'ordre, je ne comprend pas vraiment le problème...
Le chargement ou la sauvegarde ce fait en fonction du name qui est fixe...
@+

[Rayek]

Salut,
Si on change l'ordre des composants ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SaveTool('C:\Utilisateur1',[Edit1,Edit2,CheckBox1]);

Où y a-t-il des risques d'ordre, je ne comprend pas vraiment le problème...
Le chargement ou la sauvegarde ce fait en fonction du name qui est fixe...
@+

Vu qu'il indique qu'il a un nombre important de TEdit et Tcheckbox (pas 3 comme dans ton exemple)
Je suppose qu'il sera obligé de faire une boucle sur la liste des composants.
Le problème se trouvera lors de la récupération des données du FileStream, qui ne seront pas les informations du bon composants, car quand tu fais un couper/coller de composant, cela change l'ordre dans la liste de création et donc aussi l'ordre dans une boucle que la liste de composants.

Donc je dis de faire attention à ta méthode qui peut comporter un rique.

[zodiak66]

Merci beaucoup pour vos utiles et nombreuses réponses
pouvez vous essayer de me faire une petite démonstration à travers un appel à vos procédure parce que je l'ai essayé pour deux Tedit mais ça n'a pas marché


Merci

[ShaiLeTroll]

Montre-nous plutôt ce que tu as déjà tenté, nous essayerons de voir où sont tes erreurs !
tu ne comptes pas sur nous pour faire ton devoir !?

[zodiak66]

Bonjour
D'abord je vous cite un exemple que je veux réaliser vous voyez ci-dessus le Tcheckbox de souvenir de moi


je veux que si ce Tcheckbox est enfoncé les information saisies dans tedit 1 et 2 seront sauvegardées jusqu'à la prochaine ouverture de l'application
voilà j'ai commence par définir la procédure dont vous m'avez communiqué comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Enregistrement des composants
procedure SaveTool(DirFile: string; Components: array of TComponent);
var
  FileStream : TFileStream;
  I : Integer;
begin
  FileStream:=TFileStream.Create(DirFile, fmCreate);
  try
    for I := Low(Components) to High(Components) do
      FileStream.WriteComponent(Components[I]);
  finally
    FileStream.Free;
  end;
end;

ensuite j'ai fais l'appel de la manière suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if Tcheckbox1.checked=true then
 SaveTool('C:\Utilisateur1',[Edit1,Edit2,CheckBox1]);

Disant que j n'ai pas compris l'utilité de la deuxième procédure qu'est
Ouverture des composants

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Ouverture des composants
procedure OpenTool(DirFile: string; Components: array of TComponent);
var
  FileStream : TFileStream;
  I : Integer;
begin
  FileStream:=TFileStream.Create(DirFile, fmOpenRead);
  try
    for I := Low(Components) to High(Components) do
      FileStream.ReadComponent(Components[I]);
  finally
    FileStream.Free;
  end;
end;

Expliquez moi doucement comment dois-je faire pour réaliser ce que je souhaite

Merci

[ShaiLeTroll]

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 !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Tcheckbox1.checked=true then

Je suppose que le T est un mauvais copier coller
sinon = true, ça se simplifie en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Paul TOTH]

au lancement (OnCreate) tu regardes s'il existe un fichier C:\Utilisateur1 et tu le charges avec OpenTool() !

[zodiak66]

Dommage ! Vos réponses ne sont pas efficaces
c'est vous qui a proposer ces procédures et vous me juger de les avoir utiliser
vous parler beaucoup sans rien
Si je suis ici c'est parce que je suis très faible en Delphi j'ai besoin de votre aide.
ça s'appelle l'apprentissage par l'exemple !!
vous êtes vraiment entrain de me décourager

Bye Merci quand Même @+

[nuxtay]

Salut,
@Rayek : Ok je vois où tu veux en venir avec mon exemple
@ShaiLeTroll : non j'ai pas de boule de cristal, mais une bonne intuition, j'ai hésité
donc si j'avais marqué un style de nom standard, il aurait peut-être pas compris...
@Zodiak66 : le code que j'ai fourni été dans l'inspiration, mais vu ton niveau il vaudrait peut-être mieux passer par les fichiers ini !
Tu as de l'aide ici FichierIni
Fait un petit morceau de code avec les fichiers ini et nous pourrons te guider sur des solutions si tu as des problèmes.
En gros ton fichier ini devrait ressembler à ça :
[Utilisateur1]
Edit2 = MotDePasse
CheckBox1 = 1
[Utilisateur2]
...
Sache que personne ne te donnera de code complet, le morceau de code que j'ai fourni été un exemple, dont le but était de te fournir une nouvelle piste pour ton projet.
Ensuite à toi de choisir la piste la plus adapter.
Ah oui, pour info, SaveTool va à la fermeture de la fenêtre et OpenTool va à la création de la fenêtre, mais passe par les fichiers ini, qui sera beaucoup plus standard dans ton cas...
Bon courage.
@+

[Andnotor]

WriteComponent et ReadComponent ne sont pas du tout adaptés à ce type d'utilisation !

WriteComponent sauvegarde toutes les propriétés différentes des valeurs par défaut : texte, mais aussi position, taille, etc. Retravailler la fiche devient totalement impossible puisque ces données seront systématiquement réinitialisées avec le contenu du fichier chargé

@Zodiak66: J'attire juste ton attention sur l'intitulé du site : Developpez.com, Club des professionnels de l'informatique. Tu est bien sûr le bienvenu pour poser des questions et nous ferons notre possible pour y répondre. Rayek t'a donné immédiatement une réponse concrète. As-tu pris le temps de faire quelques recherches avant de répondre bizarrement : Ta réponse est trop vaste ? ou attends-tu simplement qu'on fasse ton boulot

l'apprentissage par l'exemple

La section Tutoriels est bourrées d'exemples. A toi de trouver ceux qui correspondent à tes besoins