Case Statement Using String ..?

Have you ever wish that delphi case statement can use with string, and you find out that it was can’t and it only received ordinal …? well with a little trick now you can use case with string. Using some function below, now u can use string with case statement.

function StringToCaseSelect(Selector : string;CaseList: array of string):Integer;
var cnt: integer;
begin
   Result:=-1;
   for cnt:=0 to Length(CaseList)-1 do
   begin
      if CompareText(Selector, CaseList[cnt]) = 0 then
      begin
         Result:=cnt;
         Break;
      end;
   end;
end;

Usage:

case StringToCaseSelect('Delphi', ['About','Borland','Delphi']) of
  0:ShowMessage('You''ve picked About') ;
  1:ShowMessage('You''ve picked Borland') ;
  2:ShowMessage('You''ve picked Delphi') ;
end;

Taken From Delphi.About.com

Tagged as: Delphi Tips, Snippet