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

....

[Klaus01]

Hallo,

wie schaut es denn aus wenn Du anstatt

FarbCodeText := Dm1.AdoQuery1.FieldByName('FarbCodeName').AsVarian t;

FarbCodeText := Dm1.AdoQuery1.FieldByName('FarbCodeName').AsString ;

nimmst. Vorausgesetzt FarbCodeText ist ein String.

Grüße
Klaus

[alexo]

passiert das selbe....



ich wollte schon die funktion umändern auf

Delphi-Quellcode:

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

aber da meldet der compiler ordinaltyp erforderlich?!?

[Klaus01]

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

AFarbe ist kein Ordinaltyp also ein einfachh abzählbarer Typ sein muß.

Was hat denn FarbCodeText für eine Typdeclartion?

Grüße
Klaus

[alexo]

zuerst war er variant dann hab ich es mit string getestet,

beides funktioniert nicht....


deine aussage zu der funktion hab ich nicht ganz verstanden

[Klaus01]

FarbCodeText := Dm1.AdoQuery1.FieldByName('FarbCodeName').AsString ;

In diesem Konstrukt, was für ein Typ ist FarbCodeText?

[alexo]

...string...

[leddl]

Schau dir mal den Eintrag in der OnlineHilfe zu Case an. Du benötigst einen ordinalen (abzählbaren) Typ, wie zB Integer, Char,... Sprich, jeder annehmbare Wert hat genau einen Vorgänger und einen Nachfolger. Das wäre zB bei Booleans, Integers, Chars, ... der Fall, aber eben leider nicht bei Strings oder Floats.

[alexo]

ok. danke...deswegen funktioniert die geänderte function nicht...

aber mein problem, siehe ganz oben ist aber damit nicht gelöst

[marabu]

Hallo Alex,

du speicherst in deiner Tabelle FarbCode und FarbName redundant. Als FarbName würde ich 'Schwarz' und nicht 'clBlack' speichern, da clBlack schon durch FarbCode festgelegt ist:

Delphi-Quellcode:

uses
  Graphics; // ColorToString()
var
  sFarbe, sColor: string;
  c: TColor;
begin
  c := TColor(Dm1.AdoQuery1.FieldByName('FarbCode').AsInteger);
  sFarbe := Dm1.AdoQuery1.FieldByName('FarbName').AsString;
  sColor := ColorToString(c);
end;

Grüße vom marabu