interrompre prog.

Version imprimable

10/05/2006, 11h21
didi59650

interrompre prog.

Le programme de mon bouton contient deux parties. Est-il possbile d'interrompre mon programme a un endroit precis. Puis e appuyant sur un autre bouton ou le meme executer la fin de mon programme?
10/05/2006, 11h24
didi59650

je pourrais mettre un sleep mais cela m'est impossible carle temps d'niterruption peut varier

salut

il faut que tu fasse de cette maniere

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
 
 
Maform = class(Tform)
...
 procedure OnClickPremier(Sender: TObject);
 procedure OnClickSecond(Sender: TObject);
...
end;
 
...
Tmaform.formcreate(Sender : Tobject);
Begin
   ...
  MonBouton.OnClick := OnClickPremier;
end;
procedure Tmaform.OnClickPremier(Sender: TObject);
begin
  ...
   MonBouton.OnClick := OnClickSecond;
end;
 
procedure Tmaform.OnClickSecond(Sender: TObject);
 
begin
  ...
   MonBouton.OnClick := OnClickPremier;//si on veut recommencer l'operation 
end;

@+ Phil

10/05/2006, 12h21
didi59650
peux tu m'expliquer avec un programme
par exemple un bouton affiche "1" dans un edit puis le prog est interrompu et quand je rappuie dessu il va afficher "2"
Code:

1 2 3 4 5 6 7 begin edit1.text:='1'; (qu'est ce que je met?) edit1.text:='2';
merci
10/05/2006, 12h25
didi59650
pour etre plus preci j'aimerais qu'il continue à afficher des "1" :
Code:

1 2 3 4 5 6 for i := 1 to 50 do begin edit1.text:='1'; sleep(1000); end;
puis quan je rappuie sur ce bouton il affiche "2"

salut

je reprend l'exemple que je t'ai fournit

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
 
Maform = class(Tform)
...
 procedure OnClickPremier(Sender: TObject);
 procedure OnClickSecond(Sender: TObject);
...
end;
 
...
 
Tmaform.formcreate(Sender : Tobject);
Begin   
 edit1.text:='0'; 
MonBouton.OnClick := OnClickPremier;
end;
 
procedure Tmaform.OnClickPremier(Sender: TObject);
begin  
 edit1.text:='1';
 MonBouton.OnClick := OnClickSecond;
end;
 
procedure Tmaform.OnClickSecond(Sender: TObject);
begin  
  edit1.text:='2';
  MonBouton.OnClick := OnClickPremier;//si on veut recommencer l'operation 
end;

@+Phil

voila ce que j'ai tapé mais rien ne marche et il y a plein d'erreur(pas de compilation)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.OnClickPremier(Sender: TObject);
begin
   edit1.text:='1';
   Button1Click.OnClick := OnClickSecond;
end;
procedure TForm1.OnClickSecond(Sender: TObject);
begin
   edit1.text:='2';
   Button1Click.OnClick := OnClickPremier;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click.OnClick := OnClickPremier;
end;

ps: je suis sous delphi3

j'ai trouver un autre moyen plus simple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
  0 :
  begin
    richedit1.lines.add('1');
    Button1.Tag := 1;
  end;
  1 :
  begin
  richedit1.lines.add('2');
    Button1.Tag := 0;
  end;
end;
end;

apr exemple le premier click affiche 1 et le deuxieme 2 ect...