case of не работает для строк

← →
Kuku (2003-12-30 00:38) [0]

var MyString: Stringl begin MyString:=Edit1.Text; case MyString of "OK": Edit2.Text:="Хорошо"; "Bad": Edit2.Text:="Плохо"; end;

При попытке скомпилировать курсор переходит к строке с case и говорит - ordinal type required.
В чём проблема????

← →
Pat (2003-12-30 00:55) [1]

Теперь берем переводчик и переводим "ordinal type required". Получится что-то вроде "требуется перечисляемый тип переменной" (ну это мой адаптированный перевод :-)) Далее грузим Delphi help и смотрим топик ordinal types

← →
Германн (2003-12-30 01:09) [2]

Поскольку по приведенному примеру значения строк вводимых в Edit1 известны уже на этапе компилляции, то можно посоветовать загрузить все варианты таких строк в StringList. Тогда в последствии можно будет сделать так:
case StringList.IndexOf(Edit1.Text) of
Хотя, впрочем, при вышеописанном условии отпадет и всякая необходимость в операторе case. Достаточно будет:
Edit2.Text:=StringList2.Strings[StringList1.IndexOf(Edit1.Text)]

case of не работает для строк Найти похожие ветки