Помогите передать указатель на функцию класса

[bakanaev]

Добрый день
Не получается передать указатель на функцию Firstfunction класса TNewClass :

	
	TFunctionPointr = function: Boolean;

	TMainClass = class (TThread)
	protected
		procedure GetFriends(FunctionPointr: TFunctionPointr);
	public
		destructor Destroy; override;
	end;

	TNewClass = class(TMainClass)
	strict private
	  function  Firstfunction: Boolean;
	public
	  constructor Create;
	  destructor Destroy; override;
	end;


	...

	implementation
        
        function Test: Boolean;
        begin
        end;
	
	constructor TNewClass.Create;
	begin
	  inherited;
	  GetFriends(@Firstfunction); // вот тут вылетает  [dcc32 Error] ***.pas(109): E2036 Variable required
          GetFriends(@Test); // Все ок
        end;

Не могу понять что компилятор хочет от меня, подскажите пожалуйста чего нужно сделать))
Спасибо

[саша40]

Pointer(указатель) содержит адресс твоей функции в адресном пространстве процесса. И любой указателя на тип делатся так:

type
TFunc = function (): Boolean; //тип 
PFunc = @TFunc; //указатель на него

Так же, функция должна иметь ешё и кодовое описание(то есть, что она делать будет).
Использовать её можно примерно так:

procedure DoSomethink(Func: PFunc);
begin
if Func<> nil then 
begin
Func^; 
ShowMessage('Функция отработала');
end;
end;

[bakanaev]

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

Если передавать функцию не описаную в классе, ту все ок. Если функция описана в классе, то вылетает ошибка как в первом посте

	TFunctionPointr = function: Boolean;

	TMainClass = class (TThread)
	protected
		procedure GetFriends(FunctionPointr: TFunctionPointr);
	public
		destructor Destroy; override;
	end;

	TNewClass = class(TMainClass)
	strict private
	  function  Firstfunction: Boolean;
	public
	  constructor Create;
	  destructor Destroy; override;
	end;


	...

	implementation
        
        function Test: Boolean;
        begin
        end;
	
	constructor TNewClass.Create;
	begin
	  inherited;
	  GetFriends(@Firstfunction); // вот тут вылетает  [dcc32 Error] ***.pas(109): E2036 Variable required
          GetFriends(@Test); // Все ок
        end;

[min@y™]

TFunctionPointr = function: Boolean of object;

[bakanaev]

Сообщение от min@y™

TFunctionPointr = function: Boolean of object;

Не помогло, все равно пишет:
[dcc32 Error] ***.pas(109): E2036 Variable required

[min@y™]

Экспериментируй:

GetFriends(Firstfunction);
GetFriends(TFunctionPointr(Firstfunction));
GetFriends(TFunctionPointr(@Firstfunction));
GetFriends(@(Self.Firstfunction));
// и т.п. варианты

B попробуй из strict private запихать её, например, в protected.
Чудес-то не бывает, ёмаё.

[StriderX]

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

Не помогло, все равно пишет:
[dcc32 Error] ***.pas(109): E2036 Variable required

Убирайте у себя везде собачки - это снимает контроль типов. Не надо его снимать, если нет абсолютного понимания происходящего.
Firstfunction - это уже сам по себе указатель, но еще типизированный =-)

[bakanaev]

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

Убирайте у себя везде собачки - это снимает контроль типов. Не надо его снимать, если нет абсолютного понимания происходящего.
Firstfunction - это уже сам по себе указатель, но еще типизированный =-)

Спасибо, помогло