Delphi-基础（例程、例程返回值）
一、例程：Delphi中独有的称呼，例程是将具体某个功能的代码进行封装表现形式： 1、过程 2、函数 过程和函数的区别在于有没有返回值二、例程的作用 1、可以解决命名冲突问题 2、提高代码的重复使用率 3、提高代码可维护性三、使用历程 1、定义
1 procedure Demo1(); //过程
2 begin
3 ...
delphi SynPDF 文档设置
SynPDF 文档设置
属性和方法
TPdfDocument.CompressionMethod
property CompressionMethod: TPdfCompressionMethod;
用于页面内容存储的压缩方法。
在创建类实例时默认值为 cmFlateDecode。
TPdfCompressionMethod
指定页面内容压缩。
unit
SynPdf
TPdfCompressionMethod = (
cmNone, cmFlateDecode);
cmNone 不压缩 ...
delphi FireDAC 分页查询
FireDAC 分页查询
代码
分页查询
procedure TForm1.Button1Click(Sender: TObject);
begin
//设置每页返回的记录数（获取的最大记录数）
FDQuery1.FetchOptions.RecsMax := 20;
//获取第1页的数据（从0开始，相当于SELECT * FROM tceshi LIMIT 20 OFFSET 0）
FDQuery1.FetchOptions.RecsSkip := 0;
//查询数据
...
delphi简单判断程序30秒没有键盘和鼠标动作示例
以下为原代码： (这里给timer设置了1000ms)的参数，表示30秒的间隔！！ 复制代码 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Timer1: TTimer; procedur ...
Delphi - Indy TIdFTPServer封装类
在Delphi 7开发下有强大的Indy控件，版本为9，要实现一个FTP服务器，参考自带的例子，发现还要写很多函数，而且不支持中文显示文件列表等等。
于是，自己改进封装了下，形成一个TFTPServer类。
源码如下：
1 {*******************************************************}
2 { ...
Delphi 11.1 发布
RAD Studio, Delphi, C++Builder 11.1 ISO https://altd.embarcadero.com/download/radstudio/11.0/RADStudio_11_1_esd_10_8973a.iso
https://blogs.embarcadero.com/announcing-the-availability-of-rad-studio-11-1-alexandria/
昨天下载回iso，安装并试用，一直到现在，感觉是非常好！
安装后，没有安装第 ...
DeWeb --- Hello,World!
1.新建一个DLL，命名为hello.dpr
2.新增一个Form.(File->New->VCL Form - Delphi),建议不要更改单元名称和Form名称，即分别为unit1.pas和Form1
3.在Form1中添加一个Label,设置其Caption为"Hello,DeWeb"
4.将hello.dpr源文件代码更改为
//====================================
library hello;
uses
ShareMem, SysUtils, F ...
一步一步学习使用LiveBindings（7） 实现对JSON数据的绑定
本课将介绍如何从JSON中获取绑定数据源，并且将更新也写回JSON。可以设想一下有一台远端服务器提供JSON数据，Delphi客户端可以接收这些JSON数据，然后转换成数据绑定对象，在应用程序中处理完数据后，将更新的数据序列化为JSON传回远端服务器，很多移动应用使用了这种模式处理服务器端的数据。好了废话少说，开始打开Delphi ...
Delphi 12 Patch1
如果你升级到Delphi12，这个补丁是必须打的。官方也发布了ISO版本，如这个需要重新安装。
https://altd.embarcadero.com/download/radstudio/12.0/radstudio_12_0_inline_116924a.iso
Quality ortal Issues Addresses by This atch (notice QP remains accessible in ...
Delphi TcxComboBox控件说明
Delphi TcxComboBox控件说明
属性：
Text：ComboBox 的文本信息
EditText: 也是给ComboBox 的文本信息赋值，但不同的是 给Text赋值会 触发 Change事件，也会触发 EditvaluesChange事件 ， 而且 EditText只会触发
...
Delphi 的编译指令(1): $DEFINE、$UNDEF、$IFDEF、$ELSE、$ENDIF
Delphi 的编译指令(1): $DEFINE、$UNDEF、$IFDEF、$ELSE、$ENDIF本文转自：http://www.cnblogs.com/awei0611/archive/2009/02/26/1398459.html
一个程序从无到有的过程是这样的: 编辑代码 -> 预处理 -> 编译(成dcu等) -> 链接(为exe等).
什么是预处理? 譬如 VCL 中有很多代码是兼容 Linux 的, 在 Windows 下就需要在 ...
【转】Delphi TClientDataSet的使用
转自：https://www.cnblogs.com/chenmfly/p/4541353.html
1．TClientDataSet的基本属性和方法介绍
1)．FieldDefs: 字段定义列表属性
开发者可通过单击属性编辑器中该属性编辑按钮，或在该控件上单击右键选择弹出菜单中的"Fields Editor"菜单进行字段编辑。设置完此属性后，实际上就相当于定义了表的结构；如果想装入已有的 ...
Delphi实现开源Vector向量容器类
几周前，我在C ++ Builder上写了一篇文章，在那里我完全超出了我的舒适范围，并实现了我的第一个C ++类。
自从我对C ++ Builder产生了兴趣之后，在接下来的几周和几个月中，我将继续使用C / C ++进行冒险，但是与其他许多人一样，Corona病毒迫使我对工作进行不同的优先级排序。所以暂时我的焦点将是Delphi。
在这篇Delphi文 ...
delphi模板开发
delphi模板开发
用模板开发，写代码就是填空题。
让开发变为填空题，这也是AI开发的指导思想。
1）制作模板
/// <author>cxg 2023-10-9</author>
unit db.crud;
interface
uses
System.Classes, System.SysUtils, serialize, yn.log, db.unidacpool, db.unidac,
global;
type
TCRUD<T: record> = record
dbid ...
delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态
delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态。. 出现以上错误，请检查表的时间字段是否可以为NULL，不能为NULL可能出现这个问题，或其他不能为空的字段造成的。Access数据库，文本类型字段，存储字符段超出该字段定义的最大长度报此错误一般都是数据库字段类型设置不当引起，大家可以检查下。
...
[原创]Delphi 目录函数：ForceDirectories 和 CreateDir 的详细介绍
[原创]Delphi 目录函数：ForceDirectories 和 CreateDir 的详细介绍
引用单元：SysUtils
1、CreateDir 创建一个新目录
function CreateDir(const Dir: string): Boolean; //创建一级目录 父目录必需存在
function CreateDir(const Dir: string): Boolean;
begin
Result := CreateDirectory(PChar(Dir), nil);
...
Delphi 10.4.1来了
这是下载地址：
https://altd.embarcadero.com/download/radstudio/10.4/radstudio_10_4_101461a.iso
注册机到qq群：209321818 找。
这个版本有哪些改进呢？按官方的更新文档，在以下几方面提升质量：
1.IDE开发环境，这个不用说，10.4的IDE问问多多
2.LSP(Delphi Code Insight)，这个是10.4的新功能，同IDE一样，只是个初 ...
Delphi - 调用SuperDll 持续更新
调用SuperDll
接上一篇Delphi创建Superdll，将生成的SuperDll.dll文件复制到本工程路径下，创建如下代码进行Superdll各个接口的测试。
创建uSuperDll.pas单元，用来对接DLL，具体看如下代码；
创建Delphi WinFrm窗体，引用uSuperDll.pas单元，窗体界面如下：
WinFrm uMain.pas单元代码：
1 unit uMain;
2
3 interf ...
TIcsMQTTServer
TIcsMQTTServer
基于Overbyte ICS 9.5的TWSocketServer组件，可以高效实现MQTT Broker功能。该方案利用ICS的高并发特性，支持MQTT 3.1.1和5.0协议，适用于IoT边缘设备或自定义Broker场景。
充分利用ICS TWSocketServer的高并发线程池和事件驱动优势，适合IoT边缘设备或自定义Broker场景。ICS作为底座，让开发零门 ...
IDE工具RAD Studio 13 Florence重磅发布：64 位 IDE + AI 组件全面升级！
近日，Embarcadero 正式宣布推出 RAD Studio 13 Florence，同时发布了 Delphi 13 与 C++Builder 13。这一版本带来了 全新的 64 位 RAD Studio IDE、更新的 C++Builder Clang 编译器、全新 Delphi 语言扩展、AI 组件与 AI 助手，并对现有功能进行了全面增强，重点聚焦在&nb ...
