Farbe umwandeln funktioniert nicht

[alexo]

hi nochmal!

ich weiß ich bin nervig aber ihr seit meine einzige hoffnung...


Folgendes:

hab mir die funktion

Delphi-Quellcode:

function TForm2.ColorToStr(AFarbe: Variant): String;
begin
 case AFarbe of
  clRed:Result := 'Rot';
....

gebastelt.


ich möchte nun einen Db-Datensatz in eine LV eintragen:

Delphi-Quellcode:

...
FarbCodeText := Dm1.AdoQuery1.FieldByName('FarbCodeName').AsVariant;
...
Item.SubItems.Add(ColorToStr(FarbCodeText));
...

Wert wird richtig geladen aber bei der umwandlung kommt der fehler:


Variante des Typs(String) konnte nicht in Typ(Boolean) konvertiert werden


wie kommt er auf BOOLEAN !?!?!?

info:
meine tabelle enthält ca. 40 farben

|kategorieNr|kategorieName|farbcode|farbName|
|----------1|----Sonstiges|-------0|-clBlack|

farbcode wird automatisch generiert (höchste zahl +1)
kategorieNr = autowert
farbname = farbe aus TColorBox
Name= string

....