Interruption de l'exécution

Version imprimable

Bonjour
voici le code initial

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
procedure TFormSDFTest.BtOKClick(Sender: TObject);
 
var
   MySDF: SDFmini;
   MyMol,lne: TStringList;
   NAtom,NBond: integer;
   i,j, a, lidx,Aidx: Integer;
   somme,dxA,dyA,dxB,dyB,dx,dy, vx ,vy: double;
   ix,iy, IxT, iyT : integer;
   MyFPMol: TMolecule;
   PAt: PRAtom;
   PBd: PRBond;
   mdl: TCFR;
   frg: LRDsc;
   ddx : double;
   //
   w: TArcCost;
   s,t,lgth: Node;
   v: TNodeCost;
   p,pth: TNodeInfo;
   frgstr: string;
   aid: AtomID;
   bid: BondID;
   pdsc: PRDsc;
   CMax, dxmin, dxmax, dymin, dymax: double;
   xg , yg, alphax, alphay, alpha : double ;
   mox, moy: double;
   cliquez :Integer;
 
 
begin
 
 
 
   (*  MySDF:=SDFmini.Create(EditSDFfile.Text);*)
 
     MySDF:=SDFCret(EditSDFfile);
     //MyFPMol:=TMolecule.Create;
     MyFPMol:=MyFP();
     lne:=lne2(w);
 
 
     //Lecture dule ISIDA
 
     mdl:=mdlCret(EditISIDAfile);
     frg:=frg2(mdl);
 
     Refresh1.Enabled:=true;
repeat
          MyMol:=suivantsdf(MySDF,MyFPMol);
         lne.DelimitedText:=MyMol[3];
         lne.Clear;
           stockage(MyFPMol,MyMol,lne);
          initpoidsliaison(MyFPMol);
 
 
 
              MyFPMol :=miseenforme(MyFPMol, PaintBox1);
              affichagesymbole(MyFPMol, PaintBox1);
 
              extractpaths(MyFPMol,frg);
 
 
 
 
          tracageliaison(MyFPMol, PaintBox1);
 
 
           MyFPMol.Clear;
until (MySDF.fend)
 
liberer(MySDF,lne,MyFPMol, mdl);
 
end;

Je cherche à remplacer mon repeat par un bouton suivant qui donc me lirai pas à pas le contenu de la boucle "repeat".
J'ai creer un bouton suivant avec l'action OnClick et j'ai copier le contenu de repeat dedans de ce type

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
TApplication.HandleException Access violation
  Stack trace:
  $082924B3  SDFMINI__NEXTTMOL,  line 61 of basicsdf.pas
  $08089A1D  TFORMSDFTEST__SUIVANTSDF,  line 194 of unitsdftest.pas
  $08089C6E  TFORMSDFTEST__SUIVANTCLICK,  line 326 of unitsdftest.pas
  $081773A4  TCONTROL__CLICK,  line 2227 of ./include/control.inc
  $081B82FF  TBUTTONCONTROL__CLICK,  line 72 of ./include/buttoncontrol.inc
  $081B88E5  TCUSTOMBUTTON__CLICK,  line 164 of ./include/buttons.inc
  $081B8E41  TBUTTON__CLICK,  line 331 of ./include/buttons.inc
  $081B819A  TBUTTONCONTROL__WMDEFAULTCLICKED,  line 26 of ./include/buttoncontrol.inc
  $08069879
  $0816DA82  TWINCONTROL__WNDPROC,  line 4920 of ./include/wincontrol.inc
  $081F3617  DELIVERMESSAGE,  line 111 of lclmessageglue.pas
  $08287100  GTK2WSBUTTON_CLICKED,  line 1853 of gtk2wsstdctrls.pp
  $00FCE9FC
  $00FC1072
  $00FD67A8
  $00FD7B2D
  $00FD7FB6

:calim2::calim2::calim2:

Bref ici n'est pas la question
En gros ca marche pas...
J'ai penser utiliser une interruption avec ce code la

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
procedure TFormSDFTest.BtOKClick(Sender: TObject);
 
