Discussion :

[HT]

Dans une boucle qui lit des centaines d'enregistrements, je voudrais qu'un bouton permette de passer d'un enregistrement à l'autre.
J'ai écrit quelque chose comme

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
label attente;
for i:=1 to ex do
begin
 
// corps de la boucle lecture, affichage
 
attente: while bton onclik goto attente;
end; {i}

J'ai joliment planté Delphi et l'ordinateur.
Quelqu'un a plus simple pour faire une pause ?
Merci;

[Bidouille]

Euh il y a l'API Sleep
Cela te permet de faire une pause sans consommer de CPU
8)

[gord's]

Si j'ai bien compris, dans ta boucle tu veux attendre une action utilisateur pour passer à l'enregistrement suivant.

1) creer une form avec juste un bouton 'passer à l'enreg suivant', tu met sa propriété ModalResult à mrOK.

ta procedure devient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure laClasse.ProcQuiLit(parametres);
var
    frm: laFormQueJeTaiIndique;
    // tes autres var
begin
    frm:= laFormQueJeTaiIndique.create(application);
    // ta boucle
    for i := 1 to ex do begin
         // tes lignes de traitement...
         frm.ShowModal;
    end;
    frm.release;
end;

[Pierre Castelain]

Un moyen simple : utilise une variable booléenne qui indique si l'application est en pause ou non, un bouton et son évènement OnClick :

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
 
var
  paused: boolean;
 
procedure Traitement;
var
  i: Integer;
begin
  for i:=1 to ex do 
  begin
    paused:= true;
 
    // Traitement
 
    while paused do
      Application.ProcessMessages;
  end;
end;
 
procedure TMyForm.ButtonClick(Sender: TObject);
begin
  paused:= false;
end;

[HT]

Grand merci à Pierre Castelain pour deux raisons.
1° Il résout mon petit pb.
2° il me rappelle ce que j'avais lu et mal assimilé et peu retenu de l'application.processMessages qui rend la main à Windows.
Donc je révise une leçon oubliée et progresse encore un peu plus dans Delphi.

Merci donc.
Que chacun ici trouve son miel.