VPF::Case...of - Форум программистов

Spawn

Дата 4.7.2002, 19:52 (ссылка)

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

Загрузка ...

Опытный

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

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

В операторе case можно выбирать из значентий типа Integer:
case chislo of
1:
2:
3:
end;
Но если использоать так значения типа String, то возникает еррор:
case slovo of
'la':
'la-la':
'tra-la-la':
end;
Как можно сделать выбор из значений типа String?

Vit

Дата 4.7.2002, 19:53 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

Репутация: 48
Всего: 207

Только вложенными if

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

podval

Дата 5.7.2002, 12:59 (ссылка)

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

Загрузка ...

Где я? Кто я?

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

Репутация: нет
Всего: 62

не помню, где нашел:

Код


Declare a function StrCase with an open string array. This function checks a selector string against the open string array and gives back the position of the selector in the array (0 to count-1). In case the selector isn't found the result is -1. 

function StrCase(Selector: string; StrList: array of string): Integer;
var
I: Integer;
begin
Result := -1;
for I := 0 to High(StrList) do begin
if Selector = StrList[I] then begin
Result := I;
Break;
end;
end;
end; 

Now you can use the function StrCase instead of the case selector and you will get a very simple construct. 

procedure TestString(StringToTest: string);
begin
case StrCase(StringToTest, ['First', 'Second', 'Third']) of
0: ShowMessage('1: ' + s);
1: ShowMessage('2: ' + s);
2: ShowMessage('3: ' + s);
else
ShowMessage('else: ' + s);
end;
end; 

That's all. The advantage is the use of one function for all string cases and the absent af any additional typespecs etc. 
Have fun!

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