Delphi 串口 字符串转换ASCII


本文整理自网络,侵删。

 
function StrToASCIIStr(const S: string): string;
var
  i: Integer;
begin
  for i:= 1 to Length(S) do
  begin
    if i = 1 then
      Result:= IntToHex(Ord(S[1]), 2)
    else
      Result:= Result + ' ' + IntToHex(Ord(S[i]), 2);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
ShowMessage(StrToASCIIStr('中国'));
end;

相关阅读 >>

Delphi图片格式判断

Delphi fastreport快速安装教程

Delphi 3句话绕过xxx拦截删除桌面快捷方式

Delphi工具之winsight

Delphi firedac获取自增长字段值

Delphi实现文件拖放代码

Delphi 设置richedit的行间距

Delphi 如何设置文件属性

Delphi中二进制文件数据存文件方法

Delphi 类型映射及类型转换

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...