摘要：
查看ehgrid源码procedure TCustomDBGridEh.DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); ....... //modify by mofen if CheckBoxGrayAsUnChecked and (Column.CheckboxState = cbGrayed) then begin //如果是灰色状态 PaintButtonControl {Eh}(Canvas.Handle, ARect1, Can 阅读全文
摘要：
tomcat配置虚拟路径的4种方法在tomcat中，webapp文件夹默认为web应用的根目录。1.在tomcat\conf\server.xml中找到 host标签，在host标签中增加新的元素<Context/>并设置 Context的元素，其中path元素所设置的值就是在浏览器中所要访问的虚拟路径的名称；docBase元素所对应的值就是web应用所在的具体目录，这里既可以的相对webapp的相对路径，也可是文件的绝对路径。<Engine name="Catalina" defaultHost="localhost">.... 阅读全文
摘要：
1TFMDesign=class(TFMBase,IDataSetOperator)2public3//注意名称要不一样,重新定义保存方法4procedureIDataSetOperator.DoApplyUpdates=ApplyUpdates;56//重写保存方法7procedureApplyU... 阅读全文
摘要：
在设计器中View->Options中调整Grid的大小默认为0.1mm，调成0.01后可以进行微调 阅读全文
摘要：
先来段代码typeMyString=AnsiString;PMyChar=PAnsiChar;procedureTForm2.Button2Click(Sender:TObject);varp:PMyChar;s,s2:MyString;beginself.Caption:='frmTest';//7位的字符串p:=GetCaption;s2:=p;//这是时候s2为frmTesShowMessage(s2); //*****显示出来为frmTesend;functionTForm2.GetCaption:PMyChar;vars1,s2:MyString;begins2:=M 阅读全文
摘要：
var ws: WideString; s: AnsiString; pw: PWideChar; p: PAnsiChar;begin ws := 'ab中cd'; pw := PWideChar(ws); s := ws; //p:=PAnsiChar(s); 正确 //p:=PAnsiChar(String(pw)); //不正确 p := PAnsiChar(pw); //这样转换，inc(p)后 显示的为00对应的为空 inc(p, 1); // ShowMessage(p^);双字节a:6100单字节a:61 阅读全文
摘要：
functionTStrIntfHashMap.Remove(constKey:string):IInterface;varBucket:PStrIntfBucket;I:Integer;{$IFDEFTHREADSAFE}CS:IInterface;{$ENDIF}begin{$IFDEFTHREADSAFE}CS:=EnterCriticalSection;{$ENDIF}Result:=nil;ifKey=''thenExit;Bucket:=@(FBuckets[FHashFunction(HashString(Key))]);forI:=0toBucket.Count 阅读全文
摘要：
//转自http://www.cnblogs.com/MurphyAefe/articles/1741825.html{ 说明：该事例实现的效果，在单个应用或代码量小的项目中，可以完全不用接口委托来完成。 之所以采用委托接口，主要是应用到：已经实现的接口模块中，在不改变原有代码的情况下， 需要对其进行扩展；原始模块只需要开放部分功能，但又不能暴露实现细节的场合；}unit TestUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt 阅读全文
摘要：
ALTER DATABASE CXFX_DATASET ALLOW_SNAPSHOT_ISOLATION ONALTER DATABASE CXFX_DATASET READ_COMMITTED_SNAPSHOT ON//原来帮助里面写了，执行该语句时不能有其他东西连接数据库，难怪前几次执行了N久都没有反应,帮助没看仔细 阅读全文
摘要：
自己写的declare@countintDECLARE@SQLStringnvarchar(500),@TableNamevarchar(100)SELECTtop1@TableName=namefromsysobjectswherextype='u'SELECT@SQLString='select@innercount=count(1)from'+@TableNameEXECUTEsp_executesql@SQLString,N'@innercountintOUTPUT',@innercount=@countOUTPUTselect@Tabl 阅读全文