Скачать: CL | DM;

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)]


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c