Entwickler-Ecke

Datenbanken - Farbe in einer Tabelle speichern


mambo - Mo 24.02.03 09:23
Titel: Farbe in einer Tabelle speichern
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 - Mo 24.02.03 10:07
Diese Funktion sollte dir dabei helfen:

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 - Di 25.02.03 08:19
Hi
noch simpler geht's mit:

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


Gruss Lothar


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!