Передать локальную процедуру (под-процедуру) через переменную

[Kronos913]

type
  pr1=procedure;

Procedure aaa(b:pr1);
begin
  b;
end;

procedure TForm1.Button1Click(Sender: TObject);
  procedure cc;
  begin
    Button1.Caption:='1';
  end;
begin
  aaa(cc);
end;

Компилятор выдаёт ошибку.
Вопрос: возможно ли как-то передать именно локальную процедуру/функцию (под-процедуру)?

[DIONISKA]

Возможно, но зачем?

Procedure aaa(b:pr1);
begin
  b;
end;

procedure TForm1.Button1Click(Sender: TObject);
  procedure cc;
  begin
    form1.Button1.Caption:='1'; //не забываем про form1
  end;
begin
  aaa(@cc); //
end;

[Kronos913]

Следующий тест, который выдал ошибку
Мне нужно чтобы внутренняя процедура пользовалась переменной внешней

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;

  procedure cc;
  begin
    form1.Button1.Caption:=s; //íå çàáûâàåì ïðî form1
  end;
begin
  s:='123456789';
  aaa(@cc); //
end;

[DIONISKA]

Сообщение от Kronos913

чтобы внутренняя процедура пользовалась переменной внешней

Посыл то понятен, не понятен практический смысл. Максимально усложнить код для запутывания декомпиляторов? Усложнить жизнь тому, кто будет делать рефакторинг? Просто исследование возможностей delphi?
В целом можно передать так:

  pr1 = procedure (value:string);
Procedure aaa(b:pr1; value:string);
begin
  b(value);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  procedure cc(value:string);
  begin
    form1.Button1.Caption:=value;
  end;
begin
  s:='123456789';
  aaa(@cc,s);
end;

Можно извращаться по-разному, можно так:

 type
  pr1 = procedure (value:string);
  TMyproc=record
   public
   proc:pr1;
   value:string;
   class function Create(aproc:pr1; val:string):TMyproc; static;
  end;

Procedure aaa(b:TMyproc);
begin
  b.proc(b.value);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  procedure cc(value:string);
  begin
    form1.Button1.Caption:=value;
  end;
begin
  s:='123456789';
  aaa(TMyproc.Create(@cc, s));
end;

{ TMyproc }


class function TMyproc.Create(aproc: pr1; val: string): TMyproc;
begin
   Result.proc:=aproc;
   Result.value:=val;
end;

или даже так:

type
 TmyFunc = reference to procedure(value:string);

  TForm1 = class(TForm)
//...
    myfunc:TmyFunc;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:='123456789';
 myfunc(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 myfunc:=(procedure(value:string)
 begin
   form1.Button1.Caption:=value;
 end);
end;

Другой вопрос что практического смысла в этом особого нет

[Kronos913]

Практический смысл - просто я на простом чем-то тестирую идею которая нужна в более сложном коде.

А практическая задача: есть одна единая процедура которая проверяет наличие в папке файла соответствующего каким-то параметрам. А собственно параметры поиска - их определяет функция которая передаётся внутрь процедуры через параметры

[northener]

Сообщение от Kronos913

Практический смысл - просто я на простом чем-то тестирую идею которая нужна в более сложном коде.

А практическая задача: есть одна единая процедура которая проверяет наличие в папке файла соответствующего каким-то параметрам. А собственно параметры поиска - их определяет функция которая передаётся внутрь процедуры через параметры

Поздравляю! Вы придумали идею callback процедуры. Правда её уже придумали раньше, в прошлом веке.

[Kronos913]

Если честно, впервые про такое услышал
Пытался погуглить. Но всё написано слишком заумно

Где можно почитать простыми словами объяснение что это такой и как это работает?

[Kronos913]

             case byte(Optionen) of
                {Код других вариантов}
                253: begin
                       If PFuncS(SL)^.F(@SearchRec) then begin
                         PFuncS(SL)^.R:=true;
                         FindClose(SearchRec);
                         exit;
                       end;
                     end;
             end;

И PFuncS(SL)^.F - и есть ссылка на функцию которая является каким-то условием

[newerow1989]

Сообщение от Kronos913

возможно ли как-то передать именно локальную процедуру/функцию (под-процедуру)?

Нет. Надо делать глобальную процедуру.

type
  pr1=procedure;

Procedure aaa(b:pr1);
begin
  b;
end;

procedure cc;
begin
  Form1.Button1.Caption:='1';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  aaa(cc);
end;

[Kronos913]

Чтобы не создавать новую тему, у меня такой вопрос: как через переменную вызвать локальную процедуру?

Procedure aaa;
var
  p:procedure;

  procedure p1;
  begin
    {код}
  end;

  procedure p2;
  begin
    {код}
  end;
begin
  if {условие} then p:=p1 else p:=p2;
  {код}
  p;

Как что-то такое вот реализовать?