Синтаксис указателя Delphi

Question

Я должен передать аргумент типа Pointer в функцию из внешней DLL.

• Как создать указатель на процедуру, которую затем можно передать функции?
• Можно ли также передать указатель на функцию-член класса во внешнюю функцию или это не сработает?

Answer 1

Просто используйте @MyProcedure для этого.

Имейте в виду, что оно должно иметь правильное соглашение о вызовах (вероятно, stdcall).

Обычно вы не можете использовать функцию-член, потому что она имеет скрытый параметр SELF.

Метод class static действует как обычная процедура / функция.

http://docwiki.embarcadero.com/RADStudio/en/Methods

Answer 2

Создайте этот тип, если процедура (или функция) является методом

type
  TMyProc = Procedure(x:Integer;y:Integer) of Object;

или это

type
  TMyProc = Procedure(x:Integer;y:Integer);

если процедура отдельная.

Использование:

//Some class method
Procedure TfrmMain.Add(x:Integer;y:Integer);
begin
  ...
end;

//Another class method that uses procedure as parameter
procedure Name(proc : TMyProc);
begin
  ...
end;

//Call with:

Name(Add);