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

关于Delphi 10 FMX下出现AV错误解决方案

                以前都是在VCL下做的桌面端,最近有需要开发个FMX下的移动多平台的工具。 这就开始了折腾FMX了,平时在VCL下折腾都是不会出现Access violation错误的,怎么到了FMX下,复制粘贴等操作就会报错呢。 网上也没什么关于此的文章。 问周边说是我的安装有问题,思前想后不大可能。 继续网上搜索,可能的跟环境设置有关。 每次重装IDE后,都会在注册表里禁用了一大堆的东西。 这次发

分享个Delphi人民币转大写的函数

                开发到财务方面的东西,往往需要把数值转换成大写金额输出。 网上找了一圈都没发现完美的,尤其是在XE系列下。 发现这个写法还是比较满意的,特分享。   function THxsdj.UPRMB(val: Double): string; {人民币转大写函数}   var     Dig, Dpos, retVal, retValjf: string;     IntPart:

关于装载teechart2015后一直报错的问题

继续重装后的一堆控件部署问题,删除掉原来的teechart自带版本。 点击安装最新的完整版,但是装上后打开其他程序时不时会出现Cannot load package A, it contains unit…错误。 总得想办法搞掉它,最后发现是安装完fastreport,要重编译下,编译时选择teechart的dcu一起编译。 问题解决!

关于Delphi10up1下装Abbrevia控件的解决方案

                Abbrevia是个不错的解压控件,我的所有自动升级程序都是用的这个控件自解压到客户端的。 以前重装IDE后都是利用下getit装下,自动完成。 这几天getit抽风了,下载不了,只能去官网下载一份自己装了。 但是FMX版本能装上,遇到VCL的却始终报错,搞不懂啊,应该不是控件的问题啊,找了很多方法都不奏效。 最终发现是Abbreviavcld230.bpl的默认平台是64位,其他都是

安装MySQL时遇到无法启动服务的解决方案

                今天在官方下载了最新版本的Mysql,5.7版吧,由于不是安装版,要自己设置环境和配置。 环境和配置都设置完毕,就等输入 net start mysql  启动服务时出现,无法启动的问题。 输入 mysqld –console 启动,显示缺少data文件夹,问题就在此了,千万别手动建立。 解决方法如下: 在命令行输入: mysqld &#821