DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: haibei
今日帖子: 8
在线用户: 10
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 xabbs (xabbs) ★☆☆☆☆ -
普通会员
2023/9/11 14:35:08
标题:
十六进制转换问题 浏览:328
加入我的收藏
楼主: 干活中发现基础不行,请教一个问题。
我从com口接收的字符串是 #$F#$E
我怎么能转换成字符FE,谢谢
----------------------------------------------
-
作者:
男 kentty (kentty) ★☆☆☆☆ -
普通会员
2023/9/11 14:48:01
1楼: 试试ReplaceStr(Source,'#$','')
----------------------------------------------
-
作者:
男 xabbs (xabbs) ★☆☆☆☆ -
普通会员
2023/9/11 14:58:09
2楼: 不行的,#$F是一个位
----------------------------------------------
-
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2023/9/11 15:25:27
3楼: 三个字节分一组, 每一组取最后一个字母, 合起来即可.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 supermay (supermay) ★☆☆☆☆ -
盒子活跃会员
2023/9/12 9:29:52
4楼: #$F#$E转换为FE
ReplaceStr(Source,'#$','')这个最简单呀,
----------------------------------------------
链接:https://pan.baidu.com/s/12jzmECYKhGCsHBxz8tmB6w 提取码:pelr --来自百度网盘超级会员V9的分享
作者:
男 supermay (supermay) ★☆☆☆☆ -
盒子活跃会员
2023/9/12 9:30:30
5楼: 还是你的问题没有表达清楚要问什么
----------------------------------------------
链接:https://pan.baidu.com/s/12jzmECYKhGCsHBxz8tmB6w 提取码:pelr --来自百度网盘超级会员V9的分享
作者:
男 emailx45 (emailx45) ▲▲▲▲△ -
普通会员
2023/9/12 10:07:54
6楼: If you need have it in a "ARRAY"

procedure TForm1.Button1Click(Sender: TObject);
var
  S      : string;
  LArrStr: TArray<string>; // array of String
begin
  S       := '#$F#$E';
  LArrStr := S.Split(['#'], TStringSplitOptions.ExcludeEmpty); // 2 items =  $F, $E
  //
  for var V in LArrStr do
    Memo1.Lines.Add(V);
  //
  Memo1.Lines.Add('--------');
  Memo1.Lines.AddStrings(LArrStr);
end;
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
作者:
男 lfyey121 (lfyey121) ★☆☆☆☆ -
普通会员
2023/9/12 11:22:40
7楼: vsrc:=#$F#$E;
result:=inttohex(byte(ord(vsrc[1]) shl 4 +ord(vsrc[2])));
----------------------------------------------
-
作者:
男 xabbs (xabbs) ★☆☆☆☆ -
普通会员
2023/9/18 0:36:06
8楼: 感谢,已经解决
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2023/9/18 9:22:12
9楼: 问题问的莫名其妙,解决也是莫名其妙。
----------------------------------------------
(C)(P)Flying Wang
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行35.15625毫秒 RSS