CBFalconer wrote:
> Commands := ['L', 'P', 'l', 's', 'r', 'd'];
[ cut ]
> IF NOT (option IN commands) THEN BEGIN
> writeln('Unknown option');
> menu;
> END
> ELSE
> CASE Option OF
> (* Remove those empty parens, Pascal is not C *)
> 'L' : yylex;
> 'P' : yyparser(Tokens);
> 'l' : Menu;
> 's' : Menu;
> 'r' : Menu;
> 'd' : Menu;
> END; (* CASE, ELSE *)
Why you do that? You don't know the case statement can have else inside
his?
I supose is more readable if you use the else inside the case and not
use IF...
--
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN : IlRazziatore@[EMAIL PROTECTED]
: 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com
|
