delphi - 我得到 'Variable x inaccessible here due to optimization'

Question

即使构建配置设置为“调试”并且优化为 False，我也会收到“由于优化，此处无法访问所有用户的变量”。所以，我无法调试我的程序。

为什么我会得到这个？
当我按下“运行”按钮时会运行哪个版本？
怎么才能看到

<小时/>

procedure Test(ForAllUsers: boolean);
VAR
   FName, Path1, Path2: string;
   RootKey: HKEY;
begin
 Result:= FALSE;
 TRY
  if ForAllUsers
  then
    begin
     RootKey:= HKEY_CLASSES_ROOT;
     Path1:= '';
     Path2:= '';
    end
  else
    begin
     RootKey:= HKEY_CURRENT_USER;           <----- Break point here
     Path1:= '\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\';
     Path2:= '\Software\Classes\';    
    end;

...结束；

<小时/>

更新:
自从我发布这个问题仅仅几分钟后，它就已经被投票两次并被加星标两次。看来这是一个很常见的问题。

Answer 1

我们都会时不时地遭受这种痛苦。我有时会在需要调试引用该变量但不执行任何操作的变量时添加一些虚假代码。例如:

if x>0 then x := x*1;

或者如果它是 bool 值则:

if b then b := not not b;

这些内容通常足以让编译器编写出使变量保持事件状态的代码，以便调试器可以检查它。确保将代码放在例程的底部!并确保在 checkin 代码之前记得将其删除。