Присвоение указателя переменной

[Sphinx]

STAKANOV
Я много уже чего подозреваю
Завтра ради интереса попробую в один .ехе запихнуть...
Посмотрю что будет.

[Иван Шихалев]

А зачем нужен указатель на процедурный тип? Что-то я всего замысла не понимаю...

[Sphinx]

Иван Шихалев
Я же кратко описывал...

Имеется .dll в которой находится код создания окна и цикл обработки оконных сообщений. И требуется иногда возвращать управление обратно в .ехе файл для выполнения некоторых операций (опять же через вызовы функций библиотеки в основном)

То есть в .exe примерно следующее:

Код: Выделить всё

...
function CallBackFunction(inValue: Double): HResult; stdcall;
begin
  ...
  Result := S_OK;
end;
...
  if Failed(InitLibrary) then CloseProgram;
  if Failed(CreateLibraryWindow) then CloseProgram;
  RunMainLoop(@CallBackFunction);
  CloseProgram;
end.

а в .dll примерно следующее:

Код: Выделить всё

...
type
  PCallBackProc = ^TCallBackProc;
  TCallBackProc = function(inValue: Double): HResult; stdcall;
...
procedure RunMainLoop(CallBackProc: PCallBackProc);
var
  ExeCallBackProc : TCallBakProc;
  ...
begin
  @ExeCallBackProc := CallBackProc;  // вот эта строка компилится только в {$MODE DELPHI}
...
  while boolAppRun do
    begin
      if PeekMessage(recLibWindow.MSG, 0, 0, 0, PM_REMOVE) then
        TranslateMessage(...);
        DispatchMessage(...);
      else
        if Failed(ExeCallBackProc) then
          boolAppRun := False; // delete If Assigned()
...

писал по памяти - мог чуть-чуть приврать в синтаксисе команд Windows.
Кроссплатформенность не нужна, компилить буду только под Win.

[Иван Шихалев]

Вот собственно и вопрос...почему именно {$MODE DELPHI}

Что-то сразу не заметил... Delphi, а вслед за нею и FPC в режиме совместимости, поддерживает синтаксис обращения к процедурным переменным в стиле Turbo Pascal - собака перед переменной. В режиме ObjFPC этот стиль идет лесом. В статье о режимах этого не было, поскольку тема достаточно запутанная и не слишком часто нужная.