Процедурный тип

[pascal1992]

Помогите пжл с процедурным типом. Желательно с хорошим примерчиком)

[Stilet]

program project;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils;
type
  p=procedure;

  procedure ok(pp:p);
  begin
    write('Вызываем процу:');
    pp;
  end;

  procedure doo;  begin    write('№1');  end;
  procedure doo2;  begin    write('№2');  end;

begin
  ok(doo); //Вызываем калбэки
  ok(doo2);//Вызываем калбэки
  readln;
end.

Подходит?

[pascal1992]

а чем обусловлен такой подход? чем он удобен?

[s-andriano]

Это единственный способ вызвать процедуру неизвестную на момент компиляции.

[Poma][a]

Это единственный способ вызвать процедуру неизвестную на момент компиляции.

А как же forward ?

[s-andriano]

Сообщение от Poma][a

А как же forward ?

forward к данному вопросу никакого отношения не имеет.

[Stilet]

А как же forward ?

Форварды все равно становятся отрезольвенными на момент сборки после компиляции, а callback процедуры, которые и нужны автору даже на момент выполнения могут быть неизвестными программе.