在Free Pascal / Lazarus中使用SelectDirectoryDialog(TSelectDirectoryDialog)时发生异常

时间:2018-09-02 18:14:51

标签: lazarus freepascal

我只想按资源页面上所述测试“ SelectDirectoryDialog”:TSelectDirectoryDialog,链接的doc page当前关闭。但是我收到一个异常“ External:SIGSEGV”。不知道我在做什么错。我将“ SelectDirectoryDialog”放在窗体上,并创建了一个执行以下代码的按钮:

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

我查看了一些示例(hereherehere),但是我找不到我的代码有问题的地方。我尝试过TOpenDialog,但没有问题。

有什么办法解决此问题吗?是否有其他对话框可以让我选择目录作为快速修复?

更新: 问题似乎出在调试器上,这里是thread的描述。执行Exe文件工作正常。有谁知道最新的版本是否对此有修复? (我正在使用2016年的Lazarus V1.6,FPC-V.3.0.0,SVN-Revision 51630-64位版本)。

1 个答案:

答案 0 :(得分:0)

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