weixin_42611902的博客

cxGrid实现多表头，在网上也有不少文章。但是总感觉不用着不顺手。 结合DBGridEH的多表头实现方法，为了保持两者的兼容（还是个人习惯作祟吧）。主要代码如下： ****一、function AddGridColumn(aGrid: TcxGridTableView; aCaption, aField: string; aWidth: integer = 40; aSumKind: string = ‘’; aVisible: Boolean = True; Edt: Boolean = True; M

1、截取目标字符串中，两个字符串中间的“字符串” function CenterStr(Src:String;Before,After:String):String; var Pos1,Pos2:WORD; begin Pos1:=Pos(Before,Src)+Length(Before); Pos2:=Pos(After,Src); Result:=Copy(Src,Pos1,Pos2-Pos1); end; 2、是否使应用程序随系统启动 var Rego:TRegistry; if n8.Checke