Delphi/方法
关注
分享
扫一扫
和海风
难得所爱,忠之无悔
展开
-
从系统当前粘贴板中获取文本数据
{ TForm1 }//从系统当前粘贴板中获取文本数据procedure TForm1.GetTextFromClipBoard(var AMsg: TMessage);//uses Clipbrdbegin SendMessage(ATmpHandle, AMsg.Msg, AMsg.WParam, AMsg.LParam); if (Clipboard.HasF原创 2009-09-10 16:39:00 · 953 阅读 · 0 评论 -
汉字区位码
//获取单个汉字的区位码function TForm1.SingleChinese2Code(AChina: string): string;var Hi, Li : Integer; //高位和低位编码begin if Trim(Trim(AChina)) = then Exit; Hi := Byte(AChina[1]) - $A0; //$A0=160原创 2009-09-11 12:53:00 · 307 阅读 · 0 评论 -
统计一段文字内中英文的个数
//统计一段文字内中英文的个数//汉字占两个字节，只判断低位>128就可以判断存在一个汉字function TForm1.CountChinese(AStr: string; AFlag: Integer = 0): Integer;var I : Integer;begin if Trim(AStr) = then Exit; Result := 0;原创 2009-09-11 12:57:00 · 341 阅读 · 0 评论 -
判断有无汉字
procedure TForm1.btn1Click(Sender: TObject);var str: string;begin str := abcd我; IF Length(WideString(str)) <> Length(str) then ShowMessage(有汉字) else ShowMessage(无汉字);转载 2009-09-18 11:44:00 · 273 阅读 · 0 评论 -
注册热键
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton转载 2009-09-18 11:43:00 · 245 阅读 · 0 评论