unit Unit3;interfaceuses  Math, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,&nb...

usesSystem.StrUtils, System.Typesfunction TFrmMain.CheckVersion(Ver1, Ver2: string): Boolean; //Ver1 网络版本， Ver2 本地版本var  v1, v2: TStringDynArray;begin//版本判断 ...

TList性能注意事项 本文虽然是用TList为例，但同样适用于Tstringlist,Tobjectlist等列表类。1）提取/删除列表中的元素例如,在包含65536个元素的列表中：while list.Count > 0 do List.D...

这是一个简单的代码：procedure Test;var  V: OleVariant;begin  V := CreateOleObject('ADOX.Catalog');  try    // do something with V...  finally  &n...

Delphi中的记录可以具有任何数据类型的字段。当一条记录具有普通（非托管）字段（如数字或其他枚举值）时，对于编译器没有太多工作要做。创建和处理记录包括分配内存或摆脱内存位置。如果记录具...

1. 使用记事本或其他文本工具新建my_res.rc空白文件,输入如下一行数据:ico1 ICON app.ico2. 快捷键Ctrl+Alt+F11或者View==>Project Manager3. 将my_res.rc拖拽进来或者点击Add添加4. ok,ico...

 function IsDebuggerPresent: boolean; external 'kernel32.dll';   {$IFDEF DEBUG}if (IsDebuggerPresent) then ThreadNumber := 1;{$ENDIF}

bintohex和hextobinvar ms: TMemoryStream;<br>  var hex: string;  SetLength(hex, ms.Size * 2);  BinToHex(ms.Memory, PChar(hex), ms.Size); var ms: TMemoryStream;&...

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...

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,TlHelp32,...

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...

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

//Delphi版雪花算法//作者：不得闲//QQ: 75492895unit DxSnowflake;interfaceuses System.SysUtils,System.SyncObjs,System.Generics.Collections,System.DateUtils;type  TWorkerID = 0.....

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...

uses Generics.Collections, Generics.Defaults;function ParseStyles(const style: string): TArray

用记事本打开dfm文件，如果包括中文的话，都是用 #+一串数字表示的如何把这个转换出来？解决方案 »   '#+一串数字表示的 ' 这就是汉字的Unicode编码很容易转换的unit Unit1...

来源：http://www.xuexidashi.vipunit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics, Vcl.Controls, V...

Delphi的TService 服务路径获取 Dll中获取文件路径研究delphi服务的路径，试了好几个方法 ，都没取出来，最后发现，要采用取DLL路径的方法//一、获取Dll自身路径//1)方法一：Function GetDllPat...

二分查找可以解决（预排序数组的查找）问题：只要数组中包含T（即要查找的值），那么通过不断缩小包含T的范围，最终就可以找到它。一开始，范围覆盖整个数组。将数组的中间项与T进行比较，可以...

假设表中元素是按升序排列，将表中间位置记录的关键字与查找关键字比较，如果两者相等，则查找成功；否则利用中间位置记录将表分成前、后两个子表，如果中间位置记录的关键字大于查找关键字，则...

有10个EDIT控件，取名为EDT1，EDT2，EDT3。。。EDT10，如何用一个循环知道哪个EDIT控件的值是空的？procedure   TForm1.Button2Click(Sender:   TObject);   &nb...

Delphi 10.3 社区版测试用 TIdTCPClient 去连接一个 HTTP 服务器，自己写 HTTP 请求，发现一个问题。 大致步骤如下：1. 首先，用 TCP 客户端，连接一个 HTTP 服务器；2. 向服务器发送 HTTP...

Delphi - 如何执行Windows、OSX、Linux的外部程序？毫无疑问，几乎对所有Delphi程序员来说，不用说如何在Windows下如何执行外部程序了！目前Delphi，真的已经很棒了，Delphi有一套和V...

Delphi 针对云存储的支持，支持了亚马逊的 AWS 和微软的 Azure，不过经过测试，发现对 Azure 的支持是有问题的。然后俺深入研究了一下如何用 Delphi 的代码去访问 Azure 的 Blob -- Azure的云存...

DELPHI 控件的相对坐标与屏幕坐标转换一、直接上代码var  pt: TPoint;  r: TRect;begin  pt := Point(Edit1.Top, Edit1.Left);  pt := ClientToScreen(pt);  Edit2.Te...