Using Case Statement with String

Question

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 1

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. 

Answer 2

The Delphi Case Statement only supports ordinal types. So you cannot use strings directly.

But exist another options like

• build a function which returns a Integer (hash) based on a string
• using generics and anonymous methods ( A generic case for strings)
• using a function which receive an array of strings (Making a case for Strings, the sane way)
• and so on.