為什么80%的碼農都做不了架構師？>>> ??

function TColorToHex(Color: TColor): string; beginResult :=IntToHex(GetRValue(Color), 2) +IntToHex(GetGValue(Color), 2) +IntToHex(GetBValue(Color), 2); end;function HexToTColor(sColor: string): TColor; beginResult :=RGB(StrToInt(#36 + Copy(sColor, 1, 2)),StrToInt(#36 + Copy(sColor, 3, 2)),StrToInt(#36 + Copy(sColor, 5, 2))); end;//測試: procedure TForm1.Button1Click(Sender: TObject); varc: TColor;s: string; beginc := clRed;s := TColorToHex(c);ShowMessage(s); //FF0000 (相當于 HTML 中的 #FF0000)s := 'FF0000';c := HexToTColor(s);ShowMessage(BoolToStr(c=clRed)); //-1Self.Color := c; //窗體將變紅色 end;

轉載于:https://my.oschina.net/hermer/blog/321000

總結

以上是生活随笔為你收集整理的TColorToHex 与 HexToTColor的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。