delphi可以知道Exception异常的详细位置吗?

Question

我通过这样获取异常
except
on e : Exception do
begin
MessageBox(Handle, PChar('异常：' + e.Message), '异常', MB_ICONERROR);
Exit;
end;
end;
怎样知道详细是哪里出异常了呢?每次都跳出access violation不知道是在哪里

Answer 1

delphi也有java一样的日志控件吗?可以设置日志是否显示?

Answer 2

获取异常堆栈地址的函数：procedure GetStackAddress(var AStackTop, AStackBottom: Cardinal);
begin
  asm
    mov ecx, FS:[4];  //FS:[4]放置发生异常时的栈信息
    sub ecx, 3;
    mov [eax], eax;   //栈顶，eax接收第一个参数
    mov [edx], ebp;   //栈低，edx接收第二个参数
  end;
end;