[fpc-devel] class abstract, class sealed implementation. please review.

["Vinzent Höfler"]

> Vinzent Höfler wrote:
>
> > And what is with the TNokia3720Phone_DeluxeEdition which is basically
> the same as TNokia3720Phone, but with some enhanced features?
> >   
> TNokia3720PhoneEdition = (n3720peStandard, n3720peDeluxe);
> TNokia3720Phone = class sealed(...)
> public
>   property Edition: TNokia3720PhoneEdition;
> end;

And then inside the implementation:

TNokia3720Phone.SomeMethod;
begin
   case self.Edition of
      n3720peStandard:
         ImplementedThatWay;
      n3720peDeluxe:
         ImplementedThisWay;
   end;
end;

?

You really gotta be kidding me.


Vinzent.

-- 
GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT!
Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01