Farbe in einer Tabelle speichern

mambo · Beiträge: 76 Win XP D6 Prof

Ich möchte die Farbe des Datensatzes hexadezimal in der Oracle Tabelle speichern und dann den Datensatz im TdxDBGrid je nach Farbe anzeigen.

Mein Problem ist nun: wie kann ich einen Farbwert den ich als String (bzw. varchar2) gespeichert habe der Eigenschaft Color zuweisen ???

AColor := $00FFFFFF funktioniert ja, aber
AColor := '$00FFFFFF' nicht!
wie kann ich also den Hexadezimal-String in TColor umwandeln??

Danke

mars · Verfasst: Mo 24.02.03 10:07

Diese Funktion sollte dir dabei helfen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function HexToColor(sColor: string): TColor;
begin
  Result :=
    RGB(
    StrToInt('$' + Copy(sColor, 1, 2)),
    StrToInt('$' + Copy(sColor, 3, 2)),
    StrToInt('$' + Copy(sColor, 5, 2))
    );
end;

Greets

LCS · Verfasst: Di 25.02.03 08:19

Hi
noch simpler geht's mit:

markieren

Quelltext

1:	AColor := StrToInt('$00FFFFFF');

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme