年度归档： 2016 年

[代码]清除容器内的组件内容

• Delphi • 暂无评论 • •2,021 次查阅

最近翻阅了以前delphi7时代的部分书籍和源码，发现有些东西和源码还是值得借鉴的，特摘录下来，备用。 procedure TFrmSave.ClearItem; //清除容器内的组件内容,容器按自己需要改变 var i: Integer; begin for i := 0 to GBxList.ControlCount – 1 do //选择容器 GBxList begin if GBxList.Controls[i] is TEdit then TEdit(GBxList.Controls[

create

[转载]Delphi Create(参数:nil、self、application)的区别

• Delphi • 暂无评论 • •3,569 次查阅

Create(nil);//需要自己释放 Create(Self);//当Self释放时自动触发释放 Create(Application);//当Application释放时自动释放 Create(nil);//这种方式创建的对象要自己手工进行FREE才会回收内存，其他很多内存泄漏就是忘了手工释放内存 Create(Self);//由self对象负责释放创建的对象，只要self没有释放掉，这个对象的内存就不会被释入掉，除程序员手工进行释放，他会触发很多事件。性能不是很好 Create(Appl

[控件]Cxgrid获取分组小计值

• Delphi • 暂无评论 • •3,158 次查阅

最近有个项目用到比较复杂的统计，开始接触DEV，Dev下有个强大的表格那就是Cxgrid了。 项目上用到对分组小计后的值获取。 研究了半天，代码如下：   var i, j: Integer; ASummary: TcxDataSummary; begin inherited; j := 0; for i := 0 to cxGrid1DBTableView1.DataController.RowCount – 1 do begin if cxGrid1DBTableView1.Dat

证书

[控件]Dbgrideh 内容垂直居中的方法

• Delphi • 暂无评论 • •3,306 次查阅

DBgrideh内容在横向上都能直接设置左右对齐，甚至居中，但是唯独却没有设置内容的垂直居中，这在调整了高度后就会很难看，来段代码解决下。 方法如下： procedure Tform1.reflay;  var   Count: integer; begin   for Count:= 0 to DBGridEh1.Columns.Count-1 do   begin    DBGridEh1.Columns[Count].Layout

Fastreport下出现的一点问题

• Delphi • 暂无评论 • •2,201 次查阅

运行Fastreport时。报表在showreport 出现 cannot use the same dataset for report.dataset and Band.DataSet。 解决方法： 不要设置 frxReport1 的 dataset 属性 ， 在设计数据报表时先引入数据源：打开报表设计器==〉选择菜单[表表]==> [数据…]==>选取报表数据库就可以了 最后要保存才会生效。  

安卓下保存参数配置的实现

• Delphi • 暂无评论 • •3,204 次查阅

很多时候我们开发的软件需要向用户提供软件参数设置功能。 对于软件配置参数的保存，如果是window软件通常我们会采用ini文件进行保存。 如果是Android应用，我们最适合采用什么方式保存软件配置参数呢？ Android平台给我们提供了一个SharedPreferences类，它是一个轻量级的存储类，特别适合用于保存软件配置参数。 整体代码如下：   unit Unit1; interface uses System.SysUtils, System.Types, System.UI

加载更多