摘要:
一.由于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 :='^$& 阅读全文
摘要:
一.首先令对应的DataSet.BeforeInsert:=InsertData;二.在InsertData中写入procedure TTbfrmMain.InsertData(Dataset:TDataset);begin if (ActiveControl is TDBGrid) then abort; end; 阅读全文
摘要:
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'); 阅读全文