DELPHI：如何使用“break” 在循环或案例之外？

Question

考虑以下 delphi pascal 代码：

var
  tc: TComponent
begin
{ do something to get tc }
repeat
  if(tc is TDBEdit)then begin
    if(check_something_about_edit(tc))then break;
    do_something_else_edit(tc);
    break;
  end else if(tc is TBMemo) then begin
    if(check_something_about_memo(tc))then break;
    do_something_else_memo(tc);
    break;
  end;
  raise exception.create('invalid component type');
until(true); {single iteration look required to use break }

我知道我可能可以使用 TComponent 做一些多态的事情，但这不是我的问题。 我想知道是否有办法摆脱单次迭代重复直到语句。 如果没有它，我就无法在处理块中的任何位置使用break语句，并且我需要它随时停止处理。

Answer 1

打包成一个函数，用exit跳回来。 如果重复语句后面有更多代码，请使用本地函数/过程，例如：

procedure ...
  procedure testsomething(tc: TComponent);
  begin 
    if(tc is TDBEdit)then begin
      if(check_something_about_edit(tc))then exit;
      do_something_else_edit(tc);
      exit;
    end else if(tc is TBMemo) then begin
      if(check_something_about_memo(tc))then exit;
      do_something_else_memo(tc);
      exit;
    end;
    raise exception.create('invalid component type');
  end;

var
  tc: TComponent;
begin
{ do something to get tc }
  try
    TestSomething(tc);
    { do something more }
  except
     ...
  end;
end;

Answer 2

你实际上正在做的是使用break作为goto。 拉尔夫关于使用函数作为作用域的建议是一个很好的建议。 但除此之外，你不妨诚实地使用“goto finish”。 失去重复将使它实际上更具可读性。

Answer 3

还有另一种简单的方法：

if(tc is TDBEdit)then begin
  if not (check_something_about_edit(tc)) then
    do_something_else_edit(tc);
end else if(tc is TBMemo) then begin
  if not (check_something_about_memo(tc)) then
    do_something_else_memo(tc);
end else
  raise exception.create('invalid component type');
end;

Answer 4

为什么要使用break而不是Exit？ Delphi 中的 Break 与大括号语言中的“break”不同。

var
  tc: TComponent
begin
  { do something to get tc }
  if (tc is TDBEdit) then 
  begin
    if not (check_something_about_edit(tc)) then 
      do_something_else_edit(tc);
    Exit;
  end;
  if (tc is TBMemo) then 
  begin
    if not (check_something_about_memo(tc)) then 
      do_something_else_memo(tc);
    Exit;
  end;
  raise exception.create('invalid component type');
end;

关于布局的一点。 如果你没有尝试减少太多的空白，它可能不会
正如您在之前的评论中所说，“再花一个小时来确保我所有的 if-else 都正确排列”。

如果您想在此之后执行代码，请使用 Ralph 建议的本地过程，或者包装在 try..finally 中 - finally 中的代码仍将被执行。