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

icepro

Дата 6.11.2007, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

Как создать сабж.... То есть создать процедуру в параметрах которой можно указывать не все параметры...

skyboy

Дата 6.11.2007, 17:10 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

решений два.
первое: перезагрузка.
т.е. реально создаешь количество функций равное количеству разнообразных параметров:

Код


function some(x: integer): integer; overload;
begin
 result:= x * x;
end;

function some: integer; overload;
begin
 result:= some(5);
end;

недостаток:

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

достоинство: гибкость, хотя и спорный аргумент(представь себе 5 аргументов, из которых надо 4 сделать необязательными).
---
второе решение: параметры по умолчанию.
реализуются через "=<значение>"

Код


function some(x: integer= 5): integer;
begin
 result:= x * x;
end;

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

ivan219

Дата 6.11.2007, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12

Цитата(skyboy @ 6.11.2007, 17:10

)

перезагрузка

Как вареант массив пораметров:

Код


procedure a(Ar: Array of Integer);

но опятже смотря для каких целей так как в самой процедуре нужно будет разбиратся какой пораметр для чего нужен.
Из '+' неограниченное число пораметров.
Из '-' нужно хорошенько подумать.

--------------------

Мой первый сайт и моя первая программа!!!!!

MetalFan

Дата 6.11.2007, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

еще можно упомянуть про Default параметры...

Код


interface
...
  procedure SomeFunc( AParam1: Integer; AParam2: Integer = -1 ):
...
implementation
  
...
  SomeFunc( 10, 10);
  SomeFunc( 10 );
...

Добавлено через 40 секунд
упс, skyboy уже упомянул)

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »