我使用Tperlregex已经有一段时间了。但是今天,当我尝试编译一个用Tperlregex构建的应用程序时,它提示“fatal error: Internal error L3169”。
reg: Tperlregex;
begin
reg:=Tperlregex.create(nil); //If this line is removed, there is no error prompt.
...
...
end;我正在使用Perlregex2009。
请帮帮忙。
编辑:
安德烈亚斯,非常感谢你。
@Andreas非常感谢您的即时回复。我使用的是Delphi7。你的答案在D7中工作吗?我在pcre.pas中找到了注释(..Delphi 2009及更早版本有一个编译器错误,如果将TPerlRegEx安装到设计时包中,而不同时将TPerlRegEx放入运行时包中,则可能会导致内部错误。在delphi2009和更早的版本中,如果你根本不使用软件包,你就可以使用PCRE_STATICLINK (这意味着你不需要把它安装到集成开发环境中……)。
...
{$DEFINE PCRE_LINKDLL}
{$IFDEF PCRE_STATICLINK}
{$UNDEF PCRE_LINKDLL}
{$ENDIF} 以前,它是有效的。但今天却不是这样。
发布于 2011-11-26 22:40:32
Delphi2009在*.obj文件导出方面似乎有问题。必须从代码中调用pcre_exec函数。如果Delphi的“智能链接器”删除了它,因为代码中的任何地方都没有调用它(智能链接器没有删除它),编译器就会失败。这是一个编译器错误,但是您可以通过对PerlRegEx库进行一些小的更改来解决它。您必须向TPerlRegEx.Create构造函数添加一个"UseFunction“本地过程(以及对它的调用)。因此,当您创建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;https://stackoverflow.com/questions/8278991
复制相似问题