组件 Tperlregex 致命错误 L3169？

Question

我使用 Tperlregex 一段时间了。 但今天，当我尝试编译使用 Tperlregex 构建的应用程序时，它提示“致命错误：内部错误 L3169”。

reg: Tperlregex;

begin
reg:=Tperlregex.create(nil); //If this line is removed, there is no error prompt.
...
...
end;

我正在使用 Perlregex2009。

请帮忙。

编辑：

安德烈亚斯，非常感谢。

@Andreas 非常感谢您的立即回复。我正在使用 Delphi 7。你的答案在 D7 中有效吗？我在 pcre.pas 中找到了注释（..Delphi 2009 及更早版本有一个编译器错误，如果将 TPerlRegEx 安装到设计时包中，并且同时不将 TPerlRegEx 放入运行时包中，则可能会导致内部错误。对于 Delphi 2009 及更早版本，如果您根本不使用软件包，则可以使用 PCRE_STATICLINK（这意味着您不将其安装到 IDE 中...”）。我还没有安装它在 IDE 中，我将 perlregex 单元放入使用界面中，并在 pcre.pas 中设置了这些行

 ...
{$DEFINE PCRE_LINKDLL}
{$IFDEF PCRE_STATICLINK}
{$UNDEF PCRE_LINKDLL}
{$ENDIF} 

。以前，它有效，但今天不起作用。

Answer 1

Delphi 2009 似乎在 *.obj 文件导出方面存在问题。必须从代码中调用 pcre_exec 函数。如果 Delphi 的“智能链接器”删除它，因为它在代码中的任何地方都没有被调用（智能链接器没有删除），则编译器将失败。这是一个编译器错误，但您可以通过对 PerlRegEx 库进行一些小更改来解决它。您必须将“UseFunction”本地过程（以及对它的调用）添加到 TPerlRegEx.Create 构造函数中。因此，当您创建 TPerlRegEx 对象时，智能链接器不会删除 pcre_exec 函数。

constructor TPerlRegEx.Create(AOwner: TComponent);

  procedure UseFunction(P: Pointer);
  begin
  end;

begin
  UseFunction(@pcre_exec); // if not used, D2009 will fail with internal compiler error
  UseFunction(@pcre_compile); // if not used, D7 will fail with internal compiler error
  inherited Create(AOwner);
end;