Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#10

Re: Farbe umwandeln funktioniert nicht

  Alt 7. Dez 2005, 12:15
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
  Mit Zitat antworten Zitat