Na schön, ich versuche es. Aber das ist halt etwas schwerer.
Delphi-Quellcode:
function HexNumberToDec(AValue: Char): Cardinal;
begin
case AValue of
'0'..'9': Result:=ord(AValue)-48;
'A'..'F': Result:=ord(AValue)-55;
end;
end;
function HTMLColorToColor(Color: String): TColor;
begin
Result:=HexNumberToDec(Color[2])+HexNumberToDec(Color[3])*16+HexNumberToDec(Color[4])*256+
HexNumberToDec(Color[5])*4096+HexNumberToDec(Color[6])*65536+HexNumberToDec(Color[7])*1048576;
end;
Getestet und: Überraschung, es funktioniert. Perfekt. Ich bekomme schon langsam Angst vor mir selber.
Naja oder so ähnlich. Wenn irgendjemand den Algorithmus oben noch tunen kann, dann bitte ich um Verbesserung.