Petite question algorithmique

Version imprimable

Bonjour à tous, j'ai une petite question algorithmique:

j'ai actuellement l'algorithme suivant sur une première Form nommée PageControl :

Code:

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
40
41
42
43
44
45
46
47
 
begin
 
      i:=9;
      bool:=false;
      Dossier:=XLWorksheet.range['A'+inttostr(i)];
      if (Dossier<>'') then bool:=true;
 
        nbre_iterations:=0;
        while (bool=true) do
 
           begin
 
              //Lire la valeur d'une cellule de ref
              refRange:= 'A'+inttostr(i);
              Cellrefverif:= XLWorksheet.range[refRange];
              if (Cellrefverif<>'') then
                  begin
                     nbre_iterations:=nbre_iterations+1;
                     i:=i+1;
                     bool:=true;
                       ADOQueryVerifRefDossier.Close;
                       ADOQueryVerifRefDossier.Parameters[0].Value:=Cellrefverif;
                       ADOQueryVerifRefDossier.Open;
                       Ref_exist:=ADOQueryVerifRefDossierExpr1000.Value;
                       if (Ref_exist=0) then
                          begin
                            RefDossier:=Cellrefverif;
                            ConfirmDossier.TransmetRefDossier(RefDossier);
                            ConfirmDossier.show;
                            TraitementAFaire:=False;
                          end
                       else
                          begin
                            TraitementAFaire:=True;
                          end;
                  end
              else bool:=false;
 
           end;
 
  if (TraitementAFaire=true) then
 
      begin
          showmessage('Algo Ok !!!');
      end;
end;

Ne passez pas de temps à essayer de le décoder, cela ne m'aidera en rien, en réalité j'ai une boucle while qui effectue un certain nombre de traitements. Parmi ces traitements il y a en particulier une vérification qui est effectuée et qui ouvre une nouvelle fenêtre (if (Ref_exist=0) then ConfirmDossier.show; )

Dans cette fenêtre nommée ConfirmDossier Deux boutons : oui et non.
Je voudrai que lorsque je clique sur oui, la boucle while de ma première fenêtre (PageControl) soit traitée à nouveau et que lorsque je clique sur non dans ma deuxième fenêtre, le code de ma première fenêtre soit abandonné.

Je sais pas si j'ai été suffisament clair, mais si quelqu'un a une solution elle est la bienvenue, merci.

25/07/2006, 15h55
RodEpsi

je suis pas sûr ke ma question et mon explication soit très claire donc pour faire bcp plus simple :

est-il possible d'avoir une condition sur une première form1 du style :
Si le bouton 1 de la form2 a été cliqué alors faire ceci...
et Si le bouton 2 de la form2 a été cliqué alors faire cela...

Mets ton code en te servant des Balises 'Code'
De surcroit, ne met pas tout ton code, surtout si c'est pour dire, 'ne le déchiffrez pas' 8O

Mets juste un algo dans ce cas.

J'ai pas compris grand chose, mais cela semble etre un truc avec 2 boucles
Code:

1 2 3 4 5 6 7 8 9 10 11 12 OK := True; While OK do while BouclePrincipaleOK do begin ... if OuvreFenetre then begin if Reponse = NON then BOK := False; Break; end; ... end;

Citation:
Envoyé par TicTacToe
De surcroit, ne met pas tout ton code, surtout si c'est pour dire, 'ne le déchiffrez pas' 8O

Mets juste un algo dans ce cas.

J'ai pas compris grand chose, mais cela semble etre un truc avec 2 boucles
Code:

1 2 3 4 5 6 7 8 9 10 11 12 OK := True; While OK do while BouclePrincipaleOK do begin ... if OuvreFenetre then begin if Reponse = NON then BOK := False; Break; end; ... end;
Premièrement je n'ai pas mis tout mon code, j'ai simplement mis la portion d'algo sur laquelle porte ma question, elle est à titre d'info et deuxièmement ma question porte justement sur :

Code:

if Reponse = NON then BOK := False;

. NON est un bouton se trouvant sur une autre fenêtre, comment indiquer si on a cliqué sur ce bouton ou non y'a-t-il une propriété genre Form2.Bouton1.click=true de sorte que je puisse mettre la condition if Form2.Bouton1.click=true then... ?

25/07/2006, 16h41
kirua2150
salut
j'ai peut-être une solution à ton problème.

Tu peux déclarer un boolean "AClicke" dans la partie public de ta form "confirmdossier", que tu initialise à false.
Puis dans dans l'événement "onclik" du bouton de la "confirmdossier" tu mets
"AClicke" à true.

Ensuite dans le code de la form 1 tu mets :
Code:

1 2 if ((ConfirmDossier.Aclicke) and...
Bon je sais pas si c'est très propre et si ca marche dans ton cas, mais je procède souvent comme ça pour récupérer des valeur d'une fenêtre à l'autre.
25/07/2006, 16h47
RodEpsi

Bon je vais essayer comme ça, je te remercie et je te tiens au courant.

salut

met ta forme en showmodal
attribue des valeur a tes bouton mrok ou mrcancel
exemple :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TMaform.BBtnOkClick(Sender: TObject); begin ModalResult := mrOK; end; procedure TMaform.BBtncancelClick(Sender: TObject); begin ModalResult := mrCancel; end;
@+ Phil

25/07/2006, 18h40
OutOfRange

Salut
Si ta seconde form ne comprend que 2 boutons 'OUI' et 'NON',
Delphi offre une solution avec MessageDlg

Mais ça paraît un peu trop simple :fou:

Doit y'avoir aut' chose :?