Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> case of можно ли сравнить string'и, смешно, но очень надо 
V
    Опции темы
hedge_hog
Дата 12.6.2007, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 17.5.2007

Репутация: нет
Всего: нет
Здравствуйте. Подскажите, пожалуйста,  

case переменная of
  значение1: выражение1;
  значение2: выражение2;
end;

может работать только с переменными типа integer.

А то пытаюсь выполнить сравнение переменной string'ового типа со значением string'ового типа пишет, что несовподают типы.


Надо выполнить следующее, и именно без  if then else if then ... .

Код

procedure TForm1.Button1Click(Sender: TObject);
 var
 Click_ImageBlockLeft: string;
begin

 Click_ImageBlockLeft:=Edit1.Text;
 case Click_ImageBlockLeft of
  'yes' :  Label1.Caption:='Block';
  'no':    Label1.Caption:='Showing';
 end;

end;


Помогите направте неграмотного человека на путь истинный. Заранее БлагоДарю.
PM MAIL   Вверх
Snowy
Дата 12.6.2007, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
Можно сравнивать ordinal types.
Стринги к ним не относятся.
PM MAIL   Вверх
TXC
Дата 12.6.2007, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 6.5.2007

Репутация: нет
Всего: нет
hedge_hog, тут только через конструкции IF - тебе как раз подойдет по случаю двух вариантов.
А также можно заменить переменную для сравнения на числовое или char, и сравнивать с соответствующими типами.
PM MAIL WWW   Вверх
sw04
Дата 12.6.2007, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 22.1.2007
Где: Ufa

Репутация: 2
Всего: 18
можно сделать массив стрингов и проверять значение сравнения с i-ым элементом.


--------------------
<удалено администрацией>
PM   Вверх
MetalFan
Дата 12.6.2007, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
было что-то уже по этому поводу...
1) можно для этого использовать TStringList
2) можно использовать IndexStr, IndexText с массивом
примеры надо?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Alex
Дата 12.6.2007, 23:59 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 162
Код

case AnsiIndexText(Click_ImageBlockLeft, ['yes', 'no']) of
  0: Label1.Caption:='Block';
  1: Label1.Caption:='Showing';
end;



--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
hedge_hog
Дата 13.6.2007, 00:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 17.5.2007

Репутация: нет
Всего: нет
Alex, Спасибо. Классно придумано.

Добавлено через 3 минуты и 32 секунды
Всем Большое спасибо.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1256 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.