随笔分类 - Delphi
摘要：在一些老的控件包安装后不能支持安卓，是在设置平台中没有选择对应的平台 设置选项是 对应的控件包 [ComponentPlatformsAttribute( pidAndroidArm64)] 对于各个平台 pidWin32 = $00000001; pidWin64 = $00000002; pid
阅读全文
摘要：安装 delphi 12.1 后，编译 FMX Android 程序失败！ 查找原因，SDK配置全是叹号！ 之前用过SDK Manager.exe，直接打开即可以选择下载，但现在发现没有了，查找资料如下方法即可： 1.先进到命令行： 进入到对应目录（根据以下提示，找到你的目录）： CD C:\Use
阅读全文
摘要：Delphi汉化消息提示框的实现方法，例：MessageDlg提示框的汉化： （1）在Delphi的安装目录的\Source\Vcl文件夹中找到Consts.pas（XE后应为Vcl.Consts.pas）单元文件； （2）新建一个工程文件，并保存，将Consts.pas（或Vcl.Consts.p
阅读全文
摘要：1 //根据dxBarManager 的菜单生成 TdxNavBar菜单 2 procedure TfrmMain.GenerateNavBarFromBarManager(dxBarManagerBar: TdxBar; dxNavBar: 3 TdxNavBar); 4 var 5 i, j:
阅读全文
摘要：人民币大写金额转换函数 1 function MoneyToCn(ANumberic: Real): string; 2 const 3 s1: string = '零壹贰叁肆伍陆柒捌玖'; 4 s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; 5 6 function StrTran
阅读全文
摘要：因为要使用richedit 显示不同颜色的日志所以要动态的设置新插入行的颜色 1 frmServerMain.redtLog.Lines.BeginUpdate; 2 // 选择文本所在的位置 3 4 //首先要清除选择行 5 6 1 redtLog.SelStart := frmServerMai
阅读全文
摘要：分页方法，其中 PageSize 为分页大小， PageIndex 页码 ，0 为第一页 ,RecsSkip 可以通过 PageSize * PageIndex 计算出来，如下： procedure TForm1.PagingQuery(Query: TFDQuery; PageSize, Page
阅读全文
摘要：c++builder XE 官方demo最全60多个 http://community.embarcadero.com/blogs?view=entry&id=8761 FireDAC.Comp.Client 用好FDMemTable代替之前的ClientDataSet，以前ClientDataSe
阅读全文
摘要：方法一：使用函数GetRowValue此方法在表格过滤、排序后也正常， 请注意：此代码顺序需要CXGRID的列顺序和ADOQUERY中SELECT的字段顺序一致，否则会取错。 procedure TfrmBillExtraction.pmGetBill_D_DatasClick(Sender: TO
阅读全文
摘要：cxgrid是自带选择框的表格，开启 设置如下。 然后 后台获取 前端选中的记录字段值。用下面语句。 for I := 0 to Gview1.DataController.GetSelectedCount-1 do begin // 第一个值选中的 行 。 第二个值要获取值的字段索引 从 0 开始
阅读全文
摘要：DEV控件确实很漂亮，但是在TcxBarEditItem编辑框录入内容后，必须回车或者TAB键才有效，否则就会消失。 解决办法 1、输入之后按Enter或者TAB键。 2、在onCurChange事件加这句行：cxBarEditItem1.EditValue := cxBarEditItem1.Cu
阅读全文
摘要：GExperts是一组通过扩展集成开发环境（IDE）来提高Delphi和C++ Builer程序员工作效率的工具。是一款开源的IDE扩展专家，由于去外网下载GExperts非常的麻烦，这里直接提供了Delphi7和Delphi11.1下的GExperts安装包，并连带最新源码一起打包，方便大家使用学
阅读全文
摘要：由于Google的Android SDK不再允许其他程序分发。Delphi11安装后，默认是没有Android安卓SDK的，在默认安装路径的情况下，在C:\Users\Public\Documents\Embarcadero\Studio\22.0\CatalogRepository\Android
阅读全文
摘要：方法： 增加控件cxGridPopupMenu，绑定对应的cxgrid ，再增加控件：，右键的菜单内容在此设定。 这里是需要设置在哪些地方可以右键弹出。 设置自定义的右键菜单。
阅读全文
摘要：//恢复布局IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini';if FileExists(IniFileName) thenSelf.tvResult.RestoreFromIni
阅读全文
摘要：TcxGridDBTableSummaryItem 引用单元 cxGridDBTableView
阅读全文
摘要：今天上午才遇到的一个问题，Delphi在debug模式下运行好好的，切换到release模式下竟然无法正确返回？ 把工程设置中的 Optimization 中的勾去掉再编译， 这下Release模式下运行没有问题了。 当然这里只记录了这一种情况，大家如果遇到跟我一样问题的时候不妨试试，看能不能解决问
阅读全文
摘要：一： 日志发送到远程syslog服务器： var AWriter := TQLogSocketWriter.Create;AWriter.ServerHost := 127.0.0.1;//远程服务器地址AWriter.ServerPort := 514; //远程服务器端口AWriter.UseT
阅读全文
摘要：使用mkcert工具创建证书1、下载mkcert工具，下载地址如下： mkcert工具下载 百度下载：链接： https://pan.baidu.com/s/10ym5W91g612LDk3t9isFGQ 提取码：1234 2、解压后运行https本地证书生成工具.bat（文件上点
阅读全文
摘要：Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 1 procedure TForm18.Button2Click(Sender: TObject); 2 var 3 cV: TDatasetToJSONBridge; 4 jo: Tjsonobject; 5 be
阅读全文
浙公网安备 33010602011771号