Код: Выделить всё
begin
repeat
fam:=InputBox('Авторизация', 'Введите свои ФИО', '');
if fam='' then MessageDlg('Вы не представились', mtWorning, [mbOk,mbCancel],0);
until fam<>''
end;
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Код: Выделить всё
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 писал(а):Способ предложенный Хыиуду, является более грамотным, с точки зрения культуры программирования