Тема: Написать программу на Delphi 7
Показать сообщение отдельно
  #2  
Старый 15.03.2009, 20:32
Аватар для tormoz
tormoz tormoz вне форума
Прохожий
  
Регистрация: 15.03.2009
Сообщения: 3
Репутация: 10
По умолчанию
var
x,y: Integer;
begin
if x+y>32767 then
ShowMessage('Ошибка')
else
ShowMessage(IntToStr(x+y))
end;
Запихнеш в процедуру и всё
Ответить с цитированием