Bonjour ! Voilà, je viens de commencer le delphi depuis une semaine et depuis hier matin je bloque sur un simple bouton récalcitrant. Il est censé, clic 1, faire telle chose et clic 2, faire autre chose. voici le code :

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
 
procedure TForm3.Button2Click(Sender: TObject);
 
label
 
  Switch;
 
var
 
  ButSwitch: string;
 
begin
 
  if ButSwitch=''
 
    then goto Switch;
 
  ButSwitch:='';
 
  (fonctions, fonctions, fonctions...)
 
  Button2.Caption:='Appliquer';
 
  Switch:
 
  ButSwitch:='func2';
 
  (fonctions, fonctions, fonctions...)
 
  Button2.Caption:='Rétablir';
 
end;

Sauf que, j'ai beau bombarder mon bouton Appliquer/Rétablir, il reste sur Appliquer et ne fait rien du tout ! j'en ai donc conclu que les variables étaient effacées à la fin d'une procédure.

Quelqu'un a une solution de rechange ? Merci !