首页
学习
活动
专区
圈层
工具
发布
社区首页 >问答首页 >组件Tperlregex致命错误L3169?

组件Tperlregex致命错误L3169?
EN

Stack Overflow用户
提问于 2011-11-26 22:14:23
回答 1查看 729关注 0票数 4

我使用Tperlregex已经有一段时间了。但是今天,当我尝试编译一个用Tperlregex构建的应用程序时,它提示“fatal error: Internal error L3169”。

代码语言:javascript
复制
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 (这意味着你不需要把它安装到集成开发环境中……)。

代码语言:javascript
复制
 ...
{$DEFINE PCRE_LINKDLL}
{$IFDEF PCRE_STATICLINK}
{$UNDEF PCRE_LINKDLL}
{$ENDIF} 

以前,它是有效的。但今天却不是这样。

EN

Stack Overflow用户

回答已采纳

发布于 2011-11-26 22:40:32

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

代码语言:javascript
复制
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;
票数 10
EN
查看全部 1 条回答
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/8278991

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档