[User123]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

type   TPositionProc = procedure (const i: Integer);     TForm1 = class(TForm)     BitBtn1: TBitBtn;     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }     procedure Func3(const i: Integer);   public     { Public declarations }     Position: TPositionProc;     procedure SetRange(minVal, maxVal: Integer);     end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure Func1(const i: Integer); begin   ShowMessage('В процедуру 1 передан параметр: ' + IntToStr(i)); end;   procedure Func2(const i: Integer); begin   ShowMessage('В процедуру 2 передан параметр: ' + IntToStr(i)); end;   procedure TForm1.Func3(const i: Integer); begin   ShowMessage('В процедуру класса передан параметр: ' + IntToStr(i)); end;   procedure TForm1.SetRange(minVal, maxVal: Integer); begin   if maxVal - minVal < 100 then     Position:= Func1 else     if maxVal - minVal > 100 then       Position:= Func2     else       Position:= @TForm1.Func3; end;   procedure TForm1.BitBtn1Click(Sender: TObject); begin   SetRange(1, 10);   Position(5);   SetRange(1, 105);   Position(5);   SetRange(1, 101);   Position(5);    //тут ошибка выводит не 5, а адрес процедуры Func3 end;

[dr. F.I.N.]

Потому что Func1 и Func2 - это процедуры, а Func3 - это метод объекта (TMethod).
Процедуру в метод превратить можно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

type   TTestProc = procedure of Object;     TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     TestProc: TTestProc;     procedure TestProc1;   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TestProc2; begin   ShowMessage('Method 2'); end;   procedure TForm1.TestProc1; begin   ShowMessage('Method 1'); end;   procedure TForm1.Button1Click(Sender: TObject); var   p: TMethod; begin   TestProc := TestProc1;   TestProc;   p.Data := @Sender;   p.Code := @TestProc2;   TestProc := TTestProc(p);   TestProc; end;

[User123]

Спасибо. В моем варианте тоже все процедуры вызываются. Мне надо чтобы параметры передавались. Если в вашем варианте изменить тип на TTestProc = procedure (i: Integer) of Object;
и ниже по коду поправить объявления процедур, то вызов последнего TestProc(11) после нажатия на кнопку приведёт к вызову TestProc2(i), где i не будет равняться 11.

[User123]

Нашёл вариант преобразования TMethod в процедуру тут http://delphi-hlp.ru/index.php/ob-ek...ie/metody.html. Буду тестить