Delphi 5.0 Pascal 中数组从 0 或 1 开始?
我想在 Delphi 5.0 中创建一个 ArrayList。所以我找到了一个用这段代码实现它的解决方案: var arr: array of String; 好的,但是每次我添加一些东西…
嘲笑:如何避免孩子跟父母说话?
我正在尝试通过传递模拟所有者来测试对象。最初 PartD 将传递 PartB1 作为其所有者: PartD partD = new PartD(partB1); 现在我想通过传递来测试 Part…
如何在Delphi中模拟TFrame上的OnDestroy事件?
如何在 Delphi 中模拟 TFrame 的 OnDestroy 事件? 我天真地将构造函数和析构函数添加到我的框架中,认为这就是TForm所做的: TframeEditCustomer = c…
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 的工作。 “子”对象维护对其“控制器”的弱引用,…