Delphi：在这种情况下 Goto 不被认为是有害的吗？

Question

好的，现在您有了一个 TObjectList 实例。您想要循环遍历其中的项目并从列表中删除一些对象。你不能这样做：

for I := 0 to ObjectList.Count - 1 do
  if TMyClass(ObjectList[I]).ShouldRemove then
    ObjectList.Delete(I);

...因为一旦你删除了第一个对象，索引计数器我就会错了，循环将不再起作用。

这是我的解决方案：

Again:
  for I := 0 to ObjectList.Count - 1 do
    if TMyClass(ObjectList[I]).ShouldRemove then
    begin
      ObjectList.Delete(I);
      goto Again;
    end;

这是迄今为止我找到的最佳解决方案。如果有人有更简洁的解决方案，我很乐意看到它。

Answer 1

试试这个：

 for I := ObjectList.Count - 1 downto 0 do
   if TMyClass(ObjectList[I]).ShouldRemove then
     ObjectList.Delete(I);

这看起来像是 goto 的一个特别糟糕的用法，像这样跳出 for 循环。我认为它有效（因为你正在使用它），但它会让我感到不安。

Answer 2

您还可以使用

  I := 0;
  while I < ObjectList.Count do begin
    if TMyClass(ObjectList[I]).ShouldRemove then ObjectList.Delete(I)
    else Inc(I);
  end;

Answer 3

我见过的唯一有效 Goto 用法是 Delphi 帮助中提供的。

for I := 0 to something do
begin
  for J := 0 to something do
  begin
    For K := 0 to something do
    begin
      if SomeCondition then
        Goto NestedBreak
    end;
  end;
end;
NestedBreak:

尽管在该示例中可以通过将循环移动到本地函数中并使用 EXIT 来避免 Goto。如果子函数不可接受，您仍然可以这样做：

for I := 0 to something do
begin
  for J := 0 to something do
  begin
    For K := 0 to something do
    begin
      if SomeCondition then
      begin
        GottaBreak := True
        Break;
      end; 
    end;
    if GottaBreak then Break;
  end;
  if GottaBreak then Break;
end;

这只是稍微不太理想。

我还没有看到任何其他情况下 Goto 是最好的解决方案。（或者任何好的解决方案）。

Goto 本身并不坏。它是一个流程控制命令，就像 EXIT、BREAK 或 CONTINUE 一样。除了那些其他的仅限于特定情况并由编译器正确管理。 （话虽如此，我采访过的一些程序员认为这些与 Goto 一样有害，我不同意这种观点）Goto 不受限制，你可以用它做的事情可能会产生非常负面的影响。不管怎样，我认为我已经有点超出了问题的范围。 ^_^