德尔福变量可能没有初始化警告

Question

我已经添加了一些代码到我的delphi项目来与注册表进行交互，使用我在网上找到的一些教程来指导我的努力。我见过的每一个例子似乎用这种结构为他们的注册表访问：

var 
    Registry: TRegistry; 
begin 
    try 
    Registry := TRegistry.Create; 
    //additional code to access and use the registry object could go here 
    finally 
    Registry.Free; 
end; 

但是，当我执行下面这个结构我的代码，我得到我的注册表变量可能还没有上线初始化的警告我释放TRegistry对象。

所以，我想知道我发现的例子是否正确访问注册表的错误。我是否应该在我的TRegistry对象上调用Free，而不管Create是否成功，并忽略该警告？相反，我的try/finally块只能在成功的构造函数调用后包围代码，但不能包装create调用？还有别的吗？

Answer 1

在您的代码中，如果TRegistry.Create引发异常，则不会分配Registry变量。因此，finally将尝试访问一个未初始化的变量。

编写代码的正确方法是确保在输入try/finally块之前分配变量。

Registry := TRegistry.Create; 
try 
    //additional code to access and use the registry object could go here 
finally 
    Registry.Free; 
end; 

这是Delphi编码中最基本的生命周期管理模式，您应该深入研究肌肉记忆。

请注意，如果构造函数失败，那么它将在传播异常之前清理部分构造的对象。只有构造函数成功完成时，才会分配此代码中的新对象引用Registry。

我希望你发现的例子实际上是按照我上面的代码写的，你不知怎的会错误地转录它们。如果它们是按照问题编写的，那么它们显然是错误的。