Главная страница
    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.008 c
1-1234977811
Skyhawk
2009-02-18 20:23
2010.01.31
Изменение цвета строки в TListView


15-1259172371
Footballer
2009-11-25 21:06
2010.01.31
Угадай мелодию :)


2-1260339079
oleg1963lora
2009-12-09 09:11
2010.01.31
Посоветуйте. Копирование файлов.


15-1259417380
koha!
2009-11-28 17:09
2010.01.31
Доступн для скачивания новый openSUSE11.2


1-1235866689
Misha Uskov
2009-03-01 03:18
2010.01.31
Просмотр JPEG с нестандартным EXIF IFD





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский