导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
xabbs (xabbs)
★☆☆☆☆
-
普通会员
2023/9/11 14:35:08
标题:
加入我的收藏
楼主:
干活中发现基础不行,请教一个问题。 我从com口接收的字符串是 #$F#$E 我怎么能转换成字符FE,谢谢
----------------------------------------------
-
作者:
2023/9/11 14:48:01
1楼:
试试ReplaceStr(Source,'#$','')
----------------------------------------------
-
作者:
xabbs (xabbs)
★☆☆☆☆
-
普通会员
2023/9/11 14:58:09
2楼:
不行的,#$F是一个位
----------------------------------------------
-
作者:
2023/9/11 15:25:27
3楼:
三个字节分一组, 每一组取最后一个字母, 合起来即可.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
2023/9/12 9:29:52
4楼:
#$F#$E转换为FE ReplaceStr(Source,'#$','')这个最简单呀,
----------------------------------------------
链接:https://pan.baidu.com/s/12jzmECYKhGCsHBxz8tmB6w 提取码:pelr --来自百度网盘超级会员V9的分享
作者:
2023/9/12 9:30:30
5楼:
还是你的问题没有表达清楚要问什么
----------------------------------------------
链接:https://pan.baidu.com/s/12jzmECYKhGCsHBxz8tmB6w 提取码:pelr --来自百度网盘超级会员V9的分享
作者:
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
作者:
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楼:
感谢,已经解决
----------------------------------------------
-
作者:
2023/9/18 9:22:12
9楼:
问题问的莫名其妙,解决也是莫名其妙。
----------------------------------------------
(C)(P)Flying Wang