Question

我收到编译器警告，我不明白：

procedure Test;
var
  Var1: Integer;
begin
    while True do
    begin
        try
            if System.Random > 0.5 then
            begin
                ShowMessage('Skipping');
                continue; // If I remove this line, the warning goes away
            end;
            Var1:=6;
        except on
            E:Exception do
            begin
                ShowMessage('Error');
                raise;
            end;
        end;
        ShowMessage(IntToStr(Var1)); // Compiler warning on this line
    end;
end;

当我在Delphi 2010中编译时，我得到：

[DCC警告] OnlineClaimManagerMainU.pas（554）：W1036变量'Var1' 可能尚未初始化

如果我取消对“继续”的呼叫，警告就会消失。

此外，如果我删除了try / except子句（并保留继续），警告就会消失。

如果没有初始化Var1，执行如何进入相关行？

Answer 1

Var1将始终在使用前初始化。编译器因try - except处理而感到困惑：您的代码太复杂，编译器无法真正确定始终初始化Var1。它看到在Var1:=6;之前可能存在处理的异常，这会使Var1保持未初始化状态，但它不会看到该异常将永远重新提升。

Answer 2

你应该ShowMessage(IntToStr(Var1));进入try除了块。然后编译器应该清楚Var1是初始化的，看起来更像是干净的代码。

Answer 3

这是一个非常好的警告。它告诉您不要将任何值赋给可能在代码中的其他位置使用的变量。警告还告诉如果它被使用，那么分配给它的值可能不是你所期望的。

为什么编译器会警告变量可能未初始化？

3 个答案: