技巧共239篇

delphi 数字转Excel字母列序号

unit Unit3;interfaceuses  Math, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,&nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04213

Delphi版本号检测判断

usesSystem.StrUtils, System.Typesfunction TFrmMain.CheckVersion(Ver1, Ver2: string): Boolean; //Ver1 网络版本, Ver2 本地版本var  v1, v2: TStringDynArray;begin//版本判断 ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03414

Delphi TList性能注意事项

TList性能注意事项 本文虽然是用TList为例,但同样适用于Tstringlist,Tobjectlist等列表类。1)提取/删除列表中的元素例如,在包含65536个元素的列表中:while list.Count > 0 do List.D...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06415

delphi – 使用CreateOleObject后释放OleVariant

这是一个简单的代码:procedure Test;var  V: OleVariant;begin  V := CreateOleObject('ADOX.Catalog');  try    // do something with V...  finally  &n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04110

Delphi 10.4 自定义托管记录

Delphi中的记录可以具有任何数据类型的字段。当一条记录具有普通(非托管)字段(如数字或其他枚举值)时,对于编译器没有太多工作要做。创建和处理记录包括分配内存或摆脱内存位置。如果记录具...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05514

delphi 将自己的app.ico应用程序图表添加到dephi资源文件res中

1. 使用记事本或其他文本工具新建my_res.rc空白文件,输入如下一行数据:ico1 ICON app.ico2. 快捷键Ctrl+Alt+F11或者View==>Project Manager3. 将my_res.rc拖拽进来或者点击Add添加4. ok,ico...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06914

Delphi检查自身是否被调试

 function IsDebuggerPresent: boolean; external 'kernel32.dll';   {$IFDEF DEBUG}if (IsDebuggerPresent) then ThreadNumber := 1;{$ENDIF}
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03515

delphi bintohex和hextobin

bintohex和hextobinvar ms: TMemoryStream;<br>  var hex: string;  SetLength(hex, ms.Size * 2);  BinToHex(ms.Memory, PChar(hex), ms.Size); var ms: TMemoryStream;&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03912

delphi 一组数据,按由大到小进行排序,并输出最大值与最小值

622,132,35,403,303,312,235,119,642,858,329,33,154,49,43,561,842,203,915,567,905,609,161,317,574,688,819,310,209,88,909,211,719,503,149,268,868,592,230,98,984,871,518,636,343,694,84...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0548
图解QQ群如何快速找到自己想要的Delphi资源-Delphi编程技巧大全

图解QQ群如何快速找到自己想要的Delphi资源

前提条件:首先要加足够多的QQ群与DELPHI相关的
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05513

Delphi 反外挂,反破解思想代码

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,TlHelp32,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06512

Delphi 利用51.la统计程序使用量

procedure Tfrm_main.webcount;var  s:array[0..100] of Char;  winpath:array[0..MAX_PATH] of Char;  mem:TMemoryStream;begin  GetWindowsDirectory(winpath,SizeOf(win...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0299
Delphi 提升delphi 启动加载速度-Delphi编程技巧大全

Delphi 提升delphi 启动加载速度

有些包暂时用不着(譬如: VCL for the Web 10.0), 但每次启动都载入挺浪费时间的; 取消方法:菜单 -> Project -> Default Options -> Delphi -> Packages -> 取消复选(如下图)
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0715

Delphi 两个exe之间共享数据

1. 概述在win32中,通过使用映像文件在进程间实现共享文件或共享内存数据块,如果利用相同的映像名字或文件句柄,则不同的进程可以通过一个指针来读写一个文件或同一个内存数据块,并把它当做该...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0536

Delphi版雪花算法

//Delphi版雪花算法//作者:不得闲//QQ: 75492895unit DxSnowflake;interfaceuses System.SysUtils,System.SyncObjs,System.Generics.Collections,System.DateUtils;type  TWorkerID = 0.....
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0538
Delphi 32位程序 out of memory 内存不足时解决办法之一-Delphi编程技巧大全

Delphi 32位程序 out of memory 内存不足时解决办法之一

其中一个原因之一,就是32位程序请求使用得内存是有限得。我们可以尝试,调整为64位,让程序可以请求更多的内存。如何生成64位程序:工程上点右键,添加平台-WIN64,不过注意,32位的delphi是无...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0609

Delphi Memo 内容每N行分批处理

rocedure TForm1.Button1Click(Sender: TObject);vari,k:integer;beginMemo2.Clear;k:=0;for I := 0 to Memo1.Lines.Count-1 dobeginMemo2.Lines.Add(Memo1.Lines.Strings[I]);Inc(k);if k=5 th...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05813

Delphi TArray<TArray<string>> 用法

uses Generics.Collections, Generics.Defaults;function ParseStyles(const style: string): TArray
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0605

delphi的窗体文件(dfm)文件中的汉字提取出来?

用记事本打开dfm文件,如果包括中文的话,都是用 #+一串数字表示的如何把这个转换出来?解决方案 »   '#+一串数字表示的 ' 这就是汉字的Unicode编码很容易转换的unit Unit1...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0535

Delphi memo1 行倒序排列三种方法

来源:http://www.xuexidashi.vipunit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics, Vcl.Controls, V...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05710

Delphi的TService 服务路径获取 Dll中获取文件路径

Delphi的TService 服务路径获取 Dll中获取文件路径研究delphi服务的路径,试了好几个方法 ,都没取出来,最后发现,要采用取DLL路径的方法//一、获取Dll自身路径//1)方法一:Function GetDllPat...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03514
Delphi IFDEF 另类用法-Delphi编程技巧大全

Delphi IFDEF 另类用法

 {$IFDEF USE_VCL_BITMAP}  VCL.Graphics,{$ELSE}  FMX.Graphics,{$ENDIF}   
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03210

DELPHI二分查找算法(预排序数组的查找)

二分查找可以解决(预排序数组的查找)问题:只要数组中包含T(即要查找的值),那么通过不断缩小包含T的范围,最终就可以找到它。一开始,范围覆盖整个数组。将数组的中间项与T进行比较,可以...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04711

delphi实现二分查找

假设表中元素是按升序排列,将表中间位置记录的关键字与查找关键字比较,如果两者相等,则查找成功;否则利用中间位置记录将表分成前、后两个子表,如果中间位置记录的关键字大于查找关键字,则...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0596
Delphi 让嵌入窗体的 WebBrowser 控件无边框-Delphi编程技巧大全

Delphi 让嵌入窗体的 WebBrowser 控件无边框

实现的方法很简单,在窗体添加一个 WebBrowser 组件,然后执行以下代码:WebBrowser1.Navigate('D:SoftHomePage.html');但随之而来出现了一个问题:WebBrowser 组件在未载入 HTML 之前是无边框...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0578

delphi 遍历控件

有10个EDIT控件,取名为EDT1,EDT2,EDT3。。。EDT10,如何用一个循环知道哪个EDIT控件的值是空的?procedure   TForm1.Button2Click(Sender:   TObject);   &nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0307

Indy TIdTCPClient 的一个用法上要留意的问题,以及 HTTP

Delphi 10.3 社区版测试用 TIdTCPClient 去连接一个 HTTP 服务器,自己写 HTTP 请求,发现一个问题。 大致步骤如下:1. 首先,用 TCP 客户端,连接一个 HTTP 服务器;2. 向服务器发送 HTTP...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04812

Delphi – 如何执行Windows、OSX、Linux的外部程序?

Delphi - 如何执行Windows、OSX、Linux的外部程序?毫无疑问,几乎对所有Delphi程序员来说,不用说如何在Windows下如何执行外部程序了!目前Delphi,真的已经很棒了,Delphi有一套和V...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03910

Delphi 和微软的 Azure 云存储

Delphi 针对云存储的支持,支持了亚马逊的 AWS 和微软的 Azure,不过经过测试,发现对 Azure 的支持是有问题的。然后俺深入研究了一下如何用 Delphi 的代码去访问 Azure 的 Blob -- Azure的云存...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0398

delphi'控件的相对坐标与屏幕坐标转换

DELPHI 控件的相对坐标与屏幕坐标转换一、直接上代码var  pt: TPoint;  r: TRect;begin  pt := Point(Edit1.Top, Edit1.Left);  pt := ClientToScreen(pt);  Edit2.Te...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0547