HTML-Farbwert in Color umwandeln?

[Binärbaum]

Zitat von Opa Knack:

Hallo,

ich habe das Problem inzwischen dadurch gelöst, dass ich den "Fehlerwert" einfach auf die Farbe des TShapes gesetzt habe, und dass ich das Edit mit einem OnChange-Event ergänzt habe, welcher nur die Tasten 0-9, a-f, A-F und # zuläßt.

Genau so habe ich das vorhin auch gemeint.
Um jetzt noch die Korrektheit der Eingabe zu prüfen, muss man prüfen, ob das #-Zeichen mehrmals oder nur einmal, aber dafür nicht am Anfang vorkommt. das könnte in etwa so aussehen:

Delphi-Quellcode:

if length(Edit1.Text)>0 then begin
 if ((pos('#', Edit1.Text)>1) or (pos('#', copy(Edit1.Text, 2, length(Edit1.text)))>=1)) then
  ShowMessage('Eingabe ist ungültig!')
 else begin
  ///Eingabe OK
   machwas;
 end; 
end
else Showmessage('String ist leer');

(Ungetestet!)

MfG
Binärbaum