Прерывание события, первый exit не помог

[min@y™]

А мож не надо менять текст компонента в обработчике события изменения текста в компоненте?

[KBO]

Сообщение от koljsch

Напишите более подробно, что именно Вам нужно, т.к., я думаю, тут многие не поймут самого задания

У меня есть приблизительно:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if edit1.Text = '' then
    exit;
  begin
     ...
     edit1.Clear;
     {код1} 
  end;
  begin
     ...
     edit1.Clear;
     {код2} 
  end;
  begin
     ...
     edit1.Clear;
     {код3} 
  end;
  begin
     ...
     edit1.Clear;
     {код4} 
  end;
  ....
  ....
  begin
     ...
     edit1.Clear;
     {код n} 
  end;
end;

Чтобы после "edit1.Clear;" прекратить обработку события "Edit1Change" и не выполнять {код 1} ... {код n}, я должен, после кадого "edit1.Clear;" поставить "exit".
Я думал можно, обойтись без "exit" в блоках:

begin
     ...
     edit1.Clear;
     exit; //<- забыть и не писать 
     {код n} 
  end;

Хотя можно и ставить "exit", но как-то не хорошо будет смотреться

[min@y™]

Говнокод жопорукой обезьяны.

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Tag <> 0
    then Exit;

  Edit1.Tag:= 100500;
  try
     // целевой говнокод с изменением текста внутри Edit1
  finally
    Edit1.Tag:= 0;
  end;
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

[Serge_Bliznykov]

я так понимаю, что мой пример из пост #4 все просто проигнорировали, да?!

[min@y™]

я так понимаю, что мой пример из пост #4 все просто проигнорировали, да?!

Кто здесь???!!!111

[koljsch]

Если чтобы не было exit, то объявите булевую переменную, например flag, изначально будет false, в каждом if проверять false она или нет, если заходим в блок if, то изменяем ее на true.
Вот и все, остальные блоки тогда не проверяются.

[min@y™]

Если чтобы не было exit, то объявите булевую переменную, например flag, изначально будет false, в каждом if проверять false она или нет, если заходим в блок if, то изменяем ее на true.
Вот и все, остальные блоки тогда не проверяются.

Гениально жэж!!!!

[KBO]

Сообщение от koljsch

Если чтобы не было exit, то объявите булевую переменную, например flag, изначально будет false, в каждом if проверять false она или нет, если заходим в блок if, то изменяем ее на true.
Вот и все, остальные блоки тогда не проверяются.

разницы в таком случае маловато, или

в каждом "if" делать проверку

или

как я делаю, ставлю просто "exit"
(всеравно дополнительные строчки)