发布时间：2018年04月10日 21:32:48分享人:涐不怕输丿来源:互联网28
unit ConUnicode; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Label4: TLabel; Label5: TLabel; MaskEdit1: TMaskEdit; MaskEdit2: TMaskEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //汉字转换 procedure TForm1.Button1Click(Sender: TObject); var wp:widestring; ww:widechar; we:string; ii:word; begin we:=trim(edit1.Text); wp:=we;// 转换为widechar字符串 ww:=wp[1]; //取widechar字符 ii:=ord(ww); //取得widechar序数 maskedit1.text:=inttostr(ii);//显示十进制unicode内码 label4.Caption:=inttohex(ii,4); //显示十六进制unicode内码 ii:=ord(we[1])*256+ord(we[2]); //计算GBK内码 maskedit2.Text:=inttostr(ii); //显示GBK内码 label5.Caption:=inttohex(ii,4) //显示十六进制GBK内码 end; //unicode码转化 procedure TForm1.Button2Click(Sender: TObject); var ww:widechar; dd:integer;ws:string; begin dd:=strtoint(trim(maskedit1.Text)); //转为整型 if dd>65535 then showmessage('数值超出范围') else begin label4.Caption:=inttohex(dd,4); //显示十六进制unicode内码 ww:=widechar(dd); //转换为unicode字符 edit1.Text:=ww; //显示字符 ws:=ww; //转换为GBK字符串 dd:=ord(ws[1])*256+ord(ws[2]); // 计算GBK内码 maskedit2.Text:=inttostr(dd); //显示GBK内码 label5.Caption:=inttohex(dd,4); //显示十六进制GBK内码 end; end; //转换GBK码 procedure TForm1.Button3Click(Sender: TObject); var ww:widestring; dd:integer;ws:string; begin dd:=strtoint(trim(maskedit2.Text)); //转为整型 if dd>65535 then showmessage('数值超出范围') else begin label5.Caption:=inttohex(dd,4); //显示十六进制GBK内码 ws:=chr(dd div 256)+chr(dd mod 256); //转化字符 edit1.Text:=ws; //显示字符 ww:=ws; //转换为unicode字符 dd:=ord(ww[1]); //取得widechar序数 label4.Caption:=inttohex(dd,4); //显示十六进制unicode内码 maskedit1.Text:=inttostr(dd); //显示GBK内码 end; end; end.
爱华网本文地址 » http://www.aihuau.com/a/25101012/139441.html
更多阅读
怎么从网上免费下载电视剧——简介怎么免费从网上下载电视剧呢？由于受某些限制，通常大部分视频网站都没有提供电视剧的批量下载功能，对于那些想把电视剧下载到本地观看的朋友，可以说是一种煎熬。今天小编就支招帮大家解决这个问题，分享一
360：[1]如何从官网下载安装新版360安全卫士——简介前言：360安全卫士更新升级了，木马防火墙、网盾及安全保镖合三为一，安全防护体系功能大幅增强。那么，如何从官网下载安装新版360安全卫士呢？360：[1]如何从官网下载安装新版360安全卫士
怎么从电脑上下载游戏到手机上——简介通常将从电脑上下载的游戏安装到手机上有两种方法，一种是利用手机自带APK安装器进行安装，另一种方法是利用相应的手机管理类软件来实现。下面就来看一下具体的实现方法。怎么从电脑上下载游戏到
我的微信二维码在哪里？从哪里可以找到？——简介我的微信二维码在哪里？从哪里可以找到？如何找到手机微信二维码？如何获取二维码？我的微信二维码在哪里？从哪里可以找到？——工具/原料智能手机
海伦的发现英语口语世界《从零开始学口语》参加演示（主讲）的有来自美国的Jennifer詹妮弗(女子名,涵义:施魔法的女人;迷人的女人)LeslieAnn莱斯利安/Gary加理(男子名,涵义:带枪矛的)1）Let's句型由LeslieAnn莱斯利安和徐海论主讲Let'sdo.
爱华网