E2183 Clause Dispid autorisée seulement dans la section OLE Automation (Delphi)

Remonter à Messages d'erreur et d'avertissement (Delphi)

Dispid a été donné à une propriété qui ne se trouve pas dans une section automated.

program Produce;

  type
     Base = class
       v : integer;
       procedure setV(x : integer);
       function getV : integer;
       property Value : integer read getV write setV dispid 151;
     end;

  procedure Base.setV(x : integer);
  begin v := x;
  end;

  function Base.getV : integer;
  begin getV := v;
  end;

begin
end.

Ce programme essaie de définir dispid pour un objet OLE automation, mais la propriété n'a pas été déclarée dans une section automated.

program Solve;

  type
     Base = class
       v : integer;
       procedure setV(x : integer);
       function getV : integer;
     automated
       property Value : integer read getV write setV dispid 151;
     end;

  procedure Base.setV(x : integer);
  begin v := x;
  end;

  function Base.getV : integer;
  begin getV := v;
  end;

begin
end.

Pour résoudre cette erreur, vous pouvez soit enlever la clause dispid de la déclaration de propriété, soit déplacer la déclaration de propriété dans une section automated.