Может ли кто-нибудь сказать мне, что именно не так с тем, как написано мое заявление по делу. Я не вижу в этом ничего плохого, но компилятор продолжает выдавать следующую ошибку "Duplicate case item: '0'" для строки с HatchSytle.Hor Horizontal. Если я закомментирую эту строку, она будет в порядке и компилируется без ошибок.
Как видите, ни один из элементов, которые я проверяю, не является одинаковым. Так что я не должен получать никаких ошибок. Поправь меня, если я ошибаюсь.
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;
Спасибо