Проектирование калькулятора в среде Delphi. Семенов Н.М. - 8 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

8
26) Поместите компонент Bevel из страницы Additional Палитры компонентов на
форме для отделения результатов вычисления операндов.
27) Измените свойство Style компонента Bevel1 на bsRaised. Вам может также
понадобиться скорректировать свойство Height так, чтобы результат был хорошо виден
на экране. Значение свойства, равное 5, например, будет приемлемо.
После завершения визуального проекта интерфейса перейдём к разработке
нужного поведения приложения.
1.2 Ввод кода для калькулятора
Если теперь попытаться выполнить программу калькулятора, она должна
компилироваться и выполняться успешно, но она не будет ничего делать. Нет никаких
действий, связанных с нажатием кнопок калькулятора, кроме кнопки Close, которая по
определению закрывает панель.
Чтобы обеспечить действие для таких событий, как нажатие кнопки
пользователем, надо написать программу на Object Pascal.
1.2.1 Поддержка сложения
Для обеспечения выполнения операции сложения надо выполнить следующие
действия:
Нажмите дважды кнопку BtnAdd в окне Дизайнера форм.
В ответ на это Delphi создаст заданный по умолчанию обработчик события для
этой кнопки. Курсор будет помещён в строку между ключевыми словами Паскаля begin
и end в сгенерированном блоке программы:
procedure Tform1.BtnAddClick (Sender: TObject);
begin
end;
Пространство между begin и end - это поле Вашего собственного кода, который
Вы вводите для отклика на событие, в данном случае - нажатие кнопки.
По идее, теперь калькулятор должен был бы взять содержимое окна
редактирования для первого операнда, сложить его с содержимым окна редактирования
второго операнда и поместить результат в поле результата. Но в окнах вводятся
значения для переменных строкового типа, а складывать мы должны переменные типа
Integer. Требуемое преобразование можно выполнить, вызвав одну из стандартных
функций модуля Sysutils:
- StrToInt преобразует параметр типа String в числовой эквивалент; например,
StrToInt (‘123’) берёт строку ‘123’ и возвращает число 123, назначая ему тип LongInt,
совместимый с Integer.
- IntToStr берёт числовое целое значение в качестве параметра и возвращает
символьное представление числа, например, IntToStr (789), принимающее
целочисленную константу 789 в качестве аргумента, возвращает строку со значением
‘789’.

Страницы