Как использовать case с типом string

@Мусаси · Регистрация: 07.05.2013

Author24 — интернет-сервис помощи студентам

Возник такой вопрос, как использовать case с типом string.
Есть поле, в него вводят цвет на англ.яз, а выводит на англ.яз.

Delphi

Procedure ...
Var
Color:string;
Begin
Color:=edit1.text;
Case color of // но лучше будет так strtoint (color)
'Black':showmessage('чёрный');
...
End;
End;

Ошибка такая incompatible types: 'integer" and "string"

Что делать? Спасибо

@NotBeginner · 22.08.2014, 13:17

только вот так можно

Delphi

type
  TCOLORSET = (Black, White, Yellow);
 
var
  COLORSET : TCOLORSET;
  i : integer;
begin
  case COLORSET of
    Black:  showmessage('чёрный');
   .....
  end;

или использовать конструкцию if .. then... else

Добавлено через 1 минуту
или есть еще один вариант

Delphi

Case StrIndex(color , ['black', 'White', 'Yellow']) of 
  0: ..code.. ;//black
  1: ..code..;//white
  2: ..code..;//Yellow
else
  ShowMessage('error');
end.

@Мусаси · 22.08.2014, 15:39 **[ТС]**

А strindex во втором - это правильно?

Добавлено через 5 минут
Просто пишет, что необьявлен перемен

@NotBeginner · 22.08.2014, 15:46

ой эт из Jcl либы..
вот так делай

The following function enables you to use the Case statement with string type variables:
~~~~~~~~~~~~~~~~~~~~~~~~~
function StringToCaseSelect
(Selector : string;
CaseList: array of string): Integer;
var cnt: integer;
begin
Result:=-1;
for cnt:=0 to Length(CaseList)-1 do
begin
if CompareText(Selector, CaseList[cnt]) = 0 then
begin
Result:=cnt;
Break;
end;
end;
end;

{
Usage:

case StringToCaseSelect('Delphi',
['About','Borland','Delphi']) of
0:ShowMessage('You''ve picked About') ;
1:ShowMessage('You''ve picked Borland') ;
2:ShowMessage('You''ve picked Delphi') ;
end;
}

UnSysApps

@northener · 23.08.2014, 02:39

Сообщение от Мусаси

Есть поле, в него вводят цвет на англ.яз

Издеваешься? Ну кто из пользователей способен грамотно ввести текст на неродном языке? Ну почему бы пользователю не дать выбрать из готовых вариантов с помощью Combobox?
P.S. Хотя очевидно что задача вовсе не такая, какая высказана в топике. Точнее задача не озвучена. Озвучен только вопрос с "плохим" примером.

@droider · 23.08.2014, 15:52

Не по теме:

Сообщение от northener

кто из пользователей способен грамотно ввести текст на неродном языке?

Даже на родном не все способны

@Мусаси 9 / 9 / 2 Регистрация: 07.05.2013 Сообщений: 227
	22.08.2014, 15:39 [ТС]	3
	А strindex во втором - это правильно? Добавлено через 5 минут Просто пишет, что необьявлен перемен 0

@NotBeginner 174 / 160 / 71 Регистрация: 22.02.2013 Сообщений: 1,769 Записей в блоге: 2
	22.08.2014, 15:46	4
	ой эт из Jcl либы.. вот так делай The following function enables you to use the Case statement with string type variables: ~~~~~~~~~~~~~~~~~~~~~~~~~ function StringToCaseSelect (Selector : string; CaseList: array of string): Integer; var cnt: integer; begin Result:=-1; for cnt:=0 to Length(CaseList)-1 do begin if CompareText(Selector, CaseList[cnt]) = 0 then begin Result:=cnt; Break; end; end; end; { Usage: case StringToCaseSelect('Delphi', ['About','Borland','Delphi']) of 0:ShowMessage('You''ve picked About') ; 1:ShowMessage('You''ve picked Borland') ; 2:ShowMessage('You''ve picked Delphi') ; end; } UnSysApps 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	23.08.2014, 02:39	5
	Сообщение от Мусаси Есть поле, в него вводят цвет на англ.яз Издеваешься? Ну кто из пользователей способен грамотно ввести текст на неродном языке? Ну почему бы пользователю не дать выбрать из готовых вариантов с помощью Combobox? P.S. Хотя очевидно что задача вовсе не такая, какая высказана в топике. Точнее задача не озвучена. Озвучен только вопрос с "плохим" примером. 0

@droider
	23.08.2014, 15:52 Как использовать case с типом string #6
	Не по теме: Сообщение от northener кто из пользователей способен грамотно ввести текст на неродном языке? Даже на родном не все способны 0