Как прервать цикл repeat

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
   

Развернуть Обзор темы: Как прервать цикл repeat

Re: Как прервать цикл repeat

Хыиуду » 04 апр 2007, 14:03

Ну, это все можно сделать по выходу из цикла, потому что значение переменной answer сохраняется.

Re: Как прервать цикл repeat

Blood_Magic » 04 апр 2007, 13:22

SergeyS писал(а):Способ предложенный Хыиуду, является более грамотным, с точки зрения культуры программирования

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

Re: Как прервать цикл repeat

SergeyS » 03 апр 2007, 14:59

Способ предложенный Хыиуду, является более грамотным, с точки зрения культуры программирования

Re: Как прервать цикл repeat

Хыиуду » 03 апр 2007, 09:50

Код: Выделить всё

begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then answer:=MessageDlg('Вы не представились', mtWarning, [mbOk,mbCancel],0);
until (fam<>'') or (answer=mbCancel);
end;

Re: Как прервать цикл repeat

SergeyS » 03 апр 2007, 09:14

break;
прерывает все циклы

Как прервать цикл repeat

demon_1607 » 03 апр 2007, 09:12

Код: Выделить всё

begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then MessageDlg('Вы не представились', mtWorning, [mbOk,mbCancel],0);
until fam<>''
end;
Нужно чтобы на клик кнопки Cancel форма закрывалась. Как?

Вернуться к началу