Discussion :

[michel71]

Bonjour,

j'ai une boucle "for ... begin end;" dans cette boucle je dois afficher des info et attendre la validation.

Le problème c'est qu'actuellement c'est la dernière information qui s'affiche.
Comment suspendre la boucle à chaque item pour attendre la validation ?

Merci

[qi130]

Un petit bout de code à nous soumettre ?

[michel71]

Voila c'est une petite appli pour gérer les comptes perso et là c'est un module qui récupère des fichiers qui représentent des prélèvements automatiques.
A chaque ouverture d'un compte je vérifie s'il y a des prélèvements à prendre en compte

avec le bout de code ci-dessous je veux afficher les données de chaque fichier de prélèvement et attendre la validation pour effectuer la mise à jour du fichier général

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
29
30
31
32
33
34
35
36
37
38
39
 
procedure prelevement();
var
i:integer;
freq:string;
begin
 
if MessageDlg('Il y a des prélèvements automatiques en attente, voulez vous les mettre à jour '+'?',
       mtConfirmation,[mbYes,mbNo],0)=mrYes
   then
   begin
      compte.Panel38.Visible:=true;
      for i:=1 to nb_prelev do
      begin
       AssignFile(fich_aut,tab_prelev[i]);Reset(fich_aut);
       seek(fich_aut,1);Read(fich_aut,enregauto);
       seek(fich_aut,enregauto.index);Read(fich_aut,enregauto);
       if enregauto.frequence=1 then freq:='Tout les mois';
       if enregauto.frequence=2 then freq:='Tout les 2 mois';
       if enregauto.frequence=3 then freq:='Tout les 3 mois';
       if enregauto.frequence=4 then freq:='Tout les 4 mois';
       if enregauto.frequence=5 then freq:='Tout les 5 mois';
       if enregauto.frequence=6 then freq:='Tout les 6 mois';
       if enregauto.frequence=7 then freq:='Tout les 7 mois';
       if enregauto.frequence=8 then freq:='Tout les 8 mois';
       if enregauto.frequence=9 then freq:='Tout les 9 mois';
       if enregauto.frequence=10 then freq:='Tout les 10 mois';
       if enregauto.frequence=11 then freq:='Tout les 11 mois';
       if enregauto.frequence=12 then freq:='Tout les ans';
       compte.label70.Caption:=enregauto.nom_prelev;
       compte.Label65.Caption:=freq;
       compte.edit11.Text:=CurrToStr(enregauto.montant);
       compte.Label67.Caption:='Le '+IntToStr(enregauto.jour)+' du mois';
       compte.Label76.Caption:=DateToStr(enregauto.date_prelev);
 
 
       end;
   end; // fin de if MessageDlg
end;// fin de procedure;

[Cl@udius]

Salut

Une 1° remarque sur ton code: la série de if (pour définir la variable Freq) peut-être remplacé par un case, comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
      case EnregAuto.Frequence of
        1:
          Freq := 'Tout les mois';
        2..11:
          Freq := Format('Tous les %d mois', [EnregAuto.Frequence]);
        12:
          Freq := 'Tous les ans';
      end;

Ensuite pour rafraichir un Label, un Edit, ... pendant le déroulement d'une procédure/fonction, tu peux appeler la méthode Update de ce contrôle - ou celle de la fiche pour rafraichir d'un coup tous les contrôles.

Code :

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

1
2
 
  Label1.Update;  // Rafraichir le caption du TLabel

A noter que nommer tes labels Label65, Label70, etc n'est pas une bonne habitude. Donne leurs des noms plus explicites, cela facilite la lecture du code et donc sa maintenance.


Ensuite tu dis:

avec le bout de code ci-dessous je veux afficher les données de chaque fichier de prélèvement et attendre la validation pour effectuer la mise à jour du fichier général

Je ne vois aucun traitement de validation ou quelque chose du genre. Tu passes en revue ton fichier de prélèvement, mets à jour ton interface mais rien de plus.
Ton code présenté est entier ?

@+ Claudius

[michel71]

Bonsoir,

merci pour les remarques je vais en tenir compte.
Le rafraichissement des labels n'ai pas vraiment mon problème, enfin je pense.

Le traitement doit se faire dans ce panel


Ce qui implique que j'affiche dans mon panel les données du premier fichier rencontré dans la boucle "FOR" je valide ou pas (le traitement se faisant dans la procédure du bouton OK (pour l'instant je n'ai rien écrit). Puis j'affiche les données du second fichier je valide ou pas et ainsi de suite. il faut donc que j'ai un moyen de mettre la boucle "FOR" en pause entre chaque affichage et validation

[qi130]

L'architecture du traitement semble prendre en travers la programmation événementielle

Comment est appelée la proc prelevement ?
Le screen-shot fourni est le panel38 ?

[michel71]

Effectivement je crois que je suis parti dans une mauvaise direction.
Désolé pour le dérangement.
Merci