Hallo Leute!
Ich habe das Problem, dass mir eine Farbkonvertierung teilweise "falschen" oder unvollständigen Code zurückgibt.
Delphi-Quellcode:
function ConvertToDelphiColor(
Html :
string) : TColor;
begin
while Pos('
#',
Html) <> 0
do
Delete(
Html, Pos('
#',
Html), 1);
Html := (Copy(
Html,5,2) + Copy(
Html,3,2) + Copy(
Html,1,2));
Result := StrToInt('
$' +
Html);
end;
Komischerweise schreibt mir dir Funktion manchmal folgendes in mein Edit zurück!
#ff0|
statt
#ff0066
Woran kann das liegen??
Ich rufe folgende auf:
if ColorDialog1.Execute then ed_css_hg_col_link.Text:=LowerCase(ConvertToHtmlColor(ColorDialog1.Color));
Der Fehler tritt aber auch auf, so glaube ich, wenn ich LowerCase weg lasse! Ich weiss einfach nicht, was da falsch lkäuft, denn dieser Fehler tritt nicht immer auf, aber doch häufig! Wer kann helfen?