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获取开机时间代码

Delphi 解决“richedit line insertion error”错误

Delphi中对excel表格文件的导入和导出操作

Delphi 一个call应该如何写?

Delphi 实现打开文件定位

Delphixe ansi字符串utf-8编码判断

Delphi 中 unicode 转汉字 函数

Delphi 过滤字符串特殊符号的函数

Delphi firemonkey里触发home按键被按下的事件

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

转载请注明出处：木庄网络博客 » Delphi 串口 字符串转换ASCII