孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2008年9月23日

在Delphi用vbscript的正则表达式
摘要： 一.由于Delphi本身没有正则表达式单元,可以引用vbscript来使用正则表达式,步骤为1.在project中单击Import Type Library,选中Microsoft VBScript Regular Expression 5.5(version 5.5)2.单击"Create Unit"按钮,生成Unit单元二.新建一工程,导入上面生成的单元(在uses中引用该单元)新建一按钮,在其单击事件中写入var reg:TRegExp; re:boolean;begin reg:=TRegExp.Create(nil); reg.Pattern :='^$& 阅读全文
posted @ 2008-09-23 22:13 孤独的猫 阅读(323) 评论(0) 推荐(0)

让DBGrid不能插入记录
摘要： 一.首先令对应的DataSet.BeforeInsert:=InsertData;二.在InsertData中写入procedure TTbfrmMain.InsertData(Dataset:TDataset);begin if (ActiveControl is TDBGrid) then abort; end; 阅读全文
posted @ 2008-09-23 22:11 孤独的猫 阅读(202) 评论(0) 推荐(0)

调用htmlhelp文件(*.chm)
摘要： function HtmlHelpA(hwndcaller:Longint;lpHelpFile:string;uCommand:Longint;dwData:string):HWND;stdcall;external 'hhctrl.ocx'例句:HtmlHelpA(self.handle,ExtractFilePath(Application.ExeName)+'pbtool.chm',0,'gaishu.html'); 阅读全文
posted @ 2008-09-23 22:09 孤独的猫 阅读(596) 评论(0) 推荐(0)