Harrix Блог

  • Списки статей
    • Все статьи
    • IT
    • Qt
    • C++
    • Сложение двух чисел
    • Web программированиe
    • FAQ
    • Latex
    • Установка программ
    • Мифы
    • Видео
    • Про фото
  • Проекты
  • Harrix.org
  • RSS
  • Контакты

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

Немного о паскале.

28.05.2016 Leave a Comment 7 949 просмотров

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

Статья из цикла «Сложение двух чисел». Для меня минимальное освоение любой системы программирования начинается с возможности создания такой программы. Если можно написать приложение, в которой пользователь может ввести два числа, считать их, провести с ними какие-то действия, а потом вывести результат, то, значит, базовое владение имеется. И много задач именно из области программирования, алгоритмики можно будет решать, зная, как в конкретной системе программирования запрограммировать такую программу.

Содержание

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

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

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

2016-05-28_221627

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

2016-05-28_221702

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

2016-05-28_221941

2016-05-28_222101

2016-05-28_222110

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

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

2016-05-28_222231

Кнопку:

2016-05-28_222327

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

2016-05-28_222402

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

2016-05-28_222518

2016-05-28_222614

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

2016-05-28_215010

2016-05-28_222707

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

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

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

2016-05-28_222819

И видим это:

2016-05-28_222859

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

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

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

1
2
3
4
5
6
7
8
9
S1 := Edit1.Text;
S2 := Edit2.Text;
 
a := S1.ToInteger;
b := S2.ToInteger;
 
c := a + b;
 
Memo1.Lines.Add(IntToStr(a) + ' + ' + IntToStr(b) + ' = ' + IntToStr(c));

2016-05-28_224857

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

2016-05-28_224949

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

2016-05-28_225035


Статьи по теме:

  1. Сложение двух чисел в Delphi 10 Seatle на C++ (консольное приложение)
  2. Сложение двух чисел в PascalABC.NET на pascal (консольное приложение)
  3. Сложение двух чисел в Free Pascal IDE на pascal (консольное приложение)
  4. Сложение двух чисел в Eclipse на Java (Android приложение)

IT Delphi, Pascal, Программа сложения двух чисел

© 2014 Harrix