delphi中ASCLL码转汉字

话题：delphi中ASCLL码转 汉字

问题详情：s：=？ 怎么处理？ showmessage(s)； 显示一个汉字 这样行 s:=#

回答： 位码转 汉字跟ASCLL码转 汉字差不多。 vars:string;a,b,c:integer;begin a:=length(edit1.Text); if alt;gt;4 then begin showmessage（'请输入四位数字'）； end else begin s:=Trim(edit1.Text); b:=StrToInt(copy(s,1,2))+$a0; c:=StrToInt(copy(s,3,2))+$a0; showmessage(char(b)+chr(c)); endend;

话题：请问再delphi中有没有将汉字转换成16进制的函数呢？我只找

回答：汉字还能转成十六进制吗？是汉字的内码吧？把汉字放到字符串，然后逐个读字符串数组的值不就行啦。

参考回答：请教，请教，请教

话题：DELPHI中汉字转换成拼音首字母（所有汉字）函数！！谢谢

问题详情：我现在找到的是不全的，有很多汉字都转换不了 有达人能教教我全

回答：function getPY(hzchar:string):char;begincase WORD(hzchar[1]) shl + WORD(hzchar[2]) of$B0A1..$B0C4:result:='A';$B0C5..$B2C0:result:='B';$B2C1..$B4ED:result:='C';$B4EE..$B6E:result:='D';$B6EA..$BA1:result:='E';$BA2..$BC0:result:='F';$BC1..$BFD:result:='G';$BFE..$BBF6:result:='H';$BBF..$BFA5:result:='J';$BFA6..$C0AB:result:='K';$C0AC..$C2E:result:='L';$C2E..$C4C2:result:='M';$C4C3..$C5B5:result:='N';$C5B6..$C5BD:result:='O';$C5BE..$C6D:result:='P';$C6DA..$CBA:result:='Q';$CBB..$CF5:result:='R';$CF6..$CBF:result:='S';$CBFA..$CDD:result:='T';$CDDA..$

话题：delphi 如何将汉字字符串转换成拼音

回答：1、把你要注拼音的汉字、词组或者段落，甚至是一小篇文章输入在WORD文档中；2、选择你要标注上拼音的汉字；3、点击文档菜单的格式，在其下拉菜单中点击中文版式，然后选择拼音指南；4、在拼音指南的对话框中选择确定。注意，这种方法一次只能为40个汉字字符标注拼音.如果你想给不短的文章标注拼音，就只能一段一段的标注了，否则你就要安装标注拼音的小软件. 补充： 在WORD选中拟加拼音的文字，点格式/中文版式/拼音指南，选择好对齐方式、字体、字号，预览满意后，点组合/确定即可。

参考回答：在内存中建立拼音表，包括索引，生母，韵母，韵母音调位置，音调符号显示等。在数据库或内存中建立汉字拼音对照索引表，这个工

话题：Delphi汉字字符串中查找汉字第二次出现的位置

问题详情：求助大神，例如利用POS进行查找，POS（'我'，我我），需要返

回答：如果是纯中文字符串，可以先对字符串进行转换处理： s1,zf:widestring; widestring宽字符，指一个字符占两个字节的字符s1:=widestring（'门诊医疗诊疗收 收据'）；然后再I:=pos（'疗'，s1）；试一下？ 要找到第二个字符的位置，要麻烦一些.先用pos函数给第一个字符第一个字符的位置然后用zf:=copy(s1,i+1,length(s1)-i）； 去掉了第一个要找字符及前面的字符J:=pos（'疗'，zf）;j:=i+j；此时J的值就是第二个'疗'在串中的位置

参考回答：str要定义为widestringstr：='我我'；pos（'我'，str）+pos（'我'，copy(str,i+1))

话题：delphi返回一个汉字的Unicode编码

问题详情： 我对应的是Unicode编码是5246，按Alt+5246就能打出

回答： 机内码 - 汉字Function MacCode2Chinese(AiUniCode : Integer) : String;Varch, cl : Integer;Begin ch :=AiUniCode Div 256; cl :=AiUniCode Mod 256; Result :=Chr(ch) + Chr(cl);end； 汉字 - 机内码Function Chinese2MacCode(AiChinese : String) : Integer;Varch, cl : Integer;Begin ch :=Ord(AiChinese[1]); cl :=Ord(AiChinese[2]); Result :=(ch shl ) + cl;end; UniCode - 汉字Function UniCode2Chinese(AiUniCode : Integer) : String;Varch, cl : String[3];s : String;Begin s :=IntToHex(AiUniCode, 2); cl :='$' + Copy(s, 1, 2); ch :='$' + Copy(s, 3, 2); s :=Chr(StrToInt(ch)) + Chr(Str

参考回答：汉字与 Unicode 转换 转换function Str_Gb2UniCode(text: string): String; var i,len: Integer; cur: Integer; t: String; ws: WideS