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;