Est-ce que quelqu'un pourrait me dire ce qui ne va pas du tout avec la façon dont ma déclaration de cas est écrite? Je ne vois rien de mal à cela, mais le compilateur continue d'élever l'erreur suivante, "Dupliquer l'élément de cas: '0'," pour la ligne avec HatchSytle.Horizontal. Si je commente cette ligne c'est bien et compile sans aucune erreur.Article en double: "0"
Comme vous pouvez le voir, aucun des éléments que je vérifie n'est le même. Donc, je ne devrais pas avoir d'erreur. Corrigez-moi si je me trompe.
case TMakerGraphic(obj).theBrushStyle of
HatchStyle.Min: BrushStyleCombo.SelectedIndex := 1;
HatchStyle.ZigZag: BrushStyleCombo.SelectedIndex := 0;
HatchStyle.BackwardDiagonal: BrushStyleCombo.SelectedIndex := 2;
HatchStyle.ForwardDiagonal: BrushStyleCombo.SelectedIndex := 3;
HatchStyle.Cross: BrushStyleCombo.SelectedIndex := 4;
HatchStyle.DiagonalCross: BrushStyleCombo.SelectedIndex := 5;
HatchStyle.Horizontal: BrushStyleCombo.SelectedIndex := 6; <<<< Line raising error.
HatchStyle.Vertical: BrushStyleCombo.SelectedIndex := 7;
end;
Merci
Cela me rappelle à quel point il est cool dans Pascal de ne pas avoir à ajouter une déclaration de rupture pour chaque cas ... –
@ vc74, il est très cool :) – ThN