2,497
社区成员
发帖
与我相关
我的任务
分享如何把16进制的一串字符，变成真正的16进制显示
例如：
procedure TForm1.btn2Click(Sender: TObject);
var
str :string;
begin
Str := ‘#$CE#$D2#$B0#$AE#$C4#$E3’ ; // 中文“我爱你”
// 如何把str转换成这个样子的
// 单纯的
showmessage(str) ; //显示的还是编码
showmessage(#$CE#$D2#$B0#$AE#$C4#$E3); //我爱你
end;
procedure TForm1.btn2Click(Sender: TObject);
var
str :string;
begin
Str := ‘#$CE#$D2#$B0#$AE#$C4#$E3’ ; // 中文“我爱你”
// 如何把str转换成这个样子的
// 单纯的
showmessage(str) ; //显示的还是编码
showmessage(#$CE#$D2#$B0#$AE#$C4#$E3); //我爱你
end;
...全文
请发表友善的回复…
发表回复
okgxs 2014-12-15
- 打赏
- 举报
不好意思，刚才没回复前点了结贴了，无法给分了
xhz8000 2014-12-15
- 打赏
- 举报
var
str , sResult, sTemp:string;
iLen, iStart: Integer;
begin
Str := '#$CE#$D2#$B0#$AE#$C4#$E3' ; // 中文“我爱你”
str := StringReplace(str, '#', '', [rfReplaceAll]);
iLen := length(str);
iStart := 1;
while iStart < iLen do
begin
sTemp := copy(str, iStart, 3);
sResult := sResult + Char(StrToInt(sTemp));
iStart := iStart + 3;
end;
ShowMessage(sResult);
okgxs 2014-12-15
- 打赏
- 举报
如何输出：我爱你
