delphi 编码与汉字转换问题 var s1，s2：byte；sd，sb：string；beginsd：='就'；ShowMessage(IntToHex(Ord(sd[1])，2))；ShowMessage(IntToHex(Ord(sd[2])，2))；s1：=$be；s2：=$cd；sb：=chr(s1)+chr(s2)；showMessage((sb))；end；d7可以通过，如果用高版本编译器略有变化。
哪位好心人帮帮忙啊。Delphi 中怎么求Shift-JIS的编码的具体值啊，憋屈好久了，都没搞定。。实在太郁闷了 哪位好心人帮帮忙啊。Delphi 中怎么求Shift-JIS的编码的具体值啊，憋屈好久了，都没搞定。实在太郁闷了 比如输入一个汉字 能求出 Shift-JIS的编码具体值。。
Delphi 下如何取得汉字UNICODE扩展编码？ Delphi获取汉字的unicode编码[delphi]view plaincopyDelphi7varn1：Word；W：WideString；beginW：='万'；n1：=Word(WideChar(W[1]))；ShowMessageFmt('%s：%d'，[W，n1])；Delphi2010[delphi]view plaincopyvarn1，n2，n3，n4，n5：Word；beginn1：=Ord('万')；n2：=Cardinal('万')；n3：=Integer('万')；n4：=Word('万')；n5：=LoWord('万')；ShowMessageFmt('%s：%d，%d，%d，%d，%d'，[#19975，n1，n2，n3，n4，n5])；{万：19975，19975，19975，19975，19975}end；
