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

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

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
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.