DELPHI
在Delphi中使用正则表达式校验中文姓名
uses system.RegularExpressions; function IsChineseName(const aName:string; const aMaxLength:Integer=10):Boolean; begin var Pattern := '^[\x{4E00}-\x{9 ......
小甲鱼delphi学习作业20《浅谈过程与函数01》
一、效果图 二、知识点 1.过程在 Delphi 中，运行结束后没有返回值的子程序称为过程，过程有三种类型： 标准过程 - 系统内部已经定义好的过程，在需要的时候直接调用即可。 事件过程 - 当对象接收到某个动作时常数一个事件，自动执行该对象事件的一段程序，这段程序就是一个事件过程。 自定义过程 - ......
小甲鱼delphi学习作业19《冒泡排序》
作业源码： 一、程序框图： 二、代码 1、提取编辑框数据到数组 1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 i:Integer; 4 begin 5 temp:=''; 6 Str:=Trim(edit1.Text); 7 k: ......
delphi 注册类 RegisterClass
在delphi中如何动态建立类的实例 weixin_33962621于 2017-11-07 20:26:00 发布阅读量426 收藏点赞数 文章标签： c/c++ 版权 在面向对象语言中，用两种方法建立类的实例：静态建立和动态建立。静态建立就是在程序中显式地建立类的实例，如c1 = TClass1 ......
delphi 判断字符串里的char是单字节还是双字节的前一位或后一位。
function ByteType(const S: string; Index: Integer): TMbcsByteType; // 判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或后一位。 // mbSingleByte 单字母 // mbLeadByte 双字节第一位 / ......
delphi判断进程和杀进程函数
function TMainForm.CheckTask(ExeFileName: string): Boolean; //检测XX进程是否存在函数const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THa ......
使用 Docker 在 Linux 上运行 Delphi 应用程序
从 Rad Studio 10.2 Tokyo 开始，可以编译和运行 Linux 服务器应用程序（无用户界面）。我们将使用 Ubuntu 准备一个 docker 映像， 以及通过 PAServer 在 Linux 上运行 Delphi 应用程序所需的一切。使用 Docker，我们可以将这些应用程序在 ......
delphi 自定义光标
自定义光标 代码 使用图像的方式 你可以使用两个位图（一个用于普通图像，一个用于遮罩图像）来创建图标，并将其手动加载到 Cursors 属性 使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But ......
delphi模板开发
delphi模板开发 用模板开发，写代码就是填空题。 让开发变为填空题，这也是AI开发的指导思想。 1）制作模板 /// <author>cxg 2023-10-9</author> unit db.crud; interface uses System.Classes, System.SysUti ......
delphi 设置全局级别光标
设置全局级别光标 代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu ......
Delphi 指定句柄闪烁边框（待完善）
procedure TForm1.btn1Click(Sender: TObject); var ahdc,ahdc_old, ahdc_new: HDC; ARect:TRect; ahpen:HPEN; ahandle:THandle; h,w:Integer; pen:integer; i:i ......
delphi中unit单元文件说明
单元(unit)是组成Pascal程序的单独的源代码模块，单元有函数和过程组成，这些函数和过程能被主程序调用。一个单元至少要有unit语句，interface，和implementation三部分，也能可选的包含initialization和finalization两部分： 一、必含部分 1、uni ......
delphi中FormDestroy和FormClose的区别和联系
在Delphi中，FormDestroy 和 FormClose 是用于处理窗体关闭事件的两个不同的事件处理程序。它们有一些区别和联系，下面我将详细解释它们之间的差异和关联： FormDestroy 事件： FormDestroy 事件是一个在窗体销毁时触发的事件。 这个事件通常用于释放在窗体生命周 ......
Delphi dll 传递字符串
//dll code uses // ShareMem, SysUtils, Windows, Math; {$R *.res} function TestString1(Buffer: PChar): PChar; stdcall; var Tmpstr:string; begin try Tmp ......
delphi AES CBC 解密
使用CNPACK 的单元来实现AES CBC 解密 CBC PKCS7 解密要注意的点是，如果解密内容不够16位整除要补#0 ar inbase64, outbase64: string; i:integer; Ret:string; TmpAesIv: TAESBuffer; IvStr: Ans ......
delphi泛型模板编程
delphi泛型模板编程 unit TxInfo; interface uses System.Types, System.Classes, System.SysUtils, Generics.Collections; type TPeople = record Name: string; Age: ......
恢复Delphi工具栏
打开注册表，找到下面项，把Toolbars删除！ 计算机\HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\22.0\Toolbars 重新进入Delphi，恢复默认状态！ 如下图的状态，删除后，恢复了！ ......
Delphi:cxGrid的使用方法
Delphi:cxGrid的使用方法 1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1 ......
delphi Base64转换（加密、解密）
Base64转换（加密、解密） 代码 字符串加密、解密 uses System.NetEncoding; procedure TForm1.Button1Click(Sender: TObject); var str1, str2: string; begin //加密 str1 := TNetEn ......
Delphi XE 时间和时间戳互转换
uses System.DateUtils; function TForm1.Gettamptime(vlen: Integer): string; var ss: string; begin if vlen = 13 then begin ss := DateTimeToTimeStamp(now ......
delphi JSON序列化（四）
{ TDateTimeConverter } function TDateTimeConverter.CanConvert(ATypeInf: PTypeInfo): Boolean; begin Result := True; end; function TDateTimeConverter.Re ......
delphi 操作INI文件
转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客 Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、INI文件的结构：;注释[小节名]关 ......
delphi 修改电脑名称
有多少人是因为SetComputerName无效之后找到这里的?请在评论区报一下名. uses ShellAPI,windows; procedure TForm1.ChangeComputerName(const NewName: string); var Command: string; New ......
Delphi EOL Program
1.语言代码,德语为Windows-1252 Windows-1252 或 CP-1252 是拉丁字母的字元编码，主要用于英文、 爱尔兰语、意大利语、挪威语、葡萄牙语、西班牙语、瑞典语以及德语、芬兰语、冰岛语、法语、荷兰语（除了IJ字符）、斯洛文尼亚语(除了č字符)等西方文字版本 Microsoft ......
GOLANG：调用delphi7编写的dll
0. delphi对winapi有很强的封装，使其更易用。 1. delphi声明dll内函数 需要尽量以此方式： procedure test(data: pchar; count: integer);stdcall; 2.golang 调用方法： str := []byte("abcdedf") ......
Delphi7中单元文件内各个部分的执行顺序
注：本文主要是讨论delphi程序启动时和退出时的执行顺序，期间有些知识来源于Delphi帮助，有些来自《Delphi7程序设计教程》（这本书只告诉我有initialization 和 finalization 这两个关键字，但是没讲明白）（唉，现在的书只讨论框框架架，不讨论细节，写出来的东西让你看 ......
Delphi窗体的close,free,destroy等
[本人baidu博客全部搬家到csdn,baidu博客地址：http://hi.baidu.com/new/miracleconf] Delphi对窗体的关闭有多个函数： HideCloseFreeReleaseDestroyTerminateFreeAndNil()Halt 这些函数的区别是什么呢 ......
delphi json用法详解
在 Delphi 中，使用 JSON（JavaScript Object Notation）可以实现数据的序列化和反序列化，以便在不同系统之间传递和存储数据。下面是使用 Delphi 处理 JSON 的一些常见用法： 创建 JSON 对象： var jsonObject: TJSONObject; ......
delphi 如何实现将MSSQL的数据缓存到REDIS的例子
以下是一个简单的示例，演示如何使用 DelphiRedisClient（https://github.com/danieleteti/delphiredisclient）将 MSSQL 数据缓存到 Redis 中： ```delphiuses Redis.Client, Redis.NetLib.I ......
delphi TFDMemTable的应用
一.TFDMemTable控件不依赖数据库,可以独立保存数据(运行期间)和使用. 这种情况下,我们只能通过 [新建字段] 来建立数据字段. 上面的 [添加字段] 和 [添加所有字段] 都是要与数据库连接之后才能用. 这里提示一下各位.字段要加好以后再往里面录数据,如果先录了数据,然后再添加或者删除字 ......