DELPHI: как использовать «разрыв» вне цикла или случая? - PullRequest
Новая
       12

DELPHI: как использовать «разрыв» вне цикла или случая?

3 голосов
/ 29 июля 2009

рассмотрим следующий код 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 где-либо в блоке обработки, и он мне нужен, чтобы остановить обработку в любое время.

Ответы [ 4 ]

14 голосов
/ 29 июля 2009

Есть еще один простой способ: 

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;
5 голосов
/ 29 июля 2009

Упакуйте его в функцию и используйте выход для возврата назад. если после оператора повторения есть еще код, используйте локальную функцию / процедуру, например: 

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;
4 голосов
/ 29 июля 2009

Что вы на самом деле делаете, так это используете break как goto. Предложение Ральфа использовать функцию в качестве области является хорошим. Но в противном случае вы можете быть честными и использовать «готово». Потеря повтора сделает его более читабельным.

1 голос
/ 30 июля 2009

Почему вы хотите использовать разрыв, а не выход? Разрыв в Delphi - это не то же самое, что «разрыв» в языках фигурных скобок. 

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 правильно выстроены», как вы сказали в предыдущем комментарии.

Если у вас есть код, который вы хотите выполнить после этого, либо воспользуйтесь предложением Ральфа о локальной процедуре, либо заключите в попытку ... в конце - код в finally все равно будет выполнен.

...