Discussion :

[IBRAHIM MR]

Bonjour,

J'ai un DBGrid1, edit1,et trois labels matières;label1 pour Philo,label2 pour Maths,et label3 pour Français.
Je veux créer une variable

Code :

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

1
2
3
4
5
var a:string;
begin
 a:=['6ème','5ème','3ème'];
 if(edit1.text=a) then
 label1.visiblue:=false;

car ces trois classes ne font pas philo mais le code ne marche pas.
sinon visible pour les classes de lycée

Comment résoudre ce problème?
Merci.

[tourlourou]

On ne peut pas mélanger les types de variables : si a est une chaîne, il ne peut être ni un tableau, ni un ensemble de 3 chaînes !

Pour faire ce que tu souhaites, tu peux ajouter les chaînes à tester à un TStringList (myStringList.Add('6ème');) et tester si la chaîne voulue en fait partie (Label1.Visible := not ( myStringList.IndexOf(Edit1.Text) > -1 ) ;)

[Paul TOTH]

"not > -1" ? fallait oser

il semblerait qu'il faille taper dans edit1 le classe concernée, ne serait-il pas plus judicieux d'utiliser une ComboBox et de tester son ItemIndex ?

en considérant que la ComboBox contient '6ième', '5ième', '4ième', '3ième', sur le OnChange de celle-ci on peut écrire

Code :

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

1
2
 
  label1.visible := ComboBox1.ItemIndex = 2; // 4ième

[tourlourou]

"not > -1" ? fallait oser

en effet, un EDIT pour ajouter le NOT après avoir constaté que le sens n'était pas le bon...

et je plussoie le ComboBox