Базы данныхИнтернетКомпьютерыОперационные системыПрограммированиеСетиСвязьРазное
Поиск по сайту:
Подпишись на рассылку:

Назад в раздел

Один из путей использования оператора Case со строками

div.main {margin-left: 20pt; margin-right: 20pt}

Один из путей использования оператора Case со строками


Небесная сеть


Здесь описан нестандартный путь использования оператора Сase со строками.

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!

The Unofficial Newsletter of Delphi Users - by Robert Vivrette
By Lutz Lang - Lutz.Lang@T-Online.de
Перевод Руденко Е.В. janer@newmail.ru


  • Главная
  • Новости
  • Новинки
  • Скрипты
  • Форум
  • Ссылки
  • О сайте




  • Emanual.ru – это сайт, посвящённый всем значимым событиям в IT-индустрии: новейшие разработки, уникальные методы и горячие новости! Тонны информации, полезной как для обычных пользователей, так и для самых продвинутых программистов! Интересные обсуждения на актуальные темы и огромная аудитория, которая может быть интересна широкому кругу рекламодателей. У нас вы узнаете всё о компьютерах, базах данных, операционных системах, сетях, инфраструктурах, связях и программированию на популярных языках!
     Copyright © 2001-2022
    Реклама на сайте