E2180: Dispid '%d' déjà utilisé par '%s' (Delphi)

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

Une tentative a été effectuée pour utiliser un dispid déjà affecté à un autre membre de la classe.

program Produce;

  type
    Base = class
      v : Integer;
      procedure setV(x : Integer);
      function getV : Integer;
    automated
      property Value : Integer read getV write setV dispid 151;
      property SecondValue : 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.

Chaque dispid de propriété automated doit être unique, ainsi SecondValue est en erreur.

program Solve;

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

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

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

begin
end.

Si un dispid unique est donné à SecondValue, l'erreur sera supprimée.