Показать сообщение отдельно
  #1  
Старый 01.02.2021, 16:03
User123 User123 вне форума
Прохожий
 
Регистрация: 01.02.2021
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Указатель на метод класса. Помогите исправить

Код:
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;
Ответить с цитированием