E2180 Dispid '%d' déjà utilisé par '%s' (Delphi)
Remonter à Messages d'erreur et d'avertissement (Delphi)
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.