E2182 Clause '%s' non autorisée dans la section OLE Automation (Delphi)

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

Les directives INDEX, STORED, DEFAULT et NODEFAULT ne sont pas autorisées dans des sections OLE automation.

program Produce;

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

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

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

begin
end.

Inclure une clause NODEFAULT sur une propriété automated n'est pas autorisé.

program Solve;

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

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

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

begin
end.

Enlever la clause incriminée fera disparaître l'erreur. Egalement, le déplacement de la propriété hors de la section automated enlèvera l'erreur.