Se puede hacer esto en POO?

[[Crandel]]

Como dijo mamcx, creo que es un abuso de jerarquía, pero veo las clases:
* THabitacion.
* TCliente.

La clase es THabitacion y el resto son estados de él

IsOcupadaCliente es una propiedad que verifica el Estado y devuelve verdadero o falso.

TCliente es otra clase que tiene los datos de cada cliente.

Luego tendrias que tener una lista de clientes.

y cuando se ocupa una habitación lo que haces es asiganarle el cliente a la habitación, de manera de hacer, por ejemplo:
Habitacion.Cliente.Nombre

De esta forma tambien te va a resultar mucho más facil en un futuro si queres almacenar los datos en una base de datos, en archivo de texto o lo que sea.

[[maeyanes]]

Ampliando un poco lo dicho por Crandel:

La clase THabitación puede tener una propiedad Estado, tal que:

Código Delphi [-]
TEstadoHabitacion = (ehDisponible, ehReservada, ehOcupadaCliente,
  ehOcupadaPersonal, ehRenovada, ehWarning, ehVencida, ehLimpieza,
  ehMantenimiento);

THabitacion = class
private
  FEstado: TEstadoHabitacion;

  function GetIsOcupadaCliente: Boolean;
public
  property Estado: TEstadoHabitacion read FEstado write FEstado;
  property IsOcupadaCliente: Boolean read GetIsOcupadaCliente;
end;

implementation

procedure THabitacion.IsOcupadaCliente: Boolean;
begin
  Result := FEstado = ehOcupadaCliente
end;

Saludos...

[adlfv]

Muchas gracias a todos por contestar...

Lo que pasa es que estoy "reinventando la rueda"... Llevo un tiempo ya con este programa, y lo había hecho todo "a lo bestia" prescindiendo de la POO, empleando basicamente un vector y un tipo enumerado... Ahora estoy rehaciendo todas las tripas del programa para hacerlo lo mejor posible para posibles expansiones, personalizaciones y mejoras en el futuro...

Y bueno, con la mentalidad "hibrida" de antes y ahora, a veces lo obvio no se vé tan claro jeje .

Es horriiiiiiiible la labor de re-ingeniería... Lo ideal hubiera haberlo hecho bien desde un principio, prácticamente lo que he hecho ha sido tiempo perdido... Lo único que sí he podido aprovechar es el diseño de la base de datos... El resto, mucho lo he tenido que retocar, o rehacer... Espero que el resultado final sea ampliamente "escalable" y flexible...

Muchas gracias de nuevo a todos.

Un cordial saludo...

[delphi.com.ar]

Empezado por adlfv

Es horriiiiiiiible la labor de re-ingeniería...

No creo eso!.. creo que a la mayoría de los programadores nos encantaría rediseñar lo que está funcionando...

[adlfv]

Sí claro, a mi me gusta...

Me refería a que resulta doloroso ver que "lo que funcionaba" ya no funciona al estar en proceso de reconstrucción... Eso sí es horrible... Pero va dando gusto cuando empieza a funcionar de nuevo .

[rastafarey]

Si necesitas algun metodo que no existe en un aclase y es eredada simplemete has un casting pero si solo quieres que lo smetodos no sean implemtados por la supercalse(clase base) y se implmemnten el los heredados usa metodos abstractos el cla clase base o virtuale si levan algun codigo en comun y le haces un overrride en la caklse que lo heredan.