如何在不更改库文件的情况下修改 Delphi 库文件中的常量？

Question

我使用了一个第三方库，我需要为其更改一个常量。我想自定义库而不覆盖文件。 pas 文件是库文件，不是可继承的类。

目前我可以通过编辑文件来实现我的目标

unit libraryconstants;

interface

uses
  System.Types;

const
  constant1 = 'foo';
  constant2 = 32;
  constant3: Integer = 12;
  constant4: TSize = (cx: 32; cy: 32);

不知何故，我需要像这样更改constant4：

constant4: TSize = (cx: 16; cy: 8);

我可以编辑 libraryconstants.pas 并保存它，但是当我更新库时（因为发布了新版本），我将丢失此更改。当然，我可以在每次更新库时提醒我应用此更改，但如果可能的话，我想避免这种情况。

由于常量不是已发布的属性，我不知道如何达到预期的效果。我希望尽可能少地干扰库代码。

我正在寻找我不知道的 Delphi 语言“技巧”。

谢谢。

Answer 1

我错误地认为类型常量存储在只读内存中，就像在其他语言中一样。事实并非如此。所以你可以很容易地通过指针访问这个类型常量的值。

PSize(@constant4).cx := 16;
PSize(@constant4).cy := 8;

将此代码添加到您的一个单元的初始化部分。您需要确保它运行得足够早，以便在执行任何依赖于该常量的代码之前影响更改。

我认为我的误解来自于字符串文字存储在只读内存中的知识。所以我假设类型常量也是如此。我怀疑当添加可分配类型常量“功能”时，编译器开关只是让编译器拒绝写入类型常量，而不是将它们移动到只读内存。

请注意，我所说的只读内存在桌面编译器上是正确的。我不确定在移动编译器上是否属实。很可能此代码在移动编译器上因运行时内存保护错误而失败。在这种情况下，您需要在写入之前临时更改内存保护。

Answer 2

制作一个新的单位：

unit libraryconstantspatch;

interface

implementation

uses System.Types, libraryconstants;

initialization

asm
        mov     eax,offset libraryconstants.constant4
        mov     [eax+offset TSize.cx],16
        mov     [eax+offset TSize.cy],8
end

finalization

end.

然后在应用程序中的 libraryconstants 单元之后的 USES 语句中列出该单元。

Answer 3

我的建议：不要改常量，改方法。

检查使用该常量的方法（过程或函数），然后使用新常量“重载”该方法。

如果它在一个类中，只需继承该类，并且只修改方法，使用新名称，如过程'aMethod_size2'。名称 size2 表明了这一点。

据我所知，这是通常的做法。

Answer 4

在项目设置中（CTRL+SHIFT+F11）：

Delphi compiler \ Compiling \ Syntax options

将“可分配类型常量”的值更改为 True。 然后您可以将类型化常量修改为常规变量：

constant4.cx := 16;
constant4.cy := 8;