Using Case Statement with String

delphi delphi-xe2
Glen Morse picture Glen Morse · Jan 25, 2013 · Viewed 82k times · Source

Say i have a string

'SomeName'

and wanted the values return in a case statement. Can this bedone? Can strings be used in a case statement like so

Case 'SomeName' of

   'bobby' : 2;
   'tommy' :19;
   'somename' :4000;
else
   showmessage('Error');
end;

Answer

Daniel picture Daniel · Jan 25, 2013

In Jcl library you have the StrIndex function StrIndex(Index, Array Of String) which works like this:

Case StrIndex('SomeName', ['bobby', 'tommy', 'somename']) of 
  0: ..code.. ;//bobby
  1: ..code..;//tommy
  2: ..code..;//somename
else
  ShowMessage('error');
end.

Related questions

Why does CreateProcess give error 193 (%1 is not a valid Win32 app)

The code below fails to start documents. I get error 193 (%1 is not a valid Win32 app). Starting executables work fine. The files are properly associated, they start the corresponding app when double clicked. I have searched SO and elsewhere for …

Read More
Delphi VCL styles tutorial - how to change the style at runtime

Is there a good VCL Styles tutorial where we see how to dynamically (in run time) load/change the style ? This should work with Delphi XE2 and up, since XE2 is the first version with VCL Styles.

Read More
Could not convert variant of type (Null) into type (OleStr)

Do you know why the block of code bellow will negate the "Could not convert variant of type (Null) into type (OleStr)" on some computers, not all of them but 3 out of ten computers generate the error message. function GetWMIstringSW(…

Read More