我最近碰到一个像这样的例程：
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语句.