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

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

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语句.