Можно ли задать параметр процедуру по умолчанию?

[maxvell]

Нужно внутри сортировки использовать внешнюю функцию обмена двух элементов. При этом есть вариант, что этой функции не будет в фактических параметрах. Можно ли задать параметр по умолчанию в виде процедуры?

Предполагается нечто типа:

Код: Выделить всё

procedure SelectionSort(var A: Arr; n: range;
swap: TSwapProc = @replace(var A: arr; i,j : range));


при попытке откомпилировать это, Free Pascal Compiler version 2.4.4-3.1 [2012/01/04] for i386 выдаёт ошибку:
sortings.pas(60,27) Error: Illegal expression

[ronin]

http://www.delphisources.ru/pages/faq/base/function_like_param.html не за что

[maxvell]

http://www.delphisources.ru/pages/faq/base/function_like_param.html не за что

Спасибо, конечно, но это не то, что мне нужно. Мне нужно не просто передача функции как параметр, а именно присваивание параметра по умолчанию, то есть, по сути: исправить то, что я написал на то, что будет работать..

[Ism]

Ну дык проверяйте параметр внутри процедуры и делайте с ним , что хотите. Хотя описанное напоминает функционал объекта

[maxvell]

проверяйте параметр

Как же мне его проверить, если его вообще не будет? Мне как раз и нужно задать его по умолчанию, а компилятор этого делать не хочет, видимо, я неправильно пишу это присваивание "по умолчанию"..

[Ism]

Тип данных параметра ?

[maxvell]

Ism, type p1 = procedure(var A: arr; i, j: integer);
процедура типа p1

[v-t-l]

Может так?

Код: Выделить всё

procedure SelectionSort(var A: Arr; n: range;
swap: TSwapProc = @replace);

[maxvell]

v-t-l, не, так тоже пробовал..

[Ism]

procedure SelectionSort(var A: Arr; n: range;
swap: TSwapObject;

Может в качестве параметра передавать объект выполняющий нужные функции ?
Если его не передавать , то swap будет nil и это можно проверить

[maxvell]

Может в качестве параметра передавать объект выполняющий нужные функции ?

Спасибо за совет, сейчас попробую!