Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];

Вниз

Функция 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.005 c
4-1227769550
Ort
2008-11-27 10:05
2010.01.31
Дерево файлов на winapi


15-1259189494
POOP
2009-11-26 01:51
2010.01.31
Проблема с D-Link G520


15-1259088997
POOP
2009-11-24 21:56
2010.01.31
Диффур в Mathematica


15-1258913368
Alkid
2009-11-22 21:09
2010.01.31
А что это Каспер ругается на наш форум?


1-1234880388
Константин
2009-02-17 17:19
2010.01.31
Перевод ASCI в HEX и наоборот?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский