delphi类助手helpers，这个NB，省事、大幅提高效率
1、我们会想要能够对一个数据型别进行扩充，而不想继承类别。
2、如果我们想为一个组件类别加入新的方法，为它提供新的功能，而且不想通过继承来做。(如对TFDMEMTable增加方法等，你就得继承做处理，or做成控件进行安装...很繁琐）
那就使用class或者Record助手：
这些特殊用途的数据型别能够延伸现有的 ...
delphi 删除目录（文件夹）
删除目录（文件夹）
代码
调用 RmDir 删除目录
procedure TForm1.Button1Click(Sender: TObject);
begin
//创建测试目录
ForceDirectories('D:\测试目录1\目录1');
ForceDirectories('D:\测试目录1\目录2');
//删除空目录
RmDir('D:\测试目录1\目录1');
//删除非空目录报错
try
RmDir('D:\测试目录1');
...
delphi 创建目录（文件夹）
创建目录（文件夹）
代码
调用 MkDir 创建目录
procedure TForm1.Button1Click(Sender: TObject);
begin
//创建目录
MkDir('D:\测试目录1');
//如果目录存在时引发异常
try
MkDir('D:\测试目录1');
except
ShowMessage(Exception(ExceptObject).Message);
end;
//父目录不存在时引发异常
try
M ...
delphi+FPC一个纯key-value二进制存储
delphi+FPC一个纯key-value二进制存储
适用于DELPHI和FPC。
众所周知，JSON就是典型的key-value存储。
{
"name":"咏南" ,
"url":"www.咏南中间件.com"
}
笔者弄了一个DELPHIkey-value二进制存储。
可用于数据序列/还原、缓存数据，方法参数传递。。。
TSerialize = class
private
fValue: TBytes;
fKey: ...
delphi通过方法名调用方法
delphi通过方法名调用方法
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
type
TFunc = procedure(Param: string) of object; //定义方法原型
TForm1 = cl ...
【最新】Delphi XE7 绿色版下载，亲测可用！
最后更新时间 2017-12-05.
本文整理自2ccc盒子iny的帖子 → 链接到原贴
破解 → 链接
一、绿色版介绍
绿色版除了不包含 FastReport（RAD Studio自带的FastReport为精简版），其它均为完整版，没有做任何的精简，也没有做任何的改动！
绿色版包括了绿化程序1.0版(RADStudioXE7Green.exe)，如有更新，仅仅只需要更新RADSt ...
C#.NET制作DLL供DELPHI调用
因为工作需求，本来想用C#做一个WebService，但是弄了两天没做成。于是想，反正都是我这一台电脑，做个DLL吧。
1 namespace U8Service
2 {
3 public interface IMyFunc
4 {
5 int Jia(int a, int b);
6 int Jian(int a, int b);
7 }
8 [ClassInterface(ClassInterfaceType.None)] ...
mormot2ORM
mormot2ORM
unit mormot.orm.core;
/// root class for defining and mapping database records
// - inherits a class from TOrm, and add published properties to describe
// the table columns (see TPropInfo for SQL and Delphi type mapping/conversion)
// - this published properties can be auto-fill ...
mormot118ORM
mormot118ORM
unit mORMot;
/// root class for defining and mapping database records
// - inherits a class from TSQLRecord, and add published properties to describe
// the table columns (see TPropInfo for SQL and Delphi type mapping/conversion)
// - this published properties can be auto-fille ...
delphi 浮点类型比较，判断是否为零
浮点类型比较，判断是否为零
代码
比较浮点数
procedure TForm1.Button1Click(Sender: TObject);
var
d1, d2: Double;
begin
d1 := 1.2345;
d2 := 1.2346;
//判断浮点数是否相等（误差小于0.0001）
if SameValue(d1, d2, 0.0001) then
Memo1.Lines.Add('相等')
else
Memo1.Lines.Add('不相等');
// ...
delphi 判断字符串是否包含汉字，正则版与非正则版实现
代码一
//正则版
uses RegularExpressions; //相关单元
function IsChineseStr(s: String): Boolean;
const
pattern ='[\x{4E00}-\x{9FA5}]'; //测试用的表达式
begin
Result:=false;
if TRegEx.IsMatch(s, pattern) then
begin
Result:=True;
end;
end;
//非正则版
function isChina(S: string): Boolean;
var
pSt ...
delphi 判断字符串是否为纯字母组合的函数
代码一
function IsEnCase(Vaule:String):boolean; //判断字符串是否为纯字母组合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //准备循环
begin
if ( Vaule in ['A'..'Z']) or ( Vaule in ['a'..'z']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回
begin
result:=true; ...
delphi 判断字符串是否为纯数字组合
核心代码
function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //准备循环
begin
if ( Vaule in ['0'..'9']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回
begin
result:=true; //返回值 不是
end
...
Delphi(lazarus) TStringHelper用法详解(转载)
Delphi(lazarus) TStringHelper用法详解
Delphi XE4的TStringHelper，对操作字符串进一步带来更多的方法，使用这些方法才可以实现跨平台的代码。
Delphi引用单元:System.SysUtils.TStringHelperLazarus引用单元:SysUtils
大小写转换:--------------------------------------------------------------------------------&n ...
delphi D11编程语言手册 学习笔记(P344-392) 接口/类操作
这本书可以在 Delphi研习社②群 256456744 的群文件里找到. 书名: Delphi 11 Alexandria Edition.pdf
置顶: 好烧脑啊!
P344-365 接口
"接口" 的概念和 "类" 特别是 "抽象类" 近似, Delphi 之初并没有接口, 后来(Delphi 3)为了支持 COM 引入了接口, 再后来发展成为 Delphi 重要的语言特性.
使用 COM ...
学习Delphi原生JSON框架(一) TJsonValue
一、前言
Delphi自带了json支持，引用System.json，你就可以处理json，读写json格式的内容都是被支持的。发展了几个版本，无论性能及稳定性都已经成熟，我不喜欢引用更多的三方到项目中，所以，对于Delphi处理json来说，自带的是我的首选。
目前，Delphi Json的实现，支持json所有的类型：
TJSONObject
TJSONArray
TJSONNum ...
Delphi IdTCPClient[1] 介绍、属性、方法
Delphi IdTCPClient[1] 介绍、属性、方法
1、介绍
实现TCP客户端。TIdTCPClient封装了一个完整的TCP（传输控制协议）客户端，包括socks支持。TIdTCPClient可以用作特定协议实现的祖先类。许多Indy客户端组件，如TIdDayTime、TIdEcho、TIdFinger、TIdFTP、TIdGopher、TIdPHTTP、TIdNNTP、TIdPOP3、TIdQUOT、TIdSMTP、TIdTeln ...
delphi 正则表达式的使用方法
本文写于2022-10-14,D版本10.3.3
引用单元:
uses System.RegularExpressions
1、TRegEx.Match方法
Match()方法总是获取满足条件的第一个匹配，而不关心满足条件的匹配有多少个。
Match()方法都回一个Match对象，其中包含了匹配的各种细节.
Match()方法的取值方法
var
m:TMatch;
begin
m := TRegEx.Match('a1 ...
Delphi SuperObject json操作类的基本用法
Delphi2009中开始提供了json支持，但并不完善，提供的单元为（Delphi 2009-Delphi XE4 为DBXJson,很不好用，当时据说是为Datasnap开发准备，方法功能不完善，缺少比如XE5以上版本（System.json)中所提供的GetValue等方法。所以经过各种测试json官方提供的几个单元，比如ljkjson等。最终发现还是SuperObject最好用。 ...
Delphi语言 历史与发展前景
转载:https://www.cnblogs.com/bolang100/p/9804938.html
自1995年Borland公司发布Delphi 1.0以来，Delphi受到很多开发者的亲睐，到1999年发布Delphi5，Delphi以其开发快捷、控件丰富、易于上手等优势吸引了众多的开发者，用户人数达到高潮，一度超越Visual Studio。可是好景不长，在推出Delphi7之后不久，Borland公 ...
