web颜色转换为delphi

今天在写写一个日志浏览和报警功能时,要求用多种颜色去显示不同的信息,客户给出的颜色是web的

rgb颜色,就是用6位16进制数去表示的颜色,直接把他赋值给Delphi的TColor变量,发现显示的颜色不对,

差了资料之后才知道

RGB的颜色是从低位向高位存储,而TCOLOR正好与之相反,

例如

RGB : F1F2FE
Tcolor: $00FEF2F1

 

找到问题所在那就好办了,只需将web颜色的4个字节高低位对调就ok了啊,于是自己写了个转换函数,代码很少,但用起来蛮方便的,贴出来与大家分享,

 


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi XE 版本中,可以使用 TDataSetProvider 和 TClientDataSet 组件来将 JSON 数据转换为 DataSet。 以下是一个简单的例子,演示如何将 JSON 数据转换为 DataSet: ```delphi uses System.JSON, Data.DB, Datasnap.DBClient, Datasnap.Provider; procedure JSONToDataSet(const jsonStr: string; const dataSet: TDataSet); var json: TJSONObject; data: TJSONArray; row: TJSONObject; i: Integer; begin json := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject; if json <> nil then begin data := json.GetValue('data') as TJSONArray; if data <> nil then begin dataSet.DisableControls; try dataSet.Open; for i := 0 to data.Count - 1 do begin row := data.Items[i] as TJSONObject; dataSet.Append; try // 将 JSON 中的数据转换为 DataSet 中的字段值 dataSet.FieldByName('name').AsString := row.GetValue('name').Value; dataSet.FieldByName('value').AsString := row.GetValue('value').Value; dataSet.Post; except dataSet.Cancel; raise; end; end; finally dataSet.EnableControls; end; end; end; end; ``` 在上面的例子中,首先使用 TJSONObject.ParseJSONValue 方法将 JSON 字符串解析为 TJSONObject 对象,然后使用 GetValue 方法获取 JSON 中的具体值。接着,循环遍历 JSON 数组中的每一行数据,将其转换为 DataSet 中的字段值,并添加到 DataSet 中。 需要注意的是,在将 JSON 数据转换为 DataSet 时,需要保证 JSON 数据的结构与 DataSet 的结构一致。同时,还需要进行错误处理和数据安全处理,以应对无效的 JSON 数据或解析错误等情况。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值