AddProperty() no necesita comprobar la existencia de la propiedad

Puede no ser obvio, pero el método AddProperty() (y la función ADDPROPERTY() agregada en VFP 8.0) es bastante "lista" para no colisionar o para no generar un error cuando usted añade con .AddProperty() una propiedad que ya exista.

En vez de un código semejante a esto:

IF NOT PEMSTATUS(THIS,"AlgunaPropiedad",5)
  THIS.AddProperty("AlgunaPropiedad", AlgunValor)
ENDIF

usted puede escribir esta sola línea de código:

THIS.AddProperty("AlgunaPropiedad", AlgunValor)

Con lo cual VFP agrega la propiedad "AlgunaPropiedad" si no existe ya, y le asigna "AlgunValor" a ésta.

VFP Tips & Tricks - Drew Speedie