Cuando y por que usar property

[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.