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