Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - color to string


CoWa - Mo 08.09.08 14:58
Titel: color to string
Hallo,

bei der Umwandlung ColortoString wandelt er es mir in
1.) $0000008D Hexcodes
2.) clRed (Systemfarbnamen)

Als Zielergebnis hätte ich aber gerne eine Zahl von 0 bis 254 als String.
Den Hexcode könnte ich eventuell bei den letzten beiden Zeichen abschneiden nach Int und danach nach str umwandeln.
Wahrscheinlich geht das auf ähnliche Art auch mit den Systemfarbnamen.

Habt ihr eine Idee wie ich das Geschickt angehen kann?

Gruß CoWa


jakobwenzel - Mo 08.09.08 15:12

Mit 255 Werten kannst du aber nicht alle Werte von TColor darstellen...

Mit GetRValue / GetGValue / GetBValue kommst du direkt an die Rot/Grün/Blauanteile eines TColor-Wertes und sparst dir das ColorToString.


CoWa - Mo 08.09.08 15:14

Ich habe nun direkt IntToStr verwendet. Erfüllt meinen Zweck. Hätte nicht gedacht das der Weg so einfach ist.

Danke

Gruß CoWa