Jak to sprawdzić?

[Pieter]

Jak można sprawdzić czy kolor html napisany np w edit jest prawidłowy? Chodzi mi o delphi.

 

Bo mam taki kod:

function html2color(s:string):integer;
begin
result := strtoint('$00'+copy(s,6,2)+copy(s,4,2)+copy(s,2,2));
end;

 

zamienia on standardowy string czyli np html na kolor.

 

I chce żeby zwracał -1 jeżeli html jest błedny

 

EDIT:

 

Ups dałem złą funkcję. Poprawione...

 

EDIT 2:

 

dobra zrobiłem sobie sam :P

 

function html2color(s:pchar):double;
var
a: string;
res,i: integer;
begin
if not InStr('#',s) then
s := pchar('#' + s);
s := pchar(uppercase(s));
if length(s) > 7 then
res := -1
else
begin
a := copy(s,6,2)+copy(s,4,2)+copy(s,2,2);
for i := 1 to Length(a) do
if not(a[i] in ['A'..'F', '0'..'9']) then
    begin
     res := -1;
     Exit;
    end
    else
    res := strtoint(pchar('$00'+a));
end;
result := res;


end;

[LittleFish]

*porzyczam*, gut łerk.

[Pieter]

fenks