DELPHI
Delphi 数据类型
在Delphi中，有许多不同的数据类型可供选择，每个数据类型具有不同的特性和用途。以下是一些常见的Delphi数据类型： 1. 整数类型： - `Byte`：无符号8位整数。 - `Shortint`：带符号8位整数。 - `Word`：无符号16位整数。 - `Smallint`：带符号16位整数 ......
delphi FireDAC 分页查询
FireDAC 分页查询 代码 分页查询 procedure TForm1.Button1Click(Sender: TObject); begin //设置每页返回的记录数（获取的最大记录数） FDQuery1.FetchOptions.RecsMax := 20; //获取第1页的数据（从0开始 ......
delphi截取字符串心得
在Delphi的日常开发中，确实经常需要截取字符串来满足不同的需求。Delphi自身提供了一些字符串处理函数，但有时候这些函数可能不够用或者使用起来不够方便。下面我将分享一个自己在Delphi开发中用于截取字符串的进一步封装的函数。 ///////////////////////////////// ......
delphi FireDAC 数据集快速遍历方式
FireDAC 数据集快速遍历方式 代码 遍历数据集 procedure TForm1.Button1Click(Sender: TObject); var vTick: DWORD; I: Integer; vCount: Integer; begin //查询数据 FDQuery1.Open(' ......
delphi orm
delphi orm 以计量单位为例。 1）定义单位data-model，实际当中会有从数据表生成data-model的自动工具。 unit danwei.model; /// <author>cxg 2023-8-30</author> interface type //定义 数据模型(data- ......
delphi FireDAC 调用 Execute 提示 `[FireDAC][SQL Server Native Client 10.0]字符串数据，长度不匹配` 错误
FireDAC 调用 Execute 提示 [FireDAC][SQL Server Native Client 10.0]字符串数据，长度不匹配 错误 问题 调用 Execute 向SQL Server数据库中批量插入数据时，参数中有BLOB 数据类型（ftBlob、ftMemo 等）时，出现 [ ......
DELPHI TSCTreeView的基本应用与FireDAC读取EXCEL文件数据设置
本例需要读取excel中的数据,然后动态的添加到TSCTreeView控件当中 . 最终效果如下图: 核心代码如下: procedure TForm1.FormCreate(Sender: TObject); var n: Integer; t: TTreeNode; I: Integer; beg ......
delphi FireDAC 批量执行命令（批量插入、更新、删除）
# FireDAC 批量执行命令（批量插入、更新、删除） ## 代码 ### 批量插入 ```delphi procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin //建立连接 FDConnection1.Conne ......
delphi泛型实现的接口
delphi泛型实现的接口 type TRest<T: record> = record resource: string; where: string; function select: T; procedure insert(const aRecord: T); procedure update ......
在Delphi上位机软件中 增加采集卡工作状态输出成日志的功能
TApdComPort控件实现了串口的通信 控件有Logging属性决定了当前的日志状态 QDAC QLog可以生成日志 一： 日志发送到远程syslog服务器： var AWriter := TQLogSocketWriter.Create;AWriter.ServerHost := 127.0. ......
delphi FastReport 保存和加载已准备的报表
# FastReport 保存和加载已准备的报表 ## 属性和方法 ### TfrxReport.PreviewPages ```delphi property PreviewPages: TfrxCustomPreviewPages; ``` 指向已完成报表的当前页面的链接。它用于与完成的报表相关 ......
CEF4Delphi（DELPHI Google Chrome 浏览器封装） 折腾 （2）--打开一个网页
打开网页的，折腾了好久，试运行DEMO，就行，把DELPHI的代码抄过来，就是不行，然后把自己弄的 控件名称搞的与DEMO一样，属性全对一样了，还是不行，郁闷很久后，才发现工程文件里面还要加代码。 我的工程名为：OpenChrome 选中工程文件后按CTRL+V，然后做以下修改：下面红色的代码是CE ......
CEF4Delphi（DELPHI Google Chrome 浏览器封装） 折腾 （1）--安装
1、下载：https://github.com/salvadordf/CEF4Delphi/tree/master 2、安装 包：CEF4Delphi-master\packages 目录中，如果不行，全部包都编译一下。 3、下载运行环境：地址 到 https://github.com/salvad ......
Delphi XE UniGUI ExtJS [7] Delhi 动态添加 ClientEvents.ExtEvents 事件
UniButton1.ClientEvents.ExtEvents.Values['click']:='function(sender){alert("Click")}';UniEdit1.ClientEvents.ExtEvents.Values['change']:='function(send ......
DELPHI 文件自动备份工具源码分享
一.工具界面如下(没做UI) 二.设计视图如下: 三.控件说明: 1.使用到了第三方StyleControl控件中的SCGPLabel,SCGPEdit,SCGPCheckBox,SCGPCombobox,SCGPButton,这几个控件如果需要,可替换成秕自带控件.难度-1 2.TrayIcon ......
Delphi获取文件创建时间、文件最后修改时间
procedure TForm1.Button1Click(Sender: TObject);//获取文件创建时间 var FileName: string; ti: Integer; dt: TDateTime; begin FileName := 'D:\test\Test.txt'; ti : ......
delphi FastReport 预览设置
# FastReport 预览设置 ## 属性和方法 ### TfrxPreviewOptions.AllowEdit ```delphi property AllowEdit: Boolean; ``` 启用或禁用已完成的报表编辑。默认值为 *True*。 ### TfrxPreviewOptio ......
delphi泛型实现的变体记录
delphi泛型实现的变体记录 type TRes = record //公共的JSON回复 status: Integer; message: string; exception: string; end; TData<T: record> = record data: array of T; e ......
Delphi 泛型类学习TList<Integer>
https://www.cnblogs.com/bumpkin/p/17261247.html uses generics.collections; var List: TList<Integer>; FoundIndex: Integer; begin { Create a new List. } ......
Delphi正则表达式初学入门
一 前言 对于正则表达式，相信很多人都知道，但是很多人的第一感觉就是难学，因为看第一眼时，觉得完全没有规律可寻，而且全是一堆各种各样的特殊符号，完全不知所云。 其实只是对正则不了解而以，了解了你就会发现，原来就这样啊正则所用的相关字符其实不多，也不难记，更不难懂，唯一难的就是组合起来之后，可读性比较 ......
delphi FastReport 预览显示多报表（非模态、MDI)
# FastReport 预览显示多报表（非模态、MDI) ## 属性和方法 ### TfrxReport.PreviewOptions ```delphi property PreviewOptions: TfrxPreviewOptions; ``` 一组与报表预览相关的属性。 ### Tfrx ......
delphi 自带 的JOSN 序列化 三
TConverterEx<T: class> = class(TJsonConverter) public function CanConvert(ATypeInf: PTypeInfo): Boolean; override; function ReadJson(const AReader: TJ ......
delphi 序列化JSON升级方法
TConverterCommon = class(TJsonConverter) public function CanConvert(ATypeInf: PTypeInfo): Boolean; override; function ReadJson(const AReader: TJsonRea ......
Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性
以后路径相关的处理, 用 IOUtils.TPath 就很方便了. //较常用的方法: TPath.GetTempPath; {获取临时文件夹路径} TPath.GetTempFileName; {获取一个临时文件名} TPath.GetPathRoot(); {提取盘符, 如: c:\} TPat ......
lazarus、delphi文件Http下载断点续传的实现
本文Demo还实现了批量下载文件，同步服务器上的文件到客户端的功能。文件断点续传原理：分块下载，下载后客户端逐一合并，同时保存已下载的位置，当意外中断再次下载时从保存的位置开始下载即可。这其中还要保证，中断后再次下载时服务器上相应的文件如果更新了，还得重新下载，不然下载到的文件是错了。 ......
Delphi 2010 新增功能之: IOUtils 单元(4): TDirectory.GetDirectories
转自万一 https://www.cnblogs.com/del/archive/2009/10/16/1584768.html 和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的. 另外还有 TDirectory.GetF ......
delphi FastReport 打印设置
# FastReport 打印设置 ## 属性和方法 ### TfrxPrintOptions.Copies ```delphi property Copies: Integer; ``` 默认可打印份数。默认值为 *1*。 ### TfrxPrintOptions.Duplex ```delphi ......
Delphi 10.x 提示脚本错误的解决方法
解决办法如下： 10.1版本修改方法： 打开注册表，在cmd中输入regedit,以管理员的身份运行， 找到HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\18.0\Known IDE Packages项， 找到$(BDS)\Bin\CommunityToolb ......
delphi 自带的JSON序列化类
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V ......
DELPHI应用EXCEL（4） 使用TOLEContainer控件
严格的来说，tolecontainer控件并不是一个EXCEL控件，而是一个所有OLE文件的控件，可以用它打开PDF、OFFICE、TXT文件等等。 而且使用OLECONTAINER控件打开的文件，文件内容依旧是一个VARIANT类型的数据。 OLECONTAINER控件在SYSTEM组下。 使用O ......