在Delphi中，如何把一个中文字符转换成机器内码，并输出这个机器内码？ — 编程爱好者社区

您所在位置：社区首页 — Delphi讨论区 — 在Delphi中，如何把一个中文字符转换成机器内码，并输出这个机器内码？

回帖发新帖刷新版面

主题：在Delphi中，如何把一个中文字符转换成机器内码，并输出这个机器内码？

dgh2007 [专家分：0] 发布于 2008-06-14 12:10:00

在Delphi中，如何把一个中文字符转换成机器内码，并输出这个机器内码？

本帖地址： http://bbs.pfan.cn/post/278751.html

回复列表（共2个回复）

沙发

Button [专家分：20] 发布于 2008-06-15 01:01:00

procedure TForm1.Button1Click(Sender: TObject);
var
tmp: string;
t1,t2: byte;
ptr: ^byte;
GBcode: integer;
begin
  tmp:=edit1.Text;
  ptr:=@tmp[1];
  t1:=ptr^;
  ptr:=@tmp[2];
  t2:=ptr^;
  GBcode:=t2*$100+t1;
  tmp:=inttostr(GBcode);
  GBcode:=strtoint(tmp);
  edit1.text:=inttohex(GBcode,0);
end;

板凳

dgh2007 [专家分：0] 发布于 2008-06-23 06:19:00

经过测试,这个代码比较好。

我来回复

您尚未登录，请登录后再回复。点此登录或注册