怎样求汉字的asc码值 在线等
关键词：asc
怎样求汉字的asc码值？ 例如，我想求‘我’的asc码怎样求？ 在线等
自己做的完的，您看看吧：） 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;
CE D2 下载一个UltraEdit-32,新建一个文本文件，写上“我”，选择切换到HEX模式，ok了
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 不只怎样写？感谢！
我倒,好像太烦了,我写了个,免费给您,很简单的. 参数说明: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); 超额完成任务,多给点分呀!!!!!!!!!!!!!!!!!
