在Free Pascal / Lazarus中使用SelectDirectoryDialog(TSelectDirectoryDialog)时出现异常

问题描述 投票:0回答:1

我只是想测试资源页面上描述的“SelectDirectoryDialog”:TSelectDirectoryDialog,链接的doc page目前正在关闭。但我得到一个例外“外部:SIGSEGV”。不知道我在这里做错了什么。我在表单上放了“SelectDirectoryDialog”并创建了一个执行以下代码的按钮:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SelectDirectoryDialog1.Execute then ShowMessage(SelectDirectoryDialog1.FileName);
  end;

我查了几个例子(hereherehere),但我发现我的代码没有任何问题。我尝试了TOpenDialog,那个工作没有问题。

任何想法如何解决这一问题?是否有一个不同的对话让我选择一个目录作为快速修复?

更新:问题似乎与调试器有关,这是描述它的thread。执行Exe-File工作正常。有谁知道更新的版本是否有解决方案? (我使用2016年的Lazarus V1.6,FPC-V 3.0.0,SVN-Revision 51630 - 64位版本)。

lazarus freepascal
1个回答
0
投票

不确定是否有问题,但是您是否尝试了菜单 - >工具 - >选项 - >调试器 - >选中DisableLoadSymbolsForLibraries的复选框?

© www.soinside.com 2019 - 2024. All rights reserved.