protected vs private etc...

[Дmmm]

кто скажет, из-за чего возникает ошибка при вызове Get_R?
подозреваю, что поле не так объявлено, но как правильно?

PHP код:

type
  Tgt3 = class(TTypedComObject, Igt3)
      P_L: double;
  protected
    function Set_L(P0: Double): HResult; stdcall;
    function Get_R: double; stdcall;
  end;

implementation

uses ComServ, System.SysUtils;

function Tgt3.Set_L(P0: Double): HResult;
stdcall;
begin
  P_L:=P0;
  Result:=S_Ok;
end;

function Tgt3.Get_R: double;
begin
    Result:=P_L+1.0;
end; 


[Alex11223]

Секретная ошибка?

[min@y™]

1. а нахрена stdcall?
2. автор, ты, хоть, в курсе, что эта директива означает?

можешь соврать, мне всё равно. Главное - на 1-й вопрос ответь.

[Дmmm]

stdcall вставляет сам Дельфи после добавления методов СОМ-интерфейса.
понятно, что без параметров у функции он и нахрен не нужен