示例:
var
a:string;
begin
a:=floattostr(360*RGB2H(strtoint(edit1.Text),strtoint(edit2.Text),strtoint(edit3.Text)));
showmessage(a);
RGB=0,0,255 ,蓝色
色轮角度就是240°:
var
a:string;
begin
a:=floattostr(360*RGB2H(strtoint(edit1.Text),strtoint(edit2.Text),strtoint(edit3.Text)));
showmessage(a);
RGB=0,0,255 ,蓝色
色轮角度就是240°: