DELPHI
Delphi字符串比较和大小写转换函数
首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 不区分大小写 参考 <NULL> 例子 CheckBox1.Checked := SameText(Edit1.Text, Ed ......
delphi判断服务已经被注册
function IsServiceRegistered(const ServiceName: string): Boolean; var SCM: SC_HANDLE; Service: SC_HANDLE; begin Result := False; // 打开服务控制管理器 SCM := O ......
delphi FastReport 打印当前页（指定页）
# FastReport 打印当前页（指定页） ## 属性和方法 ### TfrxPrintOptions.PageNumbers ```delphi property PageNumbers: String; ``` 要打印的页码。 ## 例子 ### 打印指定页 ```delphi proced ......
delphi FastReport 直接打印（不弹出打印对话框）
# FastReport 直接打印（不弹出打印对话框） ## 属性和方法 ### TfrxReport.PrintOptions ```delphi property PrintOptions: TfrxPrintOptions; ``` 一组与报表打印相关的属性。 ### TfrxPrintOpt ......
delphi 字符串比较函数
# 字符串比较函数 ## 列表 | 方法 | 说明 | 大小写 | | | | | | System.SysUtils.TStringHelper.StartsWith | 返回是否以给定的字符串开头。 | 区分大小写 | | System.SysUtils.TStringHelper.Starts ......
《Delphi精要》pdf版电子书免费下载
本书的核心内容是讲述Object Pascal 和VCL的重、难点知识（即所谓“精要”），集中于第3章、第5章。第2章、第4章阐明相应的一些基本概念，是为初学者而设立。本书也是一本参考手册，包括了“IDE的快捷键列表（2.8）、“编译指令”（3.4）、“VCL消息大全（5.2.4）、“常用函数和过程 ......
delphi7使用rave5.0展现数据库数据报表
时隔多年，回头再次拿起Delphi。使用Delphi7展现Rave设计的报表，尝试了很多次， 目前仅掌握的两种方式： ①不在delphi程序中设置数据库连接组件，直接调用Rave报表文件展现，获取数据是在rave文件中设置数据库连接并完成的（DriverDataView）。（这种还需要补充加载驱动解 ......
delphi model序列和还原
delphi model序列和还原 unit serialize; /// <author>cxg 2022-8-30</author> interface uses System.SysUtils, Grijjy.ProtocolBuffers, System.JSON.Serializers; ......
delphi7使用QuickReport快速生成报表
QuickReport报表组件是Delphi7之前版本广泛使用的数据库报表设计工具组件， 在Delphi7版本中默认没有加载在Delphi7的工具栏上。因此，需要手动安装加载一下，安装QReport组件插件步骤如下： ①在Delphi7中执行菜单[Component]==>[Install Pack ......
delphi 正则表达式
# 正则表达式 ## 代码 ### 匹配 ```delphi uses System.RegularExpressions; procedure TForm1.Button1Click(Sender: TObject); var vMatch: TMatch; begin //匹配正则表达式 vMa ......
Skia For Delphi 6.0 beta 1
这个版本，将是与官方集成后的版本，Skia.pas都改成System.Skia了！爽！！期待Delphi 12的发布！ ......
Delphi 原生支持DataSet导出Json
Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 procedure TForm18.Button2Click(Sender: TObject); var cV: TDatasetToJSONBridge; jo: Tjsonobject; begin cV := ......
Delphi FASTreport 4 自动补空行的方法
写了一个比较简单易懂易调试的补空行的方法 在masterdata的OnAfterPrint加入事件 procedure MasterData1OnAfterPrint(Sender: TfrxComponent);vari,j,k,hh:integer; hs:string; //当前行数begin ......
Delphi 11.3编译旧项目APP安装出错
今天编译一个旧的项目，已经记不得是什么版本的了，2018年项目，编译成功后，在华为HM3.0上安装正常，发给朋友，说安装出错。 开始查原因，发现11.3，生成的targetSdkVersion为32，手工改成非32，如31，30都可以安装。 DelphiTeacher说，加android:expor ......
Delphi 移动窗体
#### 移动窗体 * 使用非标题栏移动窗体(在窗体中增加私有方法,如下) ```delphi procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin DefaultHandler(msg); if Msg.Result=HTCLIENT ......
自定义系统级无窗口全局快捷键热键-Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801-2023年6月9日
自定义系统级无窗口全局快捷键热键-Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801-2023年6月9日 program Project1_SetHotkeyBaiduSyncDisk; uses Forms, Unit1_SetHotkey ......
DELPHI android 小米 解释软件包时出现问题
环境：delphi d11.3 Android SDK 25.2.5 编译出来的APP无法在小米手机上安装，提示：解释软件包出现问题。 经友人指导，在 AndroidManifest.template.xml 文件的 activity 节点加入如图所示的选项，重新编译APP即可。 android:e ......
WebSocket-scgWebSocket For Delphi
#### sgcWebSocket 组件作为商业组件，相对比较成熟，今天研究一下，参考官网地址：https://www.esegece.com * ##### 服务端 >>> sgcWebSocketServer 属性：Bindings 增加监听socket 配置监听Ip地址和端口 Active 激 ......
delphi 回调函数例子 用函数过程作为参数
转：今天有个朋友问我怎么用函数或者过程作为函数的参数呢，我说网上有挺多的，然而他告诉我很多例子运行不起来，我搜了几个测试了下，不知道是不是我自己的软件版本的问题，运行不了，所以自己研究了下，把自己能运行的贴出来，和大家分享分享。 先说说回调函数需要注意的几个步骤吧， 首先要声明一个类型； type ......
Delphi XE TTask的常用方法
Delphi XE TTask的常用方法 1、创建TTask对象使用TTask类需要先创建一个TTask对象，可以通过以下方式创建： task := TTask.Create(procedure begin // 这里编写任务代码 --滔Roy 2023.06.06 end); 2、启动、等待、取消 ......
delphi判断多个CheckBox是否勾选（几种做法）
看到群里网友在问这个问题？尝试写一下代码 1、用FindComponent函数 根据控件名称动态获取对应的控件状态 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; str: string; begin str := '' ......
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放 1、OLEVariant 的空值判定 var v: OLEVariant; begin v := 'TaoRoy 2023'; if VarIsEmpty(v) or VarIsNull(v) then ShowM ......
delphi xe10 提示没有定义DecimalSeparator 的 解决方法
delphi xe10 提示没有定义DecimalSeparator 的 解决方法 只需要把DecimalSeparator前加上FormatSettings变成 FormatSettings.DecimalSeparator；如果提示没有定义ShortTimeFormat，DateSeparato ......
Delphi RandomRange() - 返回指定范围内的随机整数
Delphi RandomRange() - 返回指定范围内的随机整数 单元：math 原型： function RandomRange(const AFrom, ATo: Integer): Integer; begin if AFrom > ATo then Result := Random(A ......
如何使用delphi编译heidisql
本次使用delphi 11.3版本，delphi的社区版已经免费下载了，申请完之后官方会把下载地址和序列号发到邮箱中 1）下载安装过于简单就不写了 2）git拉取heidesql的源代码 3）delphi加载并安装SynEdit，点击Open Project后加载SynEdit.groupproj ......
Delphi-判断一个对象是否释放，改造官方的Assigned
直接上例子了，基础知识自己去了解，首先定义一个类： TPerson = class public name: string; age: Integer; constructor Create(name: string; age: Integer); end; constructor TPerson. ......
delphi FastReport 综合报表（批量预览、打印）
# FastReport 综合报表（批量预览、打印） ## 属性和方法 ### TfrxReport.ShowPreparedReport ``` procedure ShowPreparedReport; ``` 显示之前通过`PrepareReport` 调用构建的报表。 > 当报表组件构建报表 ......
Delphi SynCrtSock TWinHTTP
TWinHTPP /// a class to handle HTTP/1.1 request using the WinHTTP API// - has a common behavior as THttpClientSocket() but seems to be faster// over a ......
Delphi 12 最新消息
1.新版本将集成Skia4Delphi。 这绝对是有史以来最重要的更新，官方通过深度集成Skia4Delphi，将实现更高质量的界面，更有效率的界面，从此，毛刺现象将成为历史！ 2.C++将集成Visual Assist。 这结于C++用户来说，绝对的福音！ 3.RTL，IDE，Compiler，P ......