如何求汉字的asc码值 在线等
如何求汉字的asc码值？ 例如，我想求‘我’的asc码如何求？ 在线等 问题点数：0、回复次数：4Top
1 楼hottey（点亮心灵)(基础补习中）回复于 2004-11-10 20:34:48 得分 0
自己做的完的，你看看吧：）
type
TChnChar = string[2];
function ChnCharToRTFCode(Ch: TChnChar): string;
var
C1, C2: Char;
O1, O2: Byte;
S: String;
begin
C1 := Ch[1];
C2 := Ch[2];
O1 := Ord(C1);
O2 := Ord(C2);
S := Format('%2X', [O1]) + Format('%2X', [O2]);
Result := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ChnCharToRTFCode('军'));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
S: String;
begin
SetLength(S, 2);
S[1] := Chr($BE);
S[2] := Chr($FC);
ShowMessage(S);
end;
Top
2 楼cjhchina（★★★★★）回复于 2004-11-10 20:36:40 得分 0
CE D2
下载一个UltraEdit-32,新建一个文本文件，写上“我”，选择切换到HEX模式，ok了Top
3 楼li_jianfeng（lijianfeng）回复于 2004-11-10 20:45:59 得分 0
for i=1 to lenc(stringhz)
chz=substrc(stringhz,i,1)
if len(chz)=2 and Asc(left(chz, 1))>=0xB0 and Asc(left(chz, 1))<=0xF7
ctemp=ctemp+chz
endif
endfor
以上是vf写的，我想用dephi把它翻译过来，Asc(left(chz, 1))>=0xB0 不只怎么写？谢谢！Top
4 楼cn_tigers（不是我）回复于 2004-11-15 15:01:59 得分 0
我倒,好象太烦了,我写了个,免费给你,很简单的.
参数说明:sMsg,原msg,acmsg拉收值,
function HexToStr(const sMsg:string;var acMsg:array of char):integer;
var
iLen:integer;
begin
fillchar(acmsg,sizeof(acmsg),0);
iLen:=length(sMsg);
HexToBin(pchar(sMsg),acMsg,iLen);
result:=0;
end;
//sMsg:='C4FABAC321BBB6D3ADB6A9D4C4B8C3D2B5CEF1';
HexToStr(pchar(sMsg),acMsg);
参数说明:sMsg,原msg,acmsg拉收值,
function StrToHex(const sMsg:string;var acMsg:array of char):integer;
var
iLen:integer;
begin
fillchar(acmsg,sizeof(acmsg),0);
iLen:=length(sMsg);
bintohex(pchar(sMsg),acMsg,iLen);
result:=0;
end;
////sMsg:='您好!欢迎订阅该业务';
StrToHex(pchar(sMsg),acMsg);
超额完成任务,多给点分呀!!!!!!!!!!!!!!!!!
Top
