Delphi:如何将类移出单元;避免循环引用
问题:我想将两个类拆分到它们自己的文件中,同时避免循环引用。 我有一个包含一些类(以及一些枚举和常量)的单元。任何人都会认识Click and Clack …
了解构造函数的可见性
这是两个简单的类,最初都没有关键字(virtual、overload、override、reintroduce): TComputer = class(TObject) public constructor Create(Teapot…
Delphi:如何向后代添加不同的构造函数?
更新:我最初的例子有点复杂。这是一个简单的 8 行示例,在一个代码块中解释了所有内容。以下不编译给出警告: TComputer = class(TObject) public co…
Delphi:重写的虚拟构造函数后代未被重载调用
这是我关于 Delphi 构造函数的一系列问题中的另一个问题。 我有一个具有虚拟构造函数的基类: TComputer = class(TObject) public constructor Create…
Delphi:如何隐藏祖先构造函数?
更新:用一个更简单的例子来解决这个问题,但没有得到回答 根据最初接受的答案 给定以下类及其祖先: TComputer = class(TObject) public constructo…
Delphi:何时重新引入隐藏祖先以及何时显示它们?
今天 最近在 Stackoverflow 上我了解到: reintroduce 用于 隐藏祖先构造函数 reintroduce 用于显示祖先构造函数 我一直在尝试理解这一切,所以这是另…
在 Delphi 中使用 TextRect (又名 GDI32 中的 ExtTextOut)时,有没有办法禁用字体抗锯齿?
我正在使用一个自定义仪表,基于 Delphi (5 Enterprise) 附带的示例。对于那些不知道的人来说,它就像一个平滑的进度条,但在组件的中心(垂直和水平…
Delphi:返回值可能未定义,尽管在开始后设置它
谁能告诉我为什么我在这里得到“返回值......可能未定义”: function TXMLAcceptorBCOLSubmission.createRecordsInBCFEEPAR(AXML: TRipXMLElement): …
Delphi 中具有自定义值的枚举
在 Delphi 5 中可以像这样声明带有自定义值的枚举吗?: type MyEnum = (meVal1 = 1, meVal2 = 3); // compiler error 谢谢!…
Delphi:如何将接口实现委托给子对象?
我有一个对象,它将一个特别复杂的接口的实现委托给子对象。我认为这个 正是 是 TAggreatedObject 的工作。 “子”对象维护对其“控制器”的弱引用,…
Delphi - BOF或EOF为True,或者当前记录已被删除
当我尝试在 MS SQL Server 2005 中选择一个空表时,出现此错误:“BOF 或 EOF 为 True,或者当前记录已被删除”。我在 Delphi 5 中使用 TADOConnectio…
Delphi:如何获取事件变量的地址?
如何获取保存事件处理程序的变量的地址? 例如, TExample = class(TObject) private FOnChange: TNotifyEvent; end; 我想要 FOnChange 私有成员、事…
读取控制台应用程序的 unicode 输出
我有控制台应用程序。用 Delphi 2010 编写。它的输出支持 Unicode。 (我为此使用了 UTF8Encode 和 SetConsoleOutputCP(CP_UTF8) )。当我从命令提示…