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

[KBO]

Есть такой код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if edit1.Text = '' then
    exit;  //<- 1-ый «exit»
  showmessage('1');

    if length(edit1.Text) = 2 then
    begin
        showmessage('2');
        edit1.Clear;
        {exit;}    //<- 2-ой «exit» 
        showmessage('3');
    end;
   showmessage(‘4’);
end;

Можно ли сделать, чтоб «showmessage('3');» - не выполнялось, БЕЗ учета 2-го «exit», а с отработкой 1-го «exit»?

Спасибо.

[evg_m]

Можно ли сделать, чтоб «showmessage('3');» - не выполнялось, БЕЗ учета 2-го «exit», а с отработкой 1-го «exit»?

а если все это сказать по-русски
в таких-то случаях showMessage(1)
в таких-то ... 3
.....

как вариант

case length(edit1.text) of
0: begin  .... end;
1: begin ... end;
else begin ... end;
end;

[KBO]

Нет, просто в событии таких

if length(edit1.Text) = 2 then

и не таких, тоже много (это как пример, упрощенный вариант)...
но даже дело не в этом.
А в строках (в моментах)

edit1.Clear;

встречающейся при различных ситуациях в этом собитии.
А т.к. это возвращает в начало события, т.е. на

if edit1.Text = '' then
    exit;  //<- 1-ый «exit»

я и хотел, чтоб на этих строках, все и заканчивалось, я имею ввиду выполнение события.
И я не влазил в основной код

[Serge_Bliznykov]

А т.к. это возвращает в начало события, т.е. на

не возвращает, а вызывает обработчик события - ведь Edit1 у Вас изменилось же.
не нужно, чтобы вызывался обработчик - то либо отключайте его перед Edit1.Clear и включайте после, либо заводите глобальную переменную и по ней ориентируйтесь, нужно в текущий момент срабатывание события или нет.

if length(edit1.Text) = 2 then
    begin
        Edit1.OnChange:=nil; //Deactivate
        edit1.Clear;
        Edit1.OnChange := Edit1Change; // восстановить обработчик
        showmessage('2');
        exit;
    end;

[Dvoishnik]

если честно толком не понял, чего вы хотите.

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if edit1.Text = '' then
    exit;  //<- 1-ый «exit» тут происходит выход из процедуры больше обработчик нечего не выполнит 
{если этит не пуст пойдем по поду дальше} 
 showmessage('1'); //выведем сообщение

    if length(edit1.Text) = 2 then // если кол-во символов в тексте 2
    begin
        showmessage('2');  //выведем сообщение
        edit1.Clear; // отчистим эдит 
        {exit;}    //<- 2-ой «exit»  если открыть скобки  showmessage('3'); вообще не когда не заработает проще убрать его.
        showmessage('3');  //выведем сообщение если скобки не открывать
    end; 
   showmessage('4'); // ведем сообщение 
end;

на тесте должно показать так
Едит пуст ничего не происходит
Едит имеет текст состоящий не из 2х символов выводится, 2 сообщение "2" и "4"
Едит имеет текст из 2-х символов выводятся все сообщения "1","2","3","4"
если открыть скобки {exit;}
Едит имеет текст из 2-х символов выводятся сообщения "1" и "2"

а чего вам нужно добиться??

[KBO]

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

а чего вам нужно добиться??

В "Edit1Change", у меня обрабатывается инф-я, которую пользователь вводит в "Edit1".
И в "Edit1Change", есть некое количество моментов, при котором происходит:

edit1.Clear;

После которого "edit1" очищается. И значит мне, не нужно далее обрабатывать "Edit1Change".
Чтоб, после каждого

edit1.Clear;

мне не писать "Exit", я и хотел, где-то в одном месте, делать выход из обработчика

[koljsch]

Может я не так Вас понял, да и суть проблемы как-то непонятна, но не легче заменить

if edit1.Text = '' then

на

if edit1.Text <> '' then

И весь блок события Edit1Change обернуть в вышеописанное условие?

[KBO]

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

Может я не так Вас понял, да и суть проблемы как-то непонятна, но не легче заменить

if edit1.Text = '' then

на

if edit1.Text <> '' then

И весь блок события Edit1Change обернуть в вышеописанное условие?

Все равно без 2-ого "exit" не обойтись.
"showmessage('3');" - все равно выпадает. :-)

[Алексей_2012]

Можно запускать таймер при ОнЧейнч, в таймер скопировать этот код, там работать точно будет, и при выполнении кода тормозить таймер, а потом exit;

Ну это если ничего не поможет, говонокод конечно выйдет, но все же.

Лучше пришлите наработки все свои, подумаем как сделать лучше.

А вообще, как выше было упомянуто:

procedure TForm1.Edit1Change(Sender: TObject);
begin
       if trim(edit1.Text) <> '' then
  begin
  showmessage('1');

    if length(edit1.Text) = 2 then
    begin
        showmessage('2');
        edit1.Clear;
        exit;
        showmessage('3');
    end;
   showmessage('4');
   end;
end;

[koljsch]

Все равно без 2-ого "exit" не обойтись.
"showmessage('3');" - все равно выпадает. :-)

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