String Entscheidungen mit case treffen!!!

[Phoenix]

Hrm...
noch ne andere Version die mir gerade einfällt, die aber nicht wirklich zu den saubersten gehört:

1.) Es werden integer-Konstanten für die verschiedenen möglichen Strings definiert.
2.) Eine Funktion gibt diese Konstanten für den String zurück.
3.) Im Case wird nach der Konstante unterschieden.

Code:

const
   TEXT1 = 1;
   TEXT2 = 2;
   TEXT3 = 3;

...

function getIndex(string text): integer;
begin
   if text = 'Text1' then result := TEXT1;
   if text = 'Text2' then result := TEXT2;
   ...
end;

...

   case getIndex(theText) of
      TEXT1: begin
                ...
             end;
      TEXT2: begin
                ...
             end;
      ...
   end;