Hex&BIN

mam pytanko i prosbe moze ktos mi jakią prosty kodzik napisac
zamieniający HEX na składowe RGB albo chociaz na bin plizka ---= pozdrawiam Oskar =- (delphi 6 GG:2792614)

jezeli chodzi o zamiane z Hexow (uzywanych do kolorwow w HTML'u) na skladowe RGB to bedzie to wygladalo tak:

var
HexColor : string;
RValue, GValue, BValue: Integer;
begin
HexColor := '#EDB78F' ; *kolor w Hexie
Delete(HexColor,1,1); *usuwamy znak #
RValue := StrToInt('$' + Copy(HexColor,1,2)); *skladowa R
GValue := StrToInt('$' + Copy(HexColor,3,2)); *skladowa G
BValue := StrToInt('$' + Copy(HexColor,5,2)); //skladowa B
end;

tylko tyle udalo mi sie wymyslic :-)
moze ktos zna prostrzy sposob?---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

qrde znowu dodalo \ :( :( :(
tzn. pousuwaj je :)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

dzieki wielkie pytanko z ciekawosci czemu ci dodaje slesze :))
---= pozdrawiam Oskar =- (delphi 6 GG:2792614)

&gtpytanko z ciekawosci czemu ci dodaje slesze

poczytaj post FORUM - NOWOŚCI, Zgłoszenia błędów
http://www.4programmers.net/forum/index.php?action=show&id=3664
tam jest wyjasnione :-)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-