最近翻阅了以前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[
标签： Delphi10
[控件]Cxgrid获取分组小计值
最近有个项目用到比较复杂的统计，开始接触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
Fastreport下出现的一点问题
运行Fastreport时。报表在showreport 出现 cannot use the same dataset for report.dataset and Band.DataSet。 解决方法： 不要设置 frxReport1 的 dataset 属性 ， 在设计数据报表时先引入数据源：打开报表设计器==〉选择菜单[表表]==> [数据…]==>选取报表数据库就可以了 最后要保存才会生效。
安卓下保存参数配置的实现
很多时候我们开发的软件需要向用户提供软件参数设置功能。 对于软件配置参数的保存，如果是window软件通常我们会采用ini文件进行保存。 如果是Android应用，我们最适合采用什么方式保存软件配置参数呢？ Android平台给我们提供了一个SharedPreferences类，它是一个轻量级的存储类，特别适合用于保存软件配置参数。 整体代码如下： unit Unit1; interface uses System.SysUtils, System.Types, System.UI
Delphi 10 下提示SharedActivityContext错误的解决方法
闲来无事，翻了几下高勇的XE移动编程的书和实例。 其中有个检测移动设备有无网络的功能，在编译时提示SharedActivityContext错误。 感觉这个功能还是可以放入到实际中一用的，遂又查资料咯。 最终发现是没有引用这个单元。 uses Androidapi.Helpers; 重新编译，一切都明朗了，明天就尝试给FMX程序增加这个小功能，特此留记。
FMX下与VCL下遍历控件的差异问题
一直都在VCL下写桌面程序，习惯了VCL的语句。 采用FMX写个APP要遍历一次窗体的复选框checkbox有多少处于选中状态，并显示出来。 用Vcl的代码是： procedure TForm1.btn1Click(Sender: TObject); var i: Integer; varstr: string; begin with Form1 do for i := 0 to ComponentCount – 1 do begin if ((Components[i] is T
关于D10上旋转屏幕闪退的解决方法
今天在自己的项目上开发一个APP，放到平板电脑上运行，由于设计时是竖向设计的，当我横着平板时，程序意外退出了，反复好几次都是这样。 隐约记得上次在哪里看到过类似的解决方法，遂又找了下，原来是红鱼儿博客看过。 搬过来吧，备用，转自红鱼儿新浪博客，链接在此。 盒子上有朋友遇到的问题，好心人给出的答案，转贴至此，学习了。以下为全文: 问题： 用D10运行 Application.FormFactor.Orientations:=[TFormOrientation.soLandscape,TFormOr