Как прервать цикл repeat
Добавлено: 03 апр 2007, 09:12
Код: Выделить всё
begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then MessageDlg('Вы не представились', mtWorning, [mbOk,mbCancel],0);
until fam<>''
end;Код: Выделить всё
begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then MessageDlg('Вы не представились', mtWorning, [mbOk,mbCancel],0);
until fam<>''
end;Код: Выделить всё
begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then answer:=MessageDlg('Вы не представились', mtWarning, [mbOk,mbCancel],0);
until (fam<>'') or (answer=mbCancel);
end;
SergeyS писал(а):Способ предложенный Хыиуду, является более грамотным, с точки зрения культуры программирования