Cuando y por que usar property

[donki]

Miraré de explicartelo:

La propiedades son como variables que otras classes pueden ver.

Las propiedades se guardan internamente dentro de la classe por unas variables assignadas en la declaración de la propiedad:

En tu ejemplo FNombrePropiedad es una variable privada (por convenio) de la classe. Tambien en tu ejemplo hay el procedure SetNombrePropiedad. Este procedure asignará el valor a la propiedad y te permitirá hacer más cosas en ese momento. Podrias tener una función GetNombrePropiedad. Esta función te permitiria obtener el valor de la propiedad( por ejemplo si fuera calculada)

Sobre lo del read y el write es bastante trivial, simplemente indicas que se lee (read) con la función o con la variable y se escribe (write) con el procedure o la variable

Espero que te ayude

[hector.roma]

A que me refiero con esto... imagínate que tienes dos clases:

Código Delphi [-]
TVariable=class 
public   
  miVariable : string; 
end; 

TPropiedad=class 
private   
  FmiVariable : string 
published   
  property miVariable : string read FmiVariable write FmiVariable;
end;

Como puedes ver las dos clases hacen lo mismo:

Código Delphi [-]
var
  Variable : TVariable;   
  Propiedad : TPropiedad; 
   ... 
begin   
  Variable.miVariable   := 'Hola variable';   
  Propiedad.miVariable := 'Hola propiedad'; 
end;

y podría parecer que es más cómodo al principio usar la clase TVariable en vez de de la clase TPropiedad pues "hay que escribir menos".

Sin embargo dejamos de lado el presente y avanzamos al futuro... ahora nos damos cuenta que queremos mostrar un mensaje de error si el valor del campo miVariable es una cadena vacía.

Desde la primera aproximación tenemos dos formas, bien verificamos fuera de la clase el valor introducido o bien añadimos un método que valide el texto introducido y en ambos casos recorremos nuestro código en busca de todas las veces que modificamos el valor de miVariable para añadir los cambios.
Sin embargo, si hemos usado propiedades el resultado podría quedar algo así:

Código Delphi [-]
TPropiedad=class 
private   
  FmiVariable : string 
published   
  property miVariable : string read FmiVariable write setTexto; 
end;

donde setTexto sería la función que nos valida el texto introducido.

Espero que este ejemplo te ayude a explorar más detenidamente el tema de las propiedades.

[jachguate]

sigo con la idea de Hector.

Las propiedades son útiles también para introducir "efectos secundarios".

Supongamos que estas programando una clase:

Código Delphi [-]
TEtiquetaV = class(TObject)
public
  Mensaje : string;
end;

TEtiquetaP = class(TObject)
  FMensaje: string;
public
  property Mensaje: string read FMensaje write FMensaje;

Mas adelante... mientras vas programando el sistema, te das cuenta que queres que el mensaje de la etiqueta se actualice automáticamente en la pantalla cuando el programador lo asigne, de manera que el usuario tenga un retorno de información adecuado.

Entonces, en lugar de escribir el valor de la propiedad directamente en FMensaje, creas un método SetMensaje (o cualquier otro nombre, aunque esta es la convención) y lo implementas algo como:

Código Delphi [-]
TEtiquetaP = class(TObject)
  FMensaje: string;
  procedure SetMensaje(const Value: string);
public
  property Mensaje: string read FMensaje write SetMensaje;
end;

....

procedure TEtiquetaP.SetMensaje(const Value: string);
begin
  FMensaje := Value;
  Repintar();
end;

Luego, te das cuenta que sería de utilidad al programador poder actuar cuando hay un cambio en el valor de la propiedad mensaje de la etiqueta.

Entonces añadis un evento a la clase y lo lanzas cuando cambia el valor:

Código Delphi [-]
procedure TEtiquetaP.SetMensaje(const Value: string);
begin
  FMensaje := Value;
  Repintar();
  DoOnChange;
end;

En fin... usar propiedades te ayuda a mantener una interfaz consistente al programador a medida que tus clases evolucionan, validar automáticamente los valores que la clase acepta en las propiedades (por ejemplo, solo números pares o impares, etc), introducir efectos secundarios "controlados", lanzar eventos.

Hasta luego.