|
La cosa es muy simple:
- Get es obtener el valor
- Set es asignarlo
O sea:
- JAMAS JAMAS JAMAS en un get se debe alterar el comportamiento/estado interno de un objeto
- JAMAS ignorar el punto anterior. Get es acceso de SOLO LECTURA
- En un set se DEBERIA leer la variable privada que guarda el ultimo valor (FEstado) por la simple y sencilla razon que el Get puede tener efectos sobre el componente, aun sin cambiar el estado de la varible.
Lo que estas buscando NO es un get ni un set. Es un procedimiento. En un procedimiento APARTE:
procedure DeterminarEstado
begin
//Haz lo que necesites
end;
Es OO basica independizar propiedades de eventos de procedimientos. Nunca mezclarlos para evitar dolores de cabeza.
Por lo tanto Estado debe retornar el estado del objeto. Mas bien deberias tener una funcion que devuelva el estado asignado por el usuario y en el metodo DeterminarEstado lees ambos y luego operas esta informacion y la asignas al estado Interno (propiedad estado) del objeto.
De hecho, estas MEZCLANDO DOS cosas. UNA es el objeto interno de tu programa. OTRA es la maquina externa. O sea, DEBERIAS tener 2 clases para representar ambas realidades y UNA clases que controle ambas. O sea:
TMiObjeto = class(TElOCX) //Heredo de un OCX // Representa el mundo interno de tu sistema
TMiTelefono = class(TElOCX) //Heredo de un OCX // Representa el mundo real del telefono
Por eso, cuando empiezes a sentir que una clases hace mas de un solo trabajo entonces la solucion es hacer una clase por trabajo. Y debe haber una controladora entre ellas. Es un poco mas de codigo pero es mas facil de entender y mejorar...
|