Discussion :

[pierrot67]

Bonjour

J'ai un petit souci je voudrais savoir pourquoi ce code ne fonctionne pas:

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
 
procedure TForm6.Button1Click(Sender: TObject);
begin
if radiogroup1.buttons[0].Checked then
begin
datamodule2.RvProject1.ProjectFile:='c:\Program Files\Sanctions\Reports\Cours1.rav';
datamodule2.RvProject1.engine:=datamodule2.RvAp;
datamodule2.RvProject1.ExecuteReport('report1');
end;
 
 
if radiogroup1.Buttons[1].Checked then
begin
datamodule2.RvProject1.ProjectFile:='c:\Program Files\Sanctions\Reports\Cours2.rav';
datamodule2.RvProject1.engine:=datamodule2.RvAp;
datamodule2.RvProject1.ExecuteReport('report1');
end;

En fait il m'affiche toujours le Même "Etat rave" le premier car ma proprieté items est à 0 même si je coche le 2ème button.

[ShaiLeTroll]

Avec un TRadioGroup, on utilise plutôt ItemIndex !

Que renvoie Items.Count

[pierrot67]

Merci

Mais même combat toujours pareil il affiche toujours la page concernant le bouton coché par défaut pour tous les boutons

[dehorter olivier]

... et utilise un CASE à la place de IF qui, en plus, ne sont même pas imbriqués.

Code :

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

1
2
3
4
5
6
CASE RadioGroup.ItemIndex OF
 1 : begin ....
      end;
 2 : begin ....
      end;
END;

[pierrot67]

toujours pareil...

[Rayek]

Est ce que tu pointes sur le bon radiogroup ....

[ShaiLeTroll]

tu as bien rempli Items ?
Tu as n'as utilisé des TRadioButton ?

[pierrot67]

C'est bon le souci dans cette affaire était au niveau de rave report il ne "VIDE PAS' pas le datamodule2.RvProject1.ProjectFile il le garde dans toute la procédure. l'ennui j'ai du créer 2 rvproject et les renseigner de suite et la ça fonctionne.

Merci pour tout