Калькулятор на delphi 1

Сьогодні, Ми напишемо простенький калькулятор на мові програмування Delphi.

Додамо чотири кнопки і три текстових поля.

Розставте всі елементи, як вам завгодно.

Я зробив ось так:

Для кнопки додавання:

Для кнопки віднімання:

Для кнопки множення:

Для кнопки ділення:

Як ви бачите в коді присутня умова If (Edit1.Text <> '') And (Edit2.Text <> '') Then. яке перевіряє на порожнечу текстових полів Edit1 і Edit2, якщо вони будуть порожні і ми натиснемо на кнопку, то нічого не станеться і врятує нас від помилки.

Тепер поговоримо про перетворення.

Для того щоб виконувати діями з цифрами нам потрібно з строкового типу зробити числовий тип.

StrToFloat (Edit1.Text) + StrToFloat (Edit2.Text) - перетворимо з строкового типу в дробовий (з плаваючою комою) і виробляємо складання цих чисел.

Edit3.Text: = FloatToStr - тепер, коли ми виконали дію, нам потрібно вивести відповідь в Edit3, але знову ж таки потрібно перетворювати, т.к Edit - зберігає в собі рядком тип і за допомогою FloatToStr. ми перетворимо в рядком тип.

Ну і нарешті перевіряємо: