[vbh99]

Код:

procedure TForm2.Button1Click(Sender: TObject);
 var
   i:Integer;
begin
 if ColorDialog1.Execute then
  begin
   Button1.Font.Color:=mas2[(Sender as TButton).Tag].Brush.Color;   // сохраняем цвет (здесь просто в шрифте кнопки)
   mas2[(Sender as TButton).Tag].Brush.Color:=ColorDialog1.Color; // присваиваем цвет из диалога
   for i:=0 to b do
   begin
    if ((Sender as TButton).Tag<>i) and (mas2[(Sender as TButton).Tag].Brush.Color=mas [i].Brush.Color)then // если элемент массива не i-й и цвет тот же что и и выбран в в диалоге, то выдаём сообщение и возвращаем старый цвет, b- номер последнего элемента в массиве
     begin
      ShowMessage('Данный цвет уже выбран!');
      mas2[(Sender as TButton).Tag].Brush.Color:=Button1.Font.Color;
     end;
   end;
  end;
end;

У меня есть массив из Tshape, он заполняется уникальными цветами. Пользователь может изменить его цвет по клику на кнопке, но цвета должны быть уникальными. Для этого введена проверка, но она работает не для всех цветов. Почему я не понимаю...

[Pilot_Red]

мне кажется,что на этот вопрос будет не ответ, а вопрос...
Я прочитал несколько раз это, но так и не вкурил в чем проблема.
Может быть я просто пьян

[vbh99]

Сообщение от Pilot_Red

мне кажется,что на этот вопрос будет не ответ, а вопрос...
Я прочитал несколько раз это, но так и не вкурил в чем проблема.
Может быть я просто пьян

Чего тут непонятного: есть массив уникальных цветов.Пользователь может поменять один из цветов в нём, но при этом цвет, которой выбирает пользователь, не должен встречаться в массиве цветов, если он встречается пользователь получает сообщение, о том что такой цвет уже есть и Tshаpe присваивается старый цвет. Если он встречается, то гарантированно он один. Всё просто до безобразия.
Проблема в чём: код, который приведён выше, срабатывает, например, на чисто белом, чисто чёрном, чисто красном и т.д., но если взять, например, цвет RGB(64, 0, 64) или RGB(255, 128, 128), то эти повторяющиеся цвета он пропускает т.е. не выдаёт сообщение.