Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 3
Всего онлайн: 3
Зарегистрировано юзеров: 7024
Комментариев на сайте: 656
Новый юзер: Alvinbag



Последние комментарии
c
Paulineodods прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Всем добрый день Заказывала вот такую модель смартфона на сайте https://sale-aliexpress.ru . Продавец проявил инициативу и сам отправил с помощью DHL потом еще у DHL какой то сбой прошел . так продавец еще интересовался отписывался получила я или нет. В придачу положил рыбку для наушников (чтобы провода не запутывались))) и стилус. Короче мне повезло с продавцом и покупкой. Очень [url=https://sale-aliexpress.ru] рекомендую данный сайт .
YuristFom прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[b]ЮристЪ онлайн.[/b] Наша юридическая компания [b]"ЮристЪ"[/b] профессионально занимается разрешением всех юридических вопросов на протяжении многих лет. Отличное знание российского законодательства и широкая юридическая практика позволяют нашим юристам и адвокатам добиться положительного разрешения дела даже в самых сложных случаях. Наш сайт: http://jurs.info/g/ Юридическая консультация 24 на 7 ежедневно. Телефон указан на сайте. [url=jurs.info/g]Получить юридическую консультацию прямо сейчас![/url]

Урок 57 - Создание собственных процедур и функций Delphi, (часть 2/3)

  Теперь пример. Напишем программу суммирования двух чисел. Она будет состоять из Формы, на которой будет кнопка (компонент Button), по нажатию на которую будет выполняться наша подпрограмма, и двух строк ввода (компоненты Edit), куда будем вводить операнды. Начнём с процедуры.

var
	Form1: TForm1;
	A, B, Summa: Integer;
	
procedure Sum(A, B: Integer);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
	A:=StrToInt(Edit1.Text);
	B:=StrToInt(Edit2.Text);
	Sum(A, B);
	Caption:=IntToStr(Summa);
end;

procedure Sum(A, B: Integer);
begin
	Summa:=A+B;
end;
Результат


  Наша процедура находится после обработчика нажатия кнопки, где осуществляется её вызов. И программа работает именно потому, что заголовок процедуры вынесен в блок описания данных. Но всё же операция суммирования в данном случае производится как-то невнятно.
  Теперь сделаем то же самое с помощью функции.

var
	Form1: TForm1;
	A, B, Summa: Integer;
	
function Sum(A, B: Integer): Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
	A:=StrToInt(Edit1.Text);
	B:=StrToInt(Edit2.Text);
	Summa:=Sum(A, B);  // На мой взгляд, сейчас более понятно, откуда что берётся
	Caption:=IntToStr(Summa);
end;

function Sum(A, B: Integer): Integer;
begin
	Result:=A+B;
end;


   В следующем уроке мы рассмотрим особенности передачи параметров и некоторые возможности.

Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 28 Июня 2013
Просмотров: 7625

Урок 56 - Создание собственных процедур и функций Delphi, (часть 1/3) Урок 58 - Создание собственных процедур и функций Delphi, (часть 3/3)

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