var
   MySDF: SDFmini;
   MyMol,lne: TStringList;
   NAtom,NBond: integer;
   i,j, a, lidx,Aidx: Integer;
   somme,dxA,dyA,dxB,dyB,dx,dy, vx ,vy: double;
   ix,iy, IxT, iyT : integer;
   MyFPMol: TMolecule;
   PAt: PRAtom;
   PBd: PRBond;
   mdl: TCFR;
   frg: LRDsc;
   ddx : double;
   //
   w: TArcCost;
   s,t,lgth: Node;
   v: TNodeCost;
   p,pth: TNodeInfo;
   frgstr: string;
   aid: AtomID;
   bid: BondID;
   pdsc: PRDsc;
   CMax, dxmin, dxmax, dymin, dymax: double;
   xg , yg, alphax, alphay, alpha : double ;
   mox, moy: double;
   cliquez :Integer;
 
 
begin
 
 
 
   (*  MySDF:=SDFmini.Create(EditSDFfile.Text);*)
 
     MySDF:=SDFCret(EditSDFfile);
     //MyFPMol:=TMolecule.Create;
     MyFPMol:=MyFP();
     lne:=lne2(w);
 
 
     //Lecture dule ISIDA
 
     mdl:=mdlCret(EditISIDAfile);
     frg:=frg2(mdl);
 
     Refresh1.Enabled:=true;
repeat
          MyMol:=suivantsdf(MySDF,MyFPMol);
         lne.DelimitedText:=MyMol[3];
         lne.Clear;
           stockage(MyFPMol,MyMol,lne);
          initpoidsliaison(MyFPMol);
 
 
 
              MyFPMol :=miseenforme(MyFPMol, PaintBox1);
              affichagesymbole(MyFPMol, PaintBox1);
 
              extractpaths(MyFPMol,frg);
 
 
 
 
          tracageliaison(MyFPMol, PaintBox1);
 
 
           MyFPMol.Clear;
 Suivant.tag :=0
 repeat
 until( Suivant.tag :=1)
until (MySDF.fend)
 
liberer(MySDF,lne,MyFPMol, mdl);
 
end;

avec une procédure de Suivant.tag à 1 lors du click
Je rentre dans la boucle mais je ne ressort jamais.
Je bloque je n'ai pas d'autre solution.
A savoir que sans la boucle repeat, il me lit 1 fois le code (normal :P)

J'avais penser bloquer chaque repeat par une

Code:

1
2
Application.ProcessMessages;
           ShowMessage('Clickez pour continuer');

Mais la méthode n'est la bonne

21/02/2010, 11h31
winow
sous BCB6 il y avait la fonction Sleep

Pause d'une seconde:
Code:

1 2 Sleep(1000);
peut que sous lazarus ca marche aussi ?
A+
21/02/2010, 12h09
cedric190985

La commande existe merci et permet de bloquer le repeat
mais je ne rentre pas dans ma boucle à nouveau lors d'un clic bouton

J'ai peut etre une idée
je mettrai sleep a la fin de ma fonction (juste avant le until) avec une valeur très grande (genre 2h)
et je voudrai alors creer un bouton suivant qui lorsque je cliquerai dessus changerai la valeur du sleep à 500 par exemple..

Par contre je ne vois pas comment programme la chose

Bonjour,

Je n'ai peut-être pas compris la question (un peu feignant le dimanche et pis votre code vous êtes dedans... et moi vraiment pas). Enfin si le sujet est de sortir le repeat contenu dans le bouton et faire un repeat dont chaque étape sera déclenchée par un click sur un autre bouton, je ferais ainsi :
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 var Form1: TForm1; iLoc : integer; iMax : integer; implementation { Repeat dans le button------------------------------------------------ } procedure TForm1.ButtonRepeatINbuttonClick(Sender: TObject); var iLoc : integer; iMax : integer; begin iMax:= 10; iLoc:= 0; repeat //--Deb la procédure à effectuer Showmessage(IntToStr(iLoc)); //--Fin la procédure à effectuer inc(iLoc); until iLoc=iMax; end; { Repeat dans le button------------------------------------------------ } { Repeat hors du button------------------------------------------------ } procedure TForm1.FormCreate(Sender: TObject); begin iLoc:= 0; iMax:= 10; end; procedure TForm1.ButtonRepeatOUTbuttonClick(Sender: TObject); begin if iLoc<iMax then begin //--Deb la procédure à effectuer Showmessage(IntToStr(iLoc)); //--Fin la procédure à effectuer inc(iLoc); end; end; { Repeat hors du button------------------------------------------------ }
Une fois arrivée à la fin de la boucle, on peut ajouter un bouton de réinitialisation [iLoc:= 0;] et même avec un autre bouton parcourir dans le sens inverse [dec(iLoc);].

Cordialement. Gilles

22/02/2010, 09h19
batyann811
Ce n'est pas en interrompant ta boucle repeat que tu pourras faire ce que tu veux faire. Il te faut voir les choses différemment.

Si j'ai bien compris (ce qui n'est pas simple car ton code n'est pas commenté) ton but est d'afficher des molécules une par une avec des boutons suivant et précédent pour changer de molécule.

Pour la suite de mon explication je vais considérer qu'une molécule est une chaine de caractère.

Tout d'abord il te faut un moyen de mémoriser la molécule en cours de visualisation. Tu commences donc par déclarer un champ MolCourante dans ta fenêtre.
Code:

1 2 3 4 5 6 TForm1 = class ...... private MolCourante : String;
Tu initialises ce champ dans l'évènement OnCreate de ta fenetre par un truc du genre :

Code:

MolCourante:=PremiereMolecule;

Tu dois ensuite t'arranger pour que ta fenêtre affiche la molécule courante. Le plus simple pour cela est de déposer un Panel sur ta fiche et de dessiner MolCourante dans l'évènement OnPaint du Panel.

Il ne te reste plus qu'à ajouter les boutons 'suivant' et 'précédent' sur la fiche puis à redéfinir l'évènement OnClick de tes boutons pour qu'il te permettes de passer à la molécule suivante ou précédente.

Code:

MolCourante:=MoleculeSuivante(MolCourante);

ou

Code:

MolCourante:=MoleculePrecedente(MolCourante);

Voilà en gros le principe. Tu peux ensuite améliorer les choses en grisant les boutons 'suivant' et 'précédent' quand tu es au début ou à la fin de ta liste de molécules.
22/02/2010, 14h13
mick605
Citation:
Envoyé par batyann811

Ce n'est pas en interrompant ta boucle repeat que tu pourras faire ce que tu veux faire. Il te faut voir les choses différemment.

Si j'ai bien compris (ce qui n'est pas simple car ton code n'est pas commenté) ton but est d'afficher des molécules une par une avec des boutons suivant et précédent pour changer de molécule.

Pour la suite de mon explication je vais considérer qu'une molécule est une chaine de caractère.

Tout d'abord il te faut un moyen de mémoriser la molécule en cours de visualisation. Tu commences donc par déclarer un champ MolCourante dans ta fenêtre.

Code:

1 2 3 4 5 6 TForm1 = class ...... private MolCourante : String;

Tu initialises ce champ dans l'évènement OnCreate de ta fenetre par un truc du genre :

Code:

MolCourante:=PremiereMolecule;

Tu dois ensuite t'arranger pour que ta fenêtre affiche la molécule courante. Le plus simple pour cela est de déposer un Panel sur ta fiche et de dessiner MolCourante dans l'évènement OnPaint du Panel.

Il ne te reste plus qu'à ajouter les boutons 'suivant' et 'précédent' sur la fiche puis à redéfinir l'évènement OnClick de tes boutons pour qu'il te permettes de passer à la molécule suivante ou précédente.

Code:

MolCourante:=MoleculeSuivante(MolCourante);

ou

Code:

MolCourante:=MoleculePrecedente(MolCourante);

Voilà en gros le principe. Tu peux ensuite améliorer les choses en grisant les boutons 'suivant' et 'précédent' quand tu es au début ou à la fin de ta liste de molécules.
Tout a fait d'accord !

En fait, il ne faut jamais chercher a arreter une partie du code, comme une boucle ... Il faut toujours repenser le code d'une autre facon !

L'exemple fourni par batyann811 est un bon exemple.
25/02/2010, 00h18
Dr.Who

pourquoi ne pas deporter la boucle dans une fonctione à appeler avec des parametres ?

ce qui donnerais :

bouton Next -> inc(N); ShowMole(Moles[N]);
bouton Prec -> dec(N); ShowMole(Moles[N]);
bouton Empty/Hide -> ShowMole(EmptyMole);
bouton Voir "N" -> N := Valeur saisie; ShowMole(Moles[N]);