Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.31;
Скачать: CL | DM;

Вниз

Функция Case ... of   Найти похожие ветки 

 
Danco ©   (2009-12-09 13:53) [0]

Обьясните мне лбди почему не работает?

var
s: String;
begin
case s of
 "Привет": ShowMessage("Сообщение "Привет"");
 "Пока": ShowMessage("Сообщение "Пока"");
 "Здрасть": ShowMessage("Сообщение "Здрасть"");
end;
end;


 
Медвежонок Пятачок ©   (2009-12-09 13:54) [1]

не работает потому что не должна работать.


 
Медвежонок Пятачок ©   (2009-12-09 13:56) [2]

а не должна работать потому что тип не простой перечислимый


 
MBo ©   (2009-12-09 13:56) [3]

в хелпе же написано, каких типов может быть селектор


 
Б   (2009-12-09 13:57) [4]

S - не тот.
Проверь через else в Case.


 
Б   (2009-12-09 13:59) [5]

Я ошибся. Пошёл читать хелп.


 
Danco ©   (2009-12-09 14:01) [6]

Спасибо :)


 
Ганя   (2009-12-09 14:50) [7]

для случая со строками, чтобы не писать кучу if-ов можно написать ytre. функцию, которая на вход принимает строку и массив строк-вариантов ответа, а результатом возвращает идекс.
Тогда результирующий код будет выглядеть приблизительно так:

var
s: String;
begin
case IndexOfString(s, ["Привет", "Пока", "Здрасть"] of
0: ShowMessage("Сообщение "Привет"");
1: ShowMessage("Сообщение "Пока"");
2: ShowMessage("Сообщение "Здрасть"");
end;
end;


 
Danco ©   (2009-12-10 10:18) [8]


> Ганя


Спасибо, есть на свете умные люди :)



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

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

Наверх




Память: 0.48 MB
Время: 0.011 c
2-1260339079
oleg1963lora
2009-12-09 09:11
2010.01.31
Посоветуйте. Копирование файлов.


15-1259403437
acidlord
2009-11-28 13:17
2010.01.31
Транзакции в ДЛЛ


15-1259136487
oldman
2009-11-25 11:08
2010.01.31
Корпоративный ключ неправильный???


15-1258984807
Unknown user
2009-11-23 17:00
2010.01.31
Кнопка Favorites в диалогах Open/Save в Windows XP


4-1227649316
KilkennyCat
2008-11-26 00:41
2010.01.31
Как из сервиса получить доступ к реестру пользователя?