📄 delphi_widestring.htm
字号:
<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>DELPHI支持宽字节的演示</title><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none></head><body><center><b><span style=font-family: 宋体, serif; font-size: 12pt>DELPHI支持宽字节的演示!</span></b></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 <a href=mailto:delphifan@990.net>梁 明</a></span></center><hr><ul> <li><b><span style=font-family: 宋体, serif; font-size: 9pt>程序源代码</span></b></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>unit main;<br> <br> interface<br> <br> uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br> <br> type<br> TForm1 = class(TForm)<br> Edit1: TEdit;<br> Button1: TButton;<br> Label1: TLabel;<br> Memo1: TMemo;<br> Button2: TButton;<br> procedure Button1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br> <br> var<br> Form1: TForm1;<br> <br> implementation<br> <br> {$R *.DFM}<br> <br> procedure TForm1.Button1Click(Sender: TObject);<br> var sW:widestring;<br> sL:string;<br> i:integer;<br> begin<br> case (sender as TButton).tag of<br> 10://短<br> begin<br> sL:=edit1.text;<br> if ansipos('〗',sL)<>0 then<br> begin<br> for i:=1 to length(sL) do<br> if copy(sL,i,2)='〗' then<br> begin<br> caption:='Find "〗" at no:'+inttostr(i);<br> break;<br> end<br> end<br> else<br> caption:='短->总'+inttostr(length(sL));<br> end;<br> 20://长<br> begin<br> sW:=edit1.text;<br> if ansipos('〗',sW)<>0 then<br> begin<br> for i:=1 to length(sW) do<br> if copy(sW,i,1)='〗' then<br> begin<br> caption:='Find "〗" at no:'+inttostr(i);<br> break;<br> end;<br> end<br> else<br> caption:='长->总'+inttostr(length(sW));<br> end;<br> end;<br> end;<br> <br> end.</span> </li></ul><ul> <li><b><span style=font-family: 宋体, serif; font-size: 9pt>窗体As Text代码：</span></b></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>object Form1: TForm1<br> Left = 195<br> Top = 107<br> Width = 347<br> Height = 167<br> Caption = '测试<===copyright 梁明'<br> Color = clBtnFace<br> Font.Charset = DEFAULT_CHARSET<br> Font.Color = clWindowText<br> Font.Height = -11<br> Font.Name = 'MS Sans Serif'<br> Font.Style = []<br> OldCreateOrder = False<br> PixelsPerInch = 96<br> TextHeight = 13<br> object Label1: TLabel<br> Left = 16<br> Top = 16<br> Width = 138<br> Height = 13<br> Caption = 'DELPHI支持宽字节的演示!'<br> end<br> object Edit1: TEdit<br> Left = 16<br> Top = 40<br> Width = 297<br> Height = 21<br> ReadOnly = True<br> TabOrder = 0<br> Text = '中国人民解放军〗中华人民共和国'<br> end<br> object Button1: TButton<br> Tag = 20<br> Left = 238<br> Top = 104<br> Width = 75<br> Height = 25<br> Caption = '按长计算'<br> TabOrder = 1<br> OnClick = Button1Click<br> end<br> object Memo1: TMemo<br> Left = 16<br> Top = 72<br> Width = 201<br> Height = 57<br> Lines.Strings = (<br> ' 以上面的文本为例(不可改)'<br> ' ======================='<br> ' 演示DELPHI对宽字符的支持!'<br> '')<br> ReadOnly = True<br> TabOrder = 2<br> end<br> object Button2: TButton<br> Tag = 10<br> Left = 238<br> Top = 72<br> Width = 75<br> Height = 25<br> Caption = '按短计算'<br> TabOrder = 3<br> OnClick = Button1Click<br> end<br> end<br> </span></li></ul><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt>版主：梁明<br> 日期：1999-03-01<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></span></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -