delphi – 避免“变量可能尚未被初始化”

发布时间：2020-12-15 10:09:24 所属栏目：大数据来源：网络整理

导读：我最近碰到一个像这样的例程： procedure TMyForm.DoSomething(list: TListTMyObject; const flag: boolean);var local: integer;begin if flag then //do something else local := ExpensiveFunctionCallThatCalculatesSomething; //do something else for

我最近碰到一个像这样的例程：

procedure TMyForm.DoSomething(list: TList<TMyObject>; const flag: boolean);
var
  local: integer;
begin
  if flag then
    //do something
  else local := ExpensiveFunctionCallThatCalculatesSomething;

  //do something else
  for i := 0 to list.Count do
    if flag then
      //do something
    else if list[i].IntValue > local then //WARNING HERE
        //do something else
end;

这样,即使您可以通过读取代码,您不能打到该行,即可以初始化变量’local’,除非初始化它的代码分支已经运行.

现在,我可以通过添加一个无用的本地：= 0;在程序的顶部,但我想知道是否可能没有一个更好的方法来构造这个来避免这个问题.任何人都有什么想法？

解决方法

我将它分成两个for循环 – 一个用于当flag为真时,另一个用于当flag为false时.作为一个额外的好处,您不必在每次迭代时执行if语句.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!