허접스러운 코딩입니다.



//델파이의 color를 html의 color값으로....

function Tform1.ColorToHcolor(cl : Tcolor):string;

var

s : string;

begin

s:= colortostring(cl);

if copy(s,1,2) = 'cl' then

result := copy(s,3,length(s)-2)

else

result := '#'+copy(s,8,2)+copy(s,6,2)+copy(s,4,2);

end;



즐프하세여~~





이태호 wrote:

> 안녕하세요!

> 저는 지금 Delphi로 간단한 HTML 편집기를 만들고 있습니다.

> 그런데. Delphi에서의 Color값을 HTML의 Color값으로 변경하는 것이 잘 안되는군요!

> var TempStr: String;

>

> TempStr := format('%6x', [DelphiColor]);

> HtmlColor := TempStr[5] + TempStr[6] + TempStr[3] + Tempstr[4] + TempStr[1] + TempStr[2];

>

> 위와 같이 format 문을 사용해서 16진수 문자열 값으로 변경하고 이를 HTML RGB 구서에 맞게 재배열하는 방식을 취했습니다.

> 그런데 문제가 되는 것은 16진수 '000090'과 같은 값이 들어가면 TempStr이 '90'이 되어 원하는 결과가 나오지 않더군요! 어떻게 해야 하나요!

>

안녕하세요 김동원입니다.

제가 HTML을 해보지 않아서 어떤의미인지는 모르나

굳이 자리수를 맞추려고 한다면 이런 편법은 어떨까

해서 오립니다...



var

TempStr, tempbuff: String;



begin

tempbuff := '000000';

TempStr := format('%x', [DelphiColor]);

insert( TempStr, tempbuff, Length(tempbuff)-Length( TempStr ));

HtmlColor := Format( '%s%s%s%s%s%s',[tempbuff[5],

tempbuff[6],

tempbuff[3],

tempbuff[4],

tempbuff[1],

tempbuff[2]]);



end;





이태호 wrote:

> 안녕하세요!

> 저는 지금 Delphi로 간단한 HTML 편집기를 만들고 있습니다.

> 그런데. Delphi에서의 Color값을 HTML의 Color값으로 변경하는 것이 잘 안되는군요!

> var TempStr: String;

>

> TempStr := format('%6x', [DelphiColor]);

> HtmlColor := TempStr[5] + TempStr[6] + TempStr[3] + Tempstr[4] + TempStr[1] + TempStr[2];

>

> 위와 같이 format 문을 사용해서 16진수 문자열 값으로 변경하고 이를 HTML RGB 구서에 맞게 재배열하는 방식을 취했습니다.

> 그런데 문제가 되는 것은 16진수 '000090'과 같은 값이 들어가면 TempStr이 '90'이 되어 원하는 결과가 나오지 않더군요! 어떻게 해야 하나요!

>