процедура/функция как параметр процедуры

[eugrita]

Поддерживает ли TP7.0 тип параметра "процедура" или "функция" в списке параметров процедуры?
У меня на попытки объявления

Код:

 Procedure tst (Procedure F); 

компилятор говорит
Error2 Identifier expected

[RXL]

Бррр... Процедуру никак передать нельзя. Есть ли в Паскале понятие указателя на процедуру - затруднюсь сказать, но это было бы единственным решением.

[eugrita]

спасибо. уже подсказали решение
Надо примерно так

Код:

type proc=procedure(a,b:real;var c:real);
{$F+}
procedure Padd(a,b:real;var c:real);
begin
c:=a+b;
end;
procedure Psub(a,b:real;var c:real);
begin
c:=a-b;
end;
{$F-}
procedure PP(p:proc;a,b:real);

правда не понимаю роль ключа {$F+}   
но без него не работает,!!!

[Вад]

Передачу функций поддерживает, но не так. Нужно либо задать явно имя типа функции и использовать его, либо указать тип полностью в заголовке.
1.

Код: (Pascal)

type MyFuncType=function(x: int):string;

function foo(x: int):string; {функция типа, совпадающего с MyFuncType }
begin
    {some code}
end;

procedure boo (f : MyFuncType);
begin
    {some code}
end;

begin
    boo(foo);
end.

2.

Код: (Pascal)

function foo(x: int):string; {функция, которую будем передавать }
begin
    {some code}
end;

procedure boo (function f (x: int) : string);
begin
    {some code}
end;

begin
    boo(foo);
end.

Код компилировать не пытался, написано из общих соображений.

То, что ты пытаешься делать, по-моему, вообще нарушает конвенции паскаля по объявлению переменных.
upd. опередили

Добавлено через 8 минут и 57 секунд:
Выхода вижу два:
первый - использовать этот ключ, т.к. он задаёт "дальнюю" адресацию (то есть влияет на принцип сборки программы, чтобы переданная по значению функция вызывалась)
второй - передавать указатель на функцию, тогда этот ключ, наверное, не будет нужен (хотя за давностью всех дел, не уверен, пусть поправят).

И, кстати, зачем у тебя сложение и вычитание записаны процедурами, тогда как это по семантике функции? То есть, у них есть аргументы и результат, а не аргументы и побочное действие.

[Dimka]

TP 7.0 работает в DOS. DOS предполагает адресацию памяти процессора 8086, где вся память делится на сегменты по 64 Кб (для совместимости с процессором 8080). Ближний (near) указатель означает адрес внутри известного сегмента - номер байта, сдвиг (offset) от начала сегмента. Дальний (far) указатель означает адрес, состоящий из номера сегмента и offset.

В связи с этим существуют разные модели памяти процесса: tiny - весь процесс умещается в один сегмент (тогда far-адреса не нужны); small - весь процесс размещается в двух сегментах: исполняемый код - в одном, все переменные и стек вызовов (куча, стек) - в другом (тогда far-адреса также не нужны, поскольку всегда понятно, о каком сегменте идёт речь, и указатель на процедуру хранит offset процедуры в сегменте кода); другие модели предполагают наличие нескольких сегментов данных и кода (в разных сочетаниях) и используют far-адреса.

Ключ {$F+} означает, что находящийся после него код может размещаться в нескольких сегментах, и адреса процедур являются far-адресами. Когда-то об этом беспокоились, поскольку дальний вызов выполняется немного медленнее ближнего вызова процедуры; на современных машинах это абсолютно не важно в плане производительности, поэтому можно везде ставить {$F+}.