How to write a CASE statement

Alex_Chow

Sorry for another newbie post. But just in case I ever forget:

CASE TextVar OF
  'A' : TextVar1 := 'OMG';
  'B' : 
    BEGIN
      TextVar1 := 'OMG2';
      TextVar2 := 'OMG3';
    END;
  ELSE
    TextVar1 := 'OMG3';
END;

If TextVar is an option variable, you would use:

CASE TextVar OF
  TextVar::A : TextVar1 := 'OMG';
  TextVar::B : 
    BEGIN
      TextVar1 := 'OMG2';
      TextVar2 := 'OMG3';
    END;
  ELSE
    TextVar1 := 'OMG3';
END;

DenSter

Or:

CASE TRUE OF
  Expression1: //One line of code
  Expression2:
    BEGIN
      // Multiple lines of code
    END;
  ELSE
    BEGIN
      // Multiple lines of code
    END;
END;

Alex_Chow

What the heck happened to my post? I don't see it anymore?

EDIT: Sorry, I see it now... Hmm... looks like a bug with IE8. #-o

Savatage

CASE "Document Type" OF 
  "Document Type"::"Credit Memo" : 
  CurrForm."Document Type".UPDATEFORECOLOR(255);
  "Document Type"::Payment :
  CurrForm."Document Type".UPDATEFORECOLOR(16711680);
ELSE 
  CurrForm."Document Type".UPDATEFORECOLOR(0);
END;

Alex_Chow

Nice! I like the idea of showing the different documents in colors.

Savatage

when you have 100's of entries it definately helps. I wanted to use Green (for money) but it's hard to find a decent green so I left it black

garak

We use also in some forms the option to show different values in a different color.
The green colour is better visible when it is bold, but i don't use green and red in combination. Some employees of my customers are color-blind. The doesn't see a difference. ;-)

Regards