Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 04.03.2010
Сообщений: 14
1

По нажатию кнопки должно быть произведено действие и выведен результат

05.04.2010, 10:56. Просмотров 1616. Ответов 1
Метки нет (Все метки)

Задание в текстовой форме
Пример 20. ЗАДАНИЕ Решатель На форме разместите: - поле ввода - edChislo1 - целое число - поле ввода - eddeistv - символ арифметического действия - поле ввода - edChislo2 - целое число - текстовое поле lbResult - результат операции над числами - кнопку bbRun - выполнение операции По нажатию кнопки должно быть произведено действие и выведен результат. В поля ввода должны вводиться лишь допустимые символы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2010, 10:56
Ответы с готовыми решениями:

Действие по нажатию кнопки на клавиатуре
Всем привет! У меня на форме лежит кнопка. В ее обработчике написано:...

Как должна быть организована сеть офиса? Что должно быть настроено обязательно, а чего быть не должно?
Добрый день. Сразу оговорюсь, что я инженер-строитель и настройкой сети занимаюсь только потому,...

Действие по нажатию кнопки
Всех приветствую. У меня в приложении формы есть кнопка, которая отвечает за начало действия,...

Действие по нажатию кнопки на MessageBox
Вот нашел код, который меняет название кнопок на MessageBox. Как здесь написать , чтобы по нажатию...

1
Почетный модератор
11157 / 4114 / 409
Регистрация: 12.06.2008
Сообщений: 11,916
05.04.2010, 11:50 2
Лучший ответ Сообщение было отмечено vity как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.bbRunClick(Sender: TObject);
Var S : String;
    C1, C2 : Integer;
begin
  S := eddeistv.Text;
  If Length(S)<>1 then S := ' '; // заведомо неверное действие
  C1 := StrToInt(EdChislo1.Text);
  C2 := StrToInt(EdChislo2.Text);
  Case S[1] of
    '+': lbResult.Caption := IntToStr(C1+C2);
    '-': lbResult.Caption := IntToStr(C1-C2);
    '*': lbResult.Caption := IntToStr(C1*C2);
    '/': If C2<>0 then lbResult.Caption := IntToStr(C1 div C2) else lbResult.Caption := 'Деление на нуль';
    else lbResult.Caption := 'Неверное действие';
  End;
end;
Добавлено через 56 секунд
Если результат может быть не только целым, то в 13 строке можно заменить
Delphi
1
IntToStr(C1 div C2)
на
Delphi
1
FloatToStr(C1 / C2)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2010, 11:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как выполнить действие по нажатию кнопки?
Это возможно? При нажатии на кнопку нужно выполнить: public void...

Форматирование текста и действие по нажатию кнопки назад
День добрый! Столкнулся с такой проблемой: -есть текст и его надо выровнять по ширине т.е не...

Результат переменной постоянно 0, хотя должно быть другое значение
Добрый день. Подскажите, пожалуйста, почему результат переменной (m1)постоянно ноль? Я считаю по...

По нажатию кнопки на страницу должно вывести таблицу умножения на любое число.
Простенькая задача: по нажатию кнопки на станицу должно вывести таблицу умножения на любое число....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.