DELPHI模板编程
DELPHI模板编程
procedure TCRUD<T>.execsql(OnTableModel: TTableModel);
//执行事务性SQL
begin
if req.Body = nil then
Exit;
var pool: TDBPool := GetDBPool(dbid); //database pool
db := pool.Lock;
try
try
table := serialize.TSerial<TTable<T>>.unjson(TStream(req.Body)); //json str ...
delphi 路径操作函数
路径操作函数
System.SysUtils.AnsiCompareFileName
根据当前语言环境比较文件名。
在 Windows 下不区分大小写，在 MAC OS 下区分大小写。
在不使用多字节字符集 (MBCS) 的 Windows 区域设置下，AnsiCompareFileName 与 AnsiCompareText 相同。在 MAC OS 和 Linux 下，AnsiCompareFileName 与 AnsiCompareStr 相同。
begi ...
Delphi中 TStringList 的详细用法
TStringList 类是在Delphi使用最厂的一个对像，我们这里一起来看看 TStringList 的详细用法.
先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
TStringList 常用方法与属性:
var
...
delphi泛型模板编程
delphi泛型模板编程
泛型模板编程的关键：泛型作用体现在模板，体现在虚实之间相互转换。以虚御实，以实立虚，虚中有实，实中有虚，虚事实做，实事虚做。框架、流程。。无不如此，编程之道。
unit TxInfo;
interface
uses
System.Types,
System.Classes,
System.SysUtils,
Generics.Collections;
type
TPeopl ...
Delphi:cxGrid的使用方法
Delphi:cxGrid的使用方法
1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1的customize中的summary 的footer.add需要合计的列kind= skSum3. 去掉cxgrid 中的过滤下拉箭头选择tableview1.optionscustomize.column ...
delphi Base64转换（加密、解密）
Base64转换（加密、解密）
代码
字符串加密、解密
uses System.NetEncoding;
procedure TForm1.Button1Click(Sender: TObject);
var
str1, str2: string;
begin
//加密
str1 := TNetEncoding.Base64.Encode('测试数据');
Memo1.Lines.Add('加密数据 ' + str1);
//解密
str2 := TNetEncoding.Base64.Decode(str ...
delphi 操作INI文件
转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客
Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。
一、INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个 ...
delphi json用法详解
在 Delphi 中，使用 JSON（JavaScript Object Notation）可以实现数据的序列化和反序列化，以便在不同系统之间传递和存储数据。下面是使用 Delphi 处理 JSON 的一些常见用法：
创建 JSON 对象：
var
jsonObject: TJSONObject;
begin
jsonObject := TJSONObject.Create;
try
jsonObject.AddPair('name', 'John');
jsonObje ...
Delphi 数据类型
在Delphi中，有许多不同的数据类型可供选择，每个数据类型具有不同的特性和用途。以下是一些常见的Delphi数据类型：
1. 整数类型：
- `Byte`：无符号8位整数。
- `Shortint`：带符号8位整数。
- `Word`：无符号16位整数。
- `Smallint`：带符号16位整数。
&nbs ...
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截取字符串心得
在Delphi的日常开发中，确实经常需要截取字符串来满足不同的需求。Delphi自身提供了一些字符串处理函数，但有时候这些函数可能不够用或者使用起来不够方便。下面我将分享一个自己在Delphi开发中用于截取字符串的进一步封装的函数。
/////////////////////////////////////
//提取字符串中指定子字符串前的字符串
fu ...
delphi orm
delphi orm
以计量单位为例。
1）定义单位data-model，实际项目，为了加快开发速度，会使用工具从数据表自动生成data-model。
生成的计量单位data-model
unit danwei.model;
/// <author>cxg 2023-8-30</author>
interface
type //定义 数据模型(data-model)
Tdanwei = record
unitid: string;
uni ...
delphi FastReport 预览设置
FastReport 预览设置
属性和方法
TfrxPreviewOptions.AllowEdit
property AllowEdit: Boolean;
启用或禁用已完成的报表编辑。默认值为 True。
TfrxPreviewOptions.AllowPreviewEdit
property AllowPreviewEdit: Boolean;
在报表预览中启用就地编辑器。允许用户在没有报告报表设计器的情况下编辑准备好的报表文本和其他属 ...
delphi FastReport 打印设置
FastReport 打印设置
属性和方法
TfrxPrintOptions.Copies
property Copies: Integer;
默认可打印份数。默认值为 1。
TfrxPrintOptions.Duplex
property Duplex: TfrxDuplexMode;
全局双工设置。仅在准备报表后设置。
TfrxPrintOptions.PrintMode
property PrintMode: TfrxPrintMode;
打印模式。默认值为 pmDefault。
Tf ...
Delphi应用EXCEL（3） 使用OLEOBJECT
1、创建EXCEL的方法
首先创建 Excel 对象，使用单元ComObj :
Var
ExcelApp : Variant ; begin
ExcelApp := CreateOleObject ( '' Excel.Application '' ) ;
使用OLEOBJECT创建的EXCEL应用程序是一个Variant类型，所以DELPHI不能自动补充语句，也没有帮助文件，需要到visual basic中去寻求帮助，完成功能语句的调用。 ...
delphi应用EXCEL（2） 使用delphi控件
Delphi的excel控件在servers面板中，有些版本的DELPHI中未打开这些控件，但都是安装了的，手动去打开即可。
在servers控件选项页面中，选择ExcelApplication、ExcelWorkbook和ExcelWorksheet这3个控件。
ExcelApplication：用于启动/关闭EXCEL应用程序。
ExcelWorkbook：用于连接工作薄。
ExcelWorksheet：用于连接工作表 ...
使用Delphi编写DLL劫持内存补丁
在有些破解程序时，不能暴力修改程序，修改后，程序就不能正常运行，因为很多程序启动时有自我的校验，但是当程序加载到内存后，在内存中修改相应的地方就可以达到破解的效果。那么怎样在不破坏程序的前提下，达到修改程序呢？
当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分析可执行 ...
delphi常用函数大全
delphi常用函数大全（转）
Abort函数引起放弃的意外处理
Abs函数绝对值函数
AddExitProc函数将一过程添加到运行时库的结束过程表中
Addr函数返回指定对象的地址
AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列
Align属性使控件位于窗口某部分
Alignment属性控件标签的文字位置
AllocMem函数在堆栈上分配给定大 ...
delphi如何把json传递过来的base64值转成图片
资料来原：
https://blog.csdn.net/red_eye/article/details/129634709 delphi如何把json传递过来的base64值转成图片
https://blog.csdn.net/zisongjia/article/details/103423915 Delphi 读取PNG base64编码文件生成图片
delphi如何把json传递过来的base64值转成图片
在Delphi中， ...
delphi 字符串比较函数
字符串比较函数
列表
方法
说明
大小写
System.SysUtils.TStringHelper.StartsWith
返回是否以给定的字符串开头。
区分大小写
System.SysUtils.TStringHelper.StartsText
返回是否以给定的字符串开头。
不区分大小写
System.SysUtils.TStringHelper.EndsWith
返回是否以给定的字符串结尾。
区分大小写
System. ...
