Farbe auf HEX-Wert ??

Thunder · Beiträge: 145 WinXP D6 Pers

Hallo,

Ich möchte, das Edit1.Text geprüft wird, das es ein HEX-Wert ist und dann an einer Stelle die entsprechende Farbe aus dem 6stelligem HEX-Wert angezeigt wird...

Wie??

Danke im Voraus

Oder kennt einer ne passende Komponente??

Visum · Beiträge: 106

Hi,
die Überprüfung könntest du ganz einfach mit einer langen IF - Anweisung machen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

if (edit1.text[1]='$') and 
  (edit1.text[2] in ['0'..'9','A','B','C','D','E','F','a','b','c','d','e','f']) and
  (edit1.text[3] in ['0'..'9','A','B','C','D','E','F','a','b','c','d','e','f']) and 
  ... //für alle 7 Buchstaben 

  then ... else

Das könnte man durch eine For - Schleife evtl. erleichtern.

Die Umwandlung in eine Farbe geht mit StringToColor, z.B.:

markieren

Quelltext

1:	form1.color:= StringToColor(edit1.text);

mfG
Visum

MathiasH · Verfasst: Mi 27.11.02 14:14

einfacher

: bette das stringtocolor in einen try-except Block ein!
wenn er konvertieren kann geht es ganz normal weiter, ansonsten wird abgebrochen

MathiasH

_________________
"Viel von sich reden, kann auch ein Mittel sein, sich zu verbergen."
Friedrich Nietzsche

Visum · Beiträge: 106

Ja, geht auch

, nervt aber in der Entwicklungsumgebung ...
darüber wird aber schon wo anders diskutiert

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme