1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 TFo ...
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, ExtCtrls, StdCtrls; 8 9 t... ...
if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end; if MessageDlg('Welcome t ...
GetDeviceCaps 函数功能：该函数检索指定设备的设备指定信息。函数原型：int GetDeviceCaps(HDC hdc, int nlndex)；参数说明： 1、hdc：设备上下文环境的句柄。 2、nIndex：指定返回项，该参数取下列一值： DRIVERVERSION：设备驱动程序版 ...
什么是 MAP 文件？简单地讲， MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用，不需要有额外的程序进行支持。而且，这是唯一能找出程序崩溃的地方的救星。 DELPHI下生成MAP文件的方法:生成详细的MAP信息的方法(二选一) 1. proje ...
分类：
数据库 时间：
2019-10-01 18:33:48
阅读次数：
198
10进制转16进制 使用IntToHex可以实现十进制到十六进制的转换，注意这里的参数有两个，第一个表示需要被转换的10进制数，第二个表示转换后用几位来显示16进制数。 代码如下： 16进制转10进制 使用StrToInt可以实现16进制到10进制的转换。 代码如下： 转换时还需要注意16进制高低位 ...
以往的Delphi版本，不支持接口的Weak，和UnSafe的引用，支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持。 现在Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持。 1.Weak Weak引用，不影响引用计数器，但是如果对 ...
Delphi通过inherited 可以调用父类的方法，但是没有提供直接调用父类的父类的方法（爷爷类），通过变通的方式实现如下： 假设父类是TFather，爷爷类TGrand，调用爷爷类的Write方法： 1 2 3 4 5 6 7 8 9 type TWriteProc=procedure of ...
通过TObject.GetInterface可以获得对象的实例实现某个接口，前提条件是必须实例化对象后才能运行GetInterface 下面的方法可获取类是否实现了某个接口，并返回接口的偏移： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ...
本文来自：http://www.cnblogs.com/hezihang/p/6083555.html Delphi采用接口方式设计模块，可以降低模块之间的耦合，便于扩展和维护。本文提供一个实现基于接口(IInterface)方式的监听器模式（观察者模式、订阅者模式），实现一个自动多播器。 下面程序 ...
