Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
19. Jan 2006
Ich bin mir ziemlich sicher, dass der Compiler das mit dem *256 usw. schon richtig hinbiegt.
Compiler Magic halt.
EDIT: Die Fehler habe ich nicht bemerkt, weil ich getestet habe mit #FF0000, #00FF00, #FFFF00 usw.
Verdammt.
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
19. Jan 2006
Was habe ich gesagt? Glaubt ihr mir jetzt? Werde ich jetzt mit Konfetti beworfen und bekomme einen irrelevanten virtuellen Triumphzug? :mrgreen:
(Nein, das war nicht ernst gemeint)
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
19. Jan 2006
Wahrscheinlich wird das eh zu shl durch Compilermagic.
Aber an shiften habe ich jetzt gar nicht gedacht. Hab ich vergessen.
Aber performanter als mit dem Stringrumgefummel ist es wahrscheinlich schon.
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Jan 2006
Na schön, ich versuche es. Aber das ist halt etwas schwerer.
function HexNumberToDec(AValue: Char): Cardinal;
begin
case AValue of
'0'..'9': Result:=ord(AValue)-48;
'A'..'F': Result:=ord(AValue)-55;
end;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Jan 2006
Bittesehr. Es gäbe noch eine permormantere Lösung ohne StringToColor, aber das hier ist eindeutig leichter.
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Jan 2006
Die musst du dann wohl parsen.
function HTMLColorToColor(Color: String): TColor;
begin
Result:=StringToColor('$00'+color+color+color+color+color+color);
end;
Das müsste klappen.