Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2007, 23:57   #11
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от ара Посмотреть сообщение
Спасибо, за подсказку и за совет! Но у меня еще вопросю Я сделал все так как вы мне посоветовали, если сначала выбрать вариант из списка, а потом внести данные в строки ввода, то получается ошибка! Подскажите, как от нее избавиться!?
Еще раз, но внимательно, читайте мой первый пост в этой теме...
mihali4 вне форума Ответить с цитированием
Старый 05.12.2007, 09:29   #12
ара
Форумчанин
 
Регистрация: 11.04.2007
Сообщений: 106
По умолчанию

Был не внимателен!!! Но все же, есть ли другой способ? Или намекните, как можно сделать, чтобы сначала выполнялась проверка введены ли сперва данные в эдиты или выбран элемент в Combo? Заранее благодарю!
ара вне форума Ответить с цитированием
Старый 05.12.2007, 16:21   #13
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Да без намеков...
Код:
procedure TForm.ComboBoxChange(Sender: TObject);
var
a,b,sum:integer;
begin
try
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
except
ShowMessage('Данные не заданы или не являются целыми числами!');
Edit1.SetFocus;
exit;
end;
if ComboBox.ItemIndex[0] then sum:=a+b;
if ComboBox.ItemIndex[1] then sum:=a-b;
edit3.Text:=inttostr(sum);
end;
mihali4 вне форума Ответить с цитированием
Старый 05.12.2007, 17:50   #14
ара
Форумчанин
 
Регистрация: 11.04.2007
Сообщений: 106
По умолчанию

Спасибо большое!
ара вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите разобраться Tanuska___:) БД в Delphi 1 04.09.2008 14:56
Помогите разобраться с С++ igroman Общие вопросы C/C++ 1 03.08.2008 23:15
Помогите разобраться! SerSasha Помощь студентам 4 09.06.2008 10:00
Помогите разобраться! Кот Microsoft Office Excel 3 14.08.2007 19:48