汉字与区位码互转(Delphi代码,很容易理解)
汉字与区位码互转(Delphi代码,很容易理解)
时间:2015-05-31 01:19:53 阅读:194 评论:0 收藏:0 [点我收藏+]
标签: 汉=BABA(内码)=-A0A0=2626(区位码) //汉字转区位码 procedure TForm1.Button2Click(Sender: TObject); 汉字与区位码互转(Delphi代码,很容易理解) 标签: 原文地址:
字=D7D6(内码)=-A0A0=5554(区位码)
function Str2GB(const S: AnsiString): string;
const G = 160; // 160 = hA0
var n, m: word;
begin
n := Ord(S[1]);
m := Ord(S[2]);
Result := FormatFloat(‘00‘, n-G) + FormatFloat(‘00‘, m-G);
end;
//区位码转汉字
function GB2Str(const n: Word): string;
const G = 160;
begin //前2位数 //后2位数
Result := string(AnsiChar(n div 100 + G) + AnsiChar(n mod 100 + G));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GB2Str(StrToInt(Edit1.Text)));
end;
begin
ShowMessage(Str2GB(AnsiString(Edit2.Text)));
end;
踩
(0)
赞
(0)
举报
评论 一句话评论(0)
,温馨提示: 本文由Jm博客推荐,转载请保留链接: https://www.jmwww.net/file/71521.html