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
....