Процедуры Delphi

Дата публикации

Продолжаем изучать основы основ, сегодня мы рассмотрим процедуры Delphi. Процедуры и функции Делфи очень похожи между собой. Разница заключается в том, что процедура по выполнению не возвращает никакого значения. Итак, обо все по порядку.

Начнем с определения:

Процедура Delphi – группа операторов объединенных вместе под одним именем.

Из чего состоит процедура?

  1. Ключевое слово procedure
  2. Имя процедуры
  3. Список параметров
  4. Тело процедуры (Та самая группа операторов)

Приведу пример процедуры:

procedure Myproc (x:integer);
begin
case x of
  1: ShowMessage('Число 1');
  2: ShowMessage('Число 2');
  5: ShowMessage('Число 5');
  else ShowMessage('Число не 1, не 2 и не 5');
end;

Этот простейший Delphi код принимает целочисленное значение. Если это значение равно 1, 2 или 5, то выводим соответствующее сообщение. Иначе сообщаем, что введенное число не равно ни одному из списка.

Рассмотрим как нам это использовать. Создайте новый проект и разместите на нем всего одну кнопку. По клику на неё будем вызывать MyProc c параметром 5:

procedure TForm1.BMyProcClick(Sender: TObject);
begin
  Myproc(5);
end;

Код программы целиком у меня получился такой:

unit UMyProc;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    BMyProc: TButton;
    procedure BMyProcClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure Myproc (x:integer);
begin
case x of
  1: ShowMessage('Число 1');
  2: ShowMessage('Число 2');
  5: ShowMessage('Число 5');
  else ShowMessage('Число не 1, не 2 и не 5');
end;
end;
procedure TForm1.BMyProcClick(Sender: TObject);
begin
  Myproc(5);
end;
end.

Теперь в двух словах расскажу для чего нужны процедуры Делфи и какие плюсы от их использования. Если мы часто повторяющиеся фрагменты кода выделим в процедуру и дадим ей информативное имя – получим следующие преимущества:

  1. Код станет короче
  2. Читаться программа будет проще
  3. Редактировать логику приложения не составит труда

Я рекомендую Вам использовать процедуры Delphi.

Добавить комментарий



Обновить

Комментарии   

 
0 #1 Ярослав 06.05.2014 12:29
После того, как прочитал статью о функциях и тут стало все ясно
Цитировать
 
Monday the 23rd. icq 486350790
Copyright 2012

©