Farver fra ComboBox

du opretter et array som fx
const farver: array of tcolor = (clRed, clBlue, clLime);

og så indsætter du items\'ne i den rækkefølge.
når du så trykker ok eller lignende gør du:

var color: tcolor;
begin
  color := farver[combobox1.itemindex];
end;

eller sådannoget lignende.

ellers kan du jo lave en stringlist med name/value-strenge som
Rød=0
Blå=1

og så sige color := farver[sl.values[sl.names[combobox1.text]]] (el.lign) hvor sl er stringlisten.

:-)

Tilsyneladende vil Delphi helst have specificeret array-dimensionen, så du skal lige have [0..X] hægtet på, ellers er cms\'s ídé fin nok.

const farver: array[0..2] of tcolor = (clRed, clBlue, clLime);

mais bien sûr :-)