Paso de valores hacia propiedades
 

Mi curiosidad me tiene intrigado... pues yo no he notado diferencia entre el paso de valores de propiedades hacia las viarables privadas correspondientes. Verán.... cuando uno declara propiedades para una clase hce algo como:

Código Delphi [-]
miclase = class
  private
    fpropiedad1: integer;
    fpropiedad2: integer;
    procedure SetPropiedad1(const Value: integer);
    procedure SetPropiedad1(const Value: integer);
  public
    property Propiedad1: integer read fpropiedad1 write SetPropiedad1;
    property Propiedad1: integer read fpropiedad1 write SetPropiedad1;

Lo normal en un procedimiento Setxxxx es:

Código Delphi [-]
if Value <> FPropiedad1
  then FPropiedad1 := Value;

Hasta allí todo bien.
Ahora supongamos que al setear el valor de la propiedad2, hay que cambiar el de propiedad1. Y es aquí donde tengo una curiosidad: ¿Es lo mismo hacer esto:

Código Delphi [-]
if Value <> FPropiedad2
  then begin
           FPropiedad2 := Value;
           FPropiedad1 := FPropiedad2 div 2; // es por poner un ejemplo...
         end;

que esto otro?:

Código Delphi [-]
if Value <> FPropiedad2
  then begin
           FPropiedad2 := Value;
           Propiedad1 := FPropiedad2 div 2; // es por poner un ejemplo...
         end;

¿Se vé la diferencia? El primero se cambia en forma directa hacia la variable privada. El segundo hace que dispare el procedimiento SetPropiedad1.

No hay error en el código... ¿Pero cual método es mejor? ¿Habrá algún efecto colateral el que pase (o no pase) el valor en forma directa hacia la variable privada? Por poner un ejemplo extremo: supongamos que hay 20 propiedades y que el cambio de una de ellas haga que se propage una serie de cambios en el resto... ¿se notará algún efecto?

También estuve pensando de que internamente el compilador traduce a cada Propiedad := Valor por el SetPropiedad. Pero si uno omite la declaración de SetPropiedad.... ¿ahora.... en que quedamos?

Bueno, espero que se me entienda... es una curiosidad que me viene picando desde hace tiempo.

Saludos,

Como vos mismo escribiste en Propiedad2, el metodo set puede hacer algo mas que solo setear el valor de la propiedad, por lo que es preferible siempre hacerlo por el segundo metodo que expusiste. Siempre y cuando en el metodo Set de la propiedad 1 no llames a Propiedad2 de nuevo.

Como bien dices hay que tener cuidado.

Si tienes un método "SetPropiedad2" es porque haces algo más que cambiar el valor a FPropiedad2. Si cambias el valor a Fpropiedad1 por la cara, te queda el resto de código sin sincronizar.

Cuando al cambiar una propiedad en el método Set afecta a otras propiedades y no puedes usar "Propiedad1 := Fpropiedad2 div 2" porque entra en recursión las asignaciones, hay que crear un método aparte:

Código Delphi [-]
miclase = class
  private
    fpropiedad1: integer;
    fpropiedad2: integer;
    procedure SetPropiedad1(const Value: integer);
    procedure SetPropiedad2(const Value: integer);
    procedure DoCambioPropiedad1;
  public
    property Propiedad1: integer read fpropiedad1 write SetPropiedad1;
    property Propiedad2: integer read fpropiedad2 write SetPropiedad2;
  end;

implementation

procedure SetPropiedad2(value: integer);
begin
if Value <> FPropiedad2
  then begin
           FPropiedad2 := Value;
           DoCambioPropiedad1;
         end;
end;

procedure DoCambioPropiedad1;
begin
   // aqui cambias el valor de la propiedad 1 y haces que se refleje
  // el cambio en el resto de propiedades que se vean afectadas
  Fpropiedad1 := Fpropiedad2 div 2;  // siguiendo el ejemplo.

   //  aquí usarías solo las variables privadas Fpropiedad1, Fpropiedad2 hasta 
  //   FPropiedad20 así evitas que se entre en recursión las asignaciones y te 
 //    quitas un poco de lío conceptual.
end;

gracias
 

Muchas gracias Crandel y Lepe. Me han sacado una buena duda curiosa. Me pasa a veces de que en métodos Set hago FPropiedad := xxxx y en otras Propiedad := xxxx. Y esto se me hizo confuso. Y traté de analizar las posibles consecuencias que podrían afectar este pequeñisimo detalle:

[HUMOR]
[/HUMOR]

Pero como sólo soy un simple novato, decidí hacer la pregunta a gente que sabe del tema.

Saludos,