sonst dürfte folgendes reichen:
Delphi-Quellcode:
function caseHelp(text: string; list: array of string): integer;
var
i: integer;
begin
result := 0;
for i := 0 to length(list) - 1 do
if list[i] = text then
result := i;
end;
das ganze ruft man dann so auf:
Delphi-Quellcode:
case caseHelp(command, ['374', '376', '377'{, ...}] of
0: ...
1: ...
2: ...
end;