Как исправить ошибку «Несовместимые типы:« PPointer »и« Pointer »* Delphi? - PullRequest
Новая
       39

Как исправить ошибку «Несовместимые типы:« PPointer »и« Pointer »* Delphi?

0 голосов
/ 05 марта 2020

При создании программы, использующей библиотеку Graphics32 (старая версия 1.9.1 ) с Delphi XE4 (для Win32, если это важно), я получил следующее ошибка компилятора:

[ошибка dcc32] GR32_LowLevel.pas (1240): несовместимые с E2010> типы: 'PPointer' и 'Pointer'

, которые создаются этой строкой : Registry.RegisterBinding(FID_FILLLONGWORD, @@FillLongWord);

Где RegisterBinding определяется как: 

procedure RegisterBinding(FunctionID: Integer; BindVariable: PPointer);

И FillLongword определяется как: 

var
  FillLongword: procedure(var X; Count: Cardinal; Value: Longword);

Как устранить ошибку компилятора ? Мне кажется, что синтаксис правильный, не означает ли @@ «указатель указателя», то есть PPointer? Спасибо.

...