![]() |
|
|
#1
|
|||
|
|||
![]() Вообщем у меня была задачка цифорки перевести в слова...я сделал её, но по кривому( через If, вот решил переделать под Case, но прога отказывает работать( Подскажите плз де у мя не правильно, и как сделать, чтобы всё было кул)Заранее благодарен)
Код:
a:=copy(edit1.Text,1,1); case a of '1': label1.Caption:='Один'; end; |
#2
|
||||
|
||||
![]() Цитата:
Код:
a:=copy(edit1.Text,1,1); case StrToInt(a) of 1: label1.Caption:='Один'; end; |
#3
|
||||
|
||||
![]() Еще можно так (способ из очень далёкого прошлого, когда не было функции IntToStr):
Код:
var C:char begin C:=edit1.Text[1]; case Ord(C)-$30 of 1:label1.Caption:='Один'; end; end; или так: Код:
var C:char begin C:=edit1.Text[1]; case C of #$31:label1.Caption:='Один'; end; end; Хорошо написанная программа не требует документации ICQ 9-184-668. |
#4
|
|||
|
|||
![]() В общих чертах все это сводится к тому что оператор CASE неможет оперировать строковыми типами
Кстати можно попробовать еще так: Код:
Var a : integer; Begin a := StrToInt(copy(edit1.Text,1,1)); Case a of 1 : label1.Caption:='Один'; Else label1.Caption:='Неизвестное человечеству число'; End; End; Последний раз редактировалось Gad99, 24.04.2008 в 11:46. |
#5
|
||||
|
||||
![]() Раз тема открыта, продолжу.
Меня интересует как использовать case для строки String. Пример: Код:
case str of 'Текст': Команда; end; Помогите пож! Кому я должен - всем прощаю!!!! ![]() |
#6
|
||||
|
||||
![]() Да, вопрос интересный. Я тоже как-то сталкивался, но ответа, насколько помню, не нашел..
Delphicode.org - справочник Delphi |
#7
|
||||
|
||||
![]() Цитата:
http://www.delphisources.ru/pages/fa...str_case2.html |