Показать сообщение отдельно
  #7  
Старый 20.03.2011, 22:33
Аватар для eXplorer
eXplorer eXplorer вне форума
Активный
 
Регистрация: 06.08.2010
Адрес: Ярославль
Сообщения: 264
Версия Delphi: 7
Репутация: 14
По умолчанию

Цитата:
Сообщение от 91alexey
вообщем в панел tedit вводятся только числа.а если введу буквы ошибку выводит..

это из за этой строчки кода:
Код:
N := StrToInt(Edit1.Text);

так ты сказал если ввели в едит "1" то выводится сообщение "привет" если "2" то "пока" в чем проблема? какие буквы ты в едит вводишь? если надо помимо этого ещё в едит вводить строковые данные какие-то то тогда сделай так:
Код:
begin
if Edit1.Text='1' then
  ShowMessage('Привет')
else
if Edit1.Text='2' then
  ShowMessage('Пока')
else
  ShowMessage('Неизвестное значение');
end;

а вообще лучше поясни задачу толком что бы хоть кто-нибудь понял чего ты хочешь
__________________
Ответить с цитированием