Delphi 下如何取得汉字UNICODE扩展编码？
delphi 字符编码问题 转换成delphi就是附图：1C#中执行的结果，2delphi的执行结果function GB2UniCode(GB：string)：string；vars：string；i，j，k：integer；a：array[1.160]of char；begins：=''；StringToWideChar(GB，@(a[1])，500)；i：=1；while((a[i]<；>；#0)or(a[i+1]<；>；#0))dobeginj：=Integer(a[i+1])；k：=Integer(a[i])；s：=s+Copy(Format('%X '，[k*100+j+$10000])，2，4)；S：=S+Char(k)+Char(j)；i：=i+2；end；Result：=s；end；
delphi编码中的汉字都变成了小方框 9494
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可以通过，如果用高版本编译器略有变化。
