Как создать ассоциативный массив для цветов?

[Катя93]

Подскажите как создать ассоциативный массив, для цветов. Я изначально выбрала TStrings и TStringList. Записала вот так.

var
COLORS: TStrings;

  COLORS := TStringList.Create;
  COLORS.values['floor'] := '#d52b1e';
  COLORS.values['ceiling'] := '#ffffff';
  COLORS.values['wall'] := '#013aa6';
  COLORS.values['wallDark'] := '#012975';
  COLORS.values['rays'] := '#ffa600';

При попытке создать примитив Rectangle и присвоить ему значение.

Image1.Canvas.Brush.Color := COLORS.values['floor'];
Image1.Canvas.Rectangle(10,20,30,40);

Выдает ошибку.

[Error] RayCaster.pas(64): Incompatible types: 'TColor' and 'String'

Посмотрев некоторые статьи в интернете выяснила, что для цвета, нужно вместо решетки использовать знак доллара. Поэтому создала новый массив.

CColor:array[0..4] of tcolor=($d52b1e,$ffffff,$013aa6,$012975,$ffa600);

Вот так работает.

Image1.Canvas.Brush.Color := CColor[2];
Image1.Canvas.Rectangle(10,20,30,40);

Однако мне нужно сделать именно ассоциативный массив (ключ=>значение). Как это можно сделать для TColor в delphi7?

[uberchel]

Если задано конкретное кол цветов, легче прост осделать константами ?

const
   color1: Tcolor($ffffff);
   color2: Tcolor($ffffff);
   color3: Tcolor($ffffff);
   color4: Tcolor($ffffff);
   color5: Tcolor($ffffff);

[ForenLi]

Используйте TStringList с StringToColor/ColorToString или загуглите реализции, или сами напишите.

[uberchel]

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

Используйте TStringList с StringToColor/ColorToString или загуглите реализции, или сами напишите.

Тут надо будет самому делать реализацию ибо delphi 7, в принципе не сложно, просто на сколько это нужно в данном проекте...

[ForenLi]

Ну это только ТС знает. Может это учебная задача с такими условиями, может просто ТС не придумал, как связать значения для комбобокса с массивом цветов и где-то прочитал про ассоц. массивы...

[Катя93]

Нашла подходящее решение.

function StrToColor(color: String): TColor;
begin
if color = '#d52b1e' then Result := $d52b1e;
if color = '#ffffff' then Result := $ffffff;
if color = '#013aa6' then Result := $013aa6;
if color = '#012975' then Result := $012975;
if color = '#ffa600' then Result := $ffa600;
end;

[ForenLi]

1. Искать не надо было, я упомянул стандартную StringToColor. Делающую тоже и чуть больше.
2. У вас нет ассоциативного массива здесь.