VPF::Как сделать нечто вроде case string of

Tulipack

Дата 2.3.2004, 21:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как сделать нечто вроде case string of

тоесть

...
var
str:string;

case str of

'Red' : Inject:=true;
'Green' : inject:=false;
и тд...

ато if then надоел;

x77

Дата 2.3.2004, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 19
Всего: 22

никак. в конструкции case может учавствовать только перечисляемый (ordinal) тип, кроме строковых, а также константы и любые выражение, значение которых известно на этапе компиляции.

в твоём случае, может быть, имеет смысл порыться в StringToColor и изобразить нечто вроде:

Код


  Str := 'cl' + Str;
  case StringToColor (Str) of
    $FF0000:; // clBlue
    $00FF00:; // clGreen
    $0000FF:; // clRed
  end;

в любом случае смысл в том, чтобы преобразовать строковое значение к перечисляемому или гулять по if..then..else.

Это сообщение отредактировал(а) x77 - 2.3.2004, 21:42

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Петрович

Дата 3.3.2004, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Вариант 1.

Код

if      str='Red'   then  inject:=true
else if str='Green' then inject:=false
else if str= ...

Вариант 2.

Код

case AnsiIndexText(str,['Red','Green',...]) of
  0 : inject:=true;
  1 : inject:=false;
  ...
end;

--------------------

Все знать невозможно, но хочется

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »