Bonjour

Je suis étonné du fonctionnement du code suivant qui affiche OK :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
type
  TNiveau = set of 1..255;
 
procedure TForm9.Button6Click(Sender: TObject);
var
  Niveau: TNiveau;
begin
  Niveau := [];
  Include(Niveau, 0);
  if 0 in Niveau then
    ShowMessage('ok');
end;
Le fait que 0 ne fasse pas partie de l'ensemble TNiveau ne devrait-il pas déclencher une erreur ?