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公 ...
delphi model
delphi model
model就是record（记录或结构体）。model来源于以下几种途径。面向model编程适用于任何开发语言。
1）人工书写model。
type
Ttunit = record
[Serialize(1)] unitid: string;
[Serialize(2)] unitname: string;
end;
TtunitArray = record
[Serialize(1)] status: integer;
[Serializ ...
Delphi 新语法：泛型
这里的新语法一般指Delphi7不支持的语法，高版本中会经常遇到，所以花一点时间学会使用它。泛型是一种特殊的类型。你不用一开始就指明参数的具体类型，而是先定义一个类型变量，在使用的时候再确定参数的具体类型。准备从万一博客中学习，节约翻找资料的时间。
最简单的泛型
一开始我们看下Tbyte类型的定义
继续看一下 ...
delphi 常用控件属性设置说明
常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Class TADOStoredProc Class TButton Class TBitBtn Class TComboBox Class ...
delphi TMS FlexCel 导出PDF设置
TMS FlexCel 导出PDF设置
属性和方法
TFlexCelPdfExport.Compress
property Compress: Boolean
当为true时，PDF文件将被压缩。默认值 true。
TFlexCelPdfExport.PageLayout
property PageLayout: TPageLayout
设置打开文档时的默认页面布局。
TPageLayout
首次打开文档时的查看器设置。
unit
FlexCel.Pdf
None 保持用户 ...
delphi 各新版本特性收集(转)
Delphi XE6新增了一些特性并增强了原有的功能，主要有以下几个方面：
IDE（整合开发环境）
Internet
XML（扩展标记语言）
Compiler（编译器）
COM/Active X
Database support（数据库支持）
CORBA
Actions（动作）
Custom Variants（可定义的可变类型）
VCL 单元和特性
RTL单元和特性
Cross-platform develop ...
Delphi，从1994到2022，20多个版本，经历了这些变化(转)
Delphi，有人说它消失了，也有人说它成为了小众化的软件，也有人说，只是我们不再使用它，在国外，它还是一门很受欢迎的软件； 无论怎样，Delphi曾经是一门非常受欢迎的应用程序开发工具，今天，我们一起来了解它，28年来，它的变化。
Delphi是由Borland推出的可视化编程环境，许久之前，了解过Pascal ...
Delphi各个版本和发展历史（转）
Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（I ...
Delphi 11.2应用体验报告
Delphi 11.2按个人预期发布了！
官方下载地址：https://altd.embarcadero.com/download/radstudio/11.0/RADStudio_11_2_10937a.iso，
注册机可以去QQ群下载。
安装过程：如果你从11.1安装，则是无缝升级，备份一下Library路径即可，因为我发现，直接安装，会丢了android library路径。用原版安装，速度还可以，除了我遇到 ...
Delphi 通用 Hook 库
武稀松、Super的开源作品，这里直接拿来用，感谢作者。
学习研究
内嵌反汇编引擎，可以智能识别抹掉几句汇编代码处理做hook跳转，自动保存被抹掉的汇编代码方便恢复原调用。
支持对API的hook，这个比较简单，注意好函数参数与返回值以及调用约定。
支持对某一个地址hook，这个hook到我们自己函数的时候需要注意堆栈平衡， ...
