var p:procedure

[Кольша]

Привет всем с новым годом!собственно вопрос:
Возможно ли записать процедуру как переменную
например

procedure a(s:string);
begin
showmessage(s);
end;

procedure b(p:procedure);
begin
b('sms');
end;

procedure exute;
begin
b(a);
end;

реально ли сделать что то такое ?

[Mad_Cat]

реально ли сделать что то такое ?

http://delphiworld.narod.ru/base/fun...ike_param.html

[Пепел Феникса]

возможно, но в вашем случае нужно указывать тип процедуры.

type
  myproc=procedure(a:string);

procedure a(s:string);
begin
showmessage(s);
end;

procedure b(p:myproc);
begin
b('sms');
end;

procedure exute;
begin
b(a);
end;

[Кольша]

[Error] main.pas(289): Incompatible types: 'regular procedure and method pointer'

[Кольша]

ВСЕ ИСПРАВИЛ СОЗДАЛ ПРОЦЕДУРУ НЕ ПРИНАДЛЕЖАЩУЮ ФОРМЕ