Сложение двух чисел в Delphi 10 Seattle на Pascal

В статье рассказывается как создать приложение сложения двух чисел в Delphi 10 Seattle.

📖 Содержание ⬇️

Содержание

• Создание нового приложения
• Заполняем форму
• Написание кода

Создание нового приложения

Переходим в File → New → VCL Form Application - Delphi:

Рисунок 1 — Создание нового проекта

Появится вот такой вид:

Рисунок 2 — Созданный проект

Сохраняем всё в папке новой:

Рисунок 3 — Сохранение проекта

Рисунок 4 — Сохранение файла исходного кода

Рисунок 5 — Сохранения файла проекта

Заполняем форму

На форму кидаем два поля ввода:

Рисунок 6 — Добавление компонента TEdit

Кнопку:

Рисунок 7 — Добавление компонента TButton

И поле для вывода многострочного текста:

Рисунок 8 — Добавление компонента TMemo

В поле для вывода Memo1 удалим первоначальное содержимое:

Рисунок 9 — Свойство Lines компонента TMemo

Рисунок 10 — Первоначальное содержимое компонента TMemo

Также в поля ввода Edit1 и Edit2 введем первоначальное значение:

Рисунок 11 — Свойство Text компонента TEdit

Написание кода

Теперь можно переходить к написанию кода.

Двойной клик по кнопке:

Рисунок 12 — Двойной клик по кнопке

И видим это:

Рисунок 13 — Метод обработки клика кнопки

Добавьте переменные:

a,b,c : Integer;
S1, S2: UnicodeString;

И вводим такой код:

S1 := Edit1.Text;
S2 := Edit2.Text;

a := S1.ToInteger;
b := S2.ToInteger;

c := a + b;

Memo1.Lines.Add(IntToStr(a) + ' + ' + IntToStr(b) + ' = ' + IntToStr(c));:

Рисунок 14 — Код метода обработки клика кнопки

Теперь сохраняем всё и запускаем приложение:

Рисунок 15 — Запуск приложения

При нажатию на кнопку вы получите результат:

Рисунок 16 — Результат выполнения кода программы