Помогите с инструкцией CASE

← →
чайник (2004-06-23 10:25) [0]

Почему не работает функция CASE, написанная в
таком виде:
function S(st:string):string;
begin
case st of
"text1": Result:="ТЕКСТ1";
"text2": Result:="ТЕКСТ2";
"text3": Result:="ТЕКСТ3";
end;
end;
Получаю сообщение о несоответствии типов(String и Integer). Кто подскажет? Спасибо заранее.

← →
Григорьев Антон © (2004-06-23 10:34) [1]

Потому что справку читать надо. casе можно использовать только с перечисляемыми типами, к которым string не относится.

← →
Плохиш © (2004-06-23 10:35) [2]

Потому что об этом в справке написано

← →
TUser © (2004-06-23 10:37) [3]

Используй if ... then ... else if ... then else if ... ...

+ зачастую наличие таких case говорит о недостаточной продуманности алгоритма.

Помогите с инструкцией CASE Найти похожие ветки