📄 readme.htm
字号:
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>还有一点要说明：汉字字符串中可以有英文字母，它们将不作处理。<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>下面的例子查询Edit1中的汉字编码(Delphi)：<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">unit unit1;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">interface<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">uses<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>forms, StdCtrls, Classes, Controls,dialogs;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">type<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>TForm1 = class(TForm)<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>Edit1: TEdit;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>Button2: TButton;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>Button1: TButton;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>procedure Button2Click(Sender: TObject);<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>procedure Button1Click(Sender: TObject);<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>private<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>public<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>end;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">var<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>Form1: TForm1;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">procedure<span style="mso-spacerun: yes">
</span>getbm(var str : shortstring; sel : integer); external 'AutoWBPY.dll';<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">implementation<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">{$R *.DFM}<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">procedure
TForm1.Button2Click(Sender: TObject);<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>{s 既当输入又当输出}<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">var<span style="mso-spacerun: yes">
</span>s<span style="mso-spacerun: yes"> </span>: shortstring;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">begin<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span><span style="mso-tab-count: 1"> </span>s := Edit1.Text ;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-tab-count: 1">
</span>getbm( s , 4 );<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">showmessage('拼音完整编码是：'
+ #13 + s);<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">end;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">procedure
TForm1.Button1Click(Sender: TObject);<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span>{s 既当输入又当输出}<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">var<span style="mso-spacerun: yes">
</span>s<span style="mso-spacerun: yes"> </span>: shortstring;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">begin<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span><span style="mso-tab-count: 1"> </span>s := Edit1.Text ;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-tab-count: 1">
</span>getbm( s , 1 );<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-spacerun: yes">
</span><span style="mso-tab-count: 1"> </span>showmessage('五笔开头字母是：'
+#13 + s);<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">end;<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">end.<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt">-------------------------------------------------------------------<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"> <O:P>
</span></p>
</div>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-tab-count: 7">
</span>汇款地址：广西宜州市三岔中学<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-tab-count: 1"> </span><span style="mso-spacerun: yes">
</span>收款人：韦建琨<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-tab-count: 7">
</span>主页：<b><span style="COLOR: red"><a href="http://www.kekun.com/">http://www.kekun.com</a></span></b><span style="mso-tab-count: 3"> </span></span></p>
<p class="MsoPlainText"> <span style="mso-tab-count: 3; font-size: 12pt" lang="EN-US">
</span><span lang="EN-US" style="FONT-SIZE: 12pt">电话：013707788741
013087782244<O:P>
</O:P>
</span></p>
<p class="MsoPlainText"><span lang="EN-US" style="FONT-SIZE: 12pt"><span style="mso-tab-count: 7">
</span>E_mail :<b><a href="mailto:kun_ke@sina.com">kun_ke@sina.com</a><span style="mso-spacerun: yes">
</span><a href="mailto:kekun@sohu.com">kekun@sohu.com</a></b><O:P>
</O:P>
</span></p>
</body>
</html>
Kq#冢娤悩⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -