Тема
:
А давайте соберем команду и напишем прогу?
Показать сообщение отдельно
#
11
01.04.2013, 14:13
YVitaliy
Местный
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация:
17
Пусть метка будет называться L1, L2
Код:
var ... label L1, L2;
Код:
L1: Begin Writeln('Вы уверены? (Y/N)'); if readkey='y' then GOTO L2; End;
YVitaliy
Посмотреть профиль
Отправить персональное сообщение для YVitaliy
Отправить Email для YVitaliy
Найти все сообщения от YVitaliy