Delphi的四舍五入函数 一、四舍五入法 四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。 所谓算术舍入法，就是我们通常意义上的四舍五入法。其规...
{------------------------------------------------------------------------------- 过程名:MakeFileList遍历文件夹及子文件夹 参数:Path,FileExt:string1.需要遍历的目录2.要遍历的文件扩展名 返回值:TStringList USESt...
将文件复制或剪切到剪贴板，可以在资源管理器、桌面等地方粘贴。在网上找了下，找到一些代码，不过发现都有点bug，现在将修正后的分享出来。 procedureCutOrCopyFiles(FileList:AnsiString;...
1.Form-keyprivew=True 2. procedureTForm1.FormKeyDown(Sender:TObject;varKey:Word; Shift:TShiftState); begin if(key=vk_down)or(key=13)thenbegin//如果按向下鍵或Enter //key:=vk_tab; Caption:=ActiveControl.Name; SendMessage(getparentform(...
对Delphi来说，{}(左右大括号)内是註解，不过如果是{$(左大括号加钱字号)内容是给编译器看的编译指令。 编译指令的用途為： 1.程式除错 2.版本控制 定义方式： 1. Project - Options… - Co...
本文章介绍了Delphi XE5实现通过TMemoryStream将一个UnicodeString写入到一个Unicode文本文件，之前研究了通过TMemoryStream将UnicodeString写入到文本文件，但是打开后，是乱码，是因为文本文件的字...
介绍 本文章介绍了Delphi XE7实现的仿Spy取窗口句柄并得到窗体框架，鼠标点击左上角的图标，然后移动到某一个对象上面，在对象上面，会自动出现一个红色的框框，通过这个程序可以...
介绍 本文章介绍了Delphi XE5发送短信以及读取短信代码，下面通过代码脚本来介绍，不过该两段代码，没有具体测试过，有兴趣的可以测试下 1：发送短信代码 uses FMX.Helpers.Android, Andro...
关键字：MethodAddress：取得方法的地址，这个方法需要是published的。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TShowInfo = procedure(inf...
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT or WS_EX_LAYERED ); WS_EX_ACCEPTFILES = 0x00000010 指明了一个已创建视窗具有拖拽文件功能 WS_EX_APPWINDOW = 0x00040000 强制一个可见...