Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.13;
Скачать: 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 вся ветка

Текущий архив: 2004.01.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-37726
Evgeny78
2003-12-30 14:25
2004.01.13
OLE


1-37785
Mike_forewer
2003-12-27 19:36
2004.01.13
Фон в MainMenu


14-37917
Undert
2003-12-19 21:16
2004.01.13
Посоветуйте программку !


3-37566
List
2003-12-12 00:01
2004.01.13
Data Module


1-37630
Cyberjack
2003-12-27 19:18
2004.01.13
DHTMLEdit