Платные хостинги     Раскрутка сайта     Книги по программированию

Case...of

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

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

- не помню, где нашел:Код 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;varI: Integer;beginResult := -1;for I := 0 to High(StrList) do beginif Selector = StrList[I] then beginResult := 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);begincase StrCase(StringToTest, ['First', 'Second', 'Third']) of0: ShowMessage('1: ' + s);1: ShowMessage('2: ' + s);2: ShowMessage('3: ' + s);elseShowMessage('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! highlightSyntax('delphiFlNGIw','delphi');

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD