Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

  Все выпуски  

Delphi. Уроки


Информационный Канал Subscribe.Ru

Delphi. Object Pascal. Уроки с сайта http://progs.biz

Рассылка №30

Delphi. Object Pascal. Урок 11. Процедуры.

Полные версии уроков (с картинками) можно найти по адресам:
Урок 11. Процедуры.

Паппас К., Мюррей У. Эффективная работа: Visual C++.NET

Заказать на Озоне

Подробнее

Рассылки Subscribe.Ru
Вопросы и ответы по MS SQL Server
Совершенствование знаний MS SQL Server. Ответы на наиболее часто задаваемые вопросы. Особенности программирования на Transact-SQL, тонкая настройка сервера и администрирование. Рассылка предназначена как для начинающих, так и для опытных и продвинутых программистов и администраторов.

Delphi. Pascal. Урок 11. Процедуры

Разумеется, в любой нормальной программе есть повторяющиеся куски кода. И, конечно, их не надо многократно писать в одном месте - такой код достаточно написать в одном месте, дать ему некоторое имя и потом по этому имени вызывать из разных мест.

Такие повторяющиется куски кода могут быть 2-х типов - возвращающие значения (они называются функциями) и не невозвращающие значения (они называются процедурами). Первые можно использовать в различных выражениях, вторые - нельзя. Мы в данном уроке рассмотрим вторые.

Вот пример объявления и использования процедуры:

...
//Объявление процедуры.
procedure ShowXY(X, Y: Single);
begin
  Writeln('X=', X, ', Y=', Y);
end;
begin
  //Вызов процедуры.
  ShowXY(2, 4.5);
  Readln;
end.

Приведенный фрагмент выведет на экран 2 и 4.5 с десятичной частью.

Как видно, процедура объвляется с помощью ключевого слова procedure. После этого слова пишем произвольное имя, после которого в круглых скобках - параметры. Для каждого параметра указываем тип. Далее пишем тело процедуры между begin и end.

Вызывая процедуру, мы пишем конкретные параметры или переменные нужного типа. Параметры разного типа разделяем точкой с запятой. Если параметры отсутствуют, то и при объявлении процедуры и при ее вызове круглые скобки можно писать, а можно не писать.

Если процедур несколько, то слово procedure пишем перед каждой из них.

Вот общий пример на все сказанное:

//Объявление процедур.
procedure Show(); //Скобки можно не писать.
begin
  Writeln('X=0, Y=0');
end;
procedure ShowXY(X: Integer; Y: Single);
begin
  Writeln('X=', X, ', Y=', Y);
end;
begin
  //Вызов процедуры.
  Show; //Скобки можно не писать.
  ...
Наверх

Copyright Алексеев Игорь, 2002-2003
Copyright Шмидт Отто, 2002-2003
Copyright сайт progs.biz, 2002-2003
Распространение материалов без разрешения владельцев авторских прав запрещено.


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное