代码大全

Action:=UserCommand[1];

case Action of

'c': Copy;

'd': DeleteCharacter;

'f': Format;

'h': Help;

else PrintErrorMsg('Error: Invalid command.');

end;{case}

case Action Action UserCommand

case
copy
C copy copy() case
"cement overshoes" "clambake" "cellalite"
c Copy() case else

if-then else

Pascal if-then-else case

if( UserCommand='Copy' ) then

Copy

else if( UserCommand='delete' ) then

DeleteCharacter

else if( UserCommand='format' ) then

Format

else if( UserCommand='help' ) then

Help

else

PrintErrorMsg( 'Error: Invalid command.' );

case

case

case