Как быстро узнать исть ли данная строка в массиве из строк?

[Alex Cones]

Собственно есть переменная
S:String;
и массив
Mas:Array[0..4] of String = ('String0','String1','String2','Str ing3',String4');
Можно ли без цикла (без перебора) узнать, существует ли элемент массива (не важен его номер, выясняется сам факт), равный S?
То есть по сти, мне необходимо узнать, можно ли это:

Function YesOrNot:Boolean;
Var
 J:Byte;
Begin
For J:=0 to 4 do
 If S = Mas[J] Then Result:=True
End;

Заменить на что нибудь более приличное (без цикла)?

[Daramant]

Можно ли без цикла (без перебора) узнать, существует ли элемент массива

Ну смотри: для того, чтобы узнать равна ли некоторая строка S1 заданной S2, необходимо обратиться к ней (прочитать) и сравнить посимвольно c S2.
Твой вопрос эквивалентен такому: Как узнать значение строки (или переменной) не обращаясь к ней?
Ответ: никак.

В твоем случае необходимо перебрать все строки в цикле.

[Sazary]

По-любому нужно сравнивать все элементы.
Но если массив отсортирован, то можно двоичный поиск применить.

[Stilet]

А чем цикл не устроил?

[Alex Cones]

Да в принципе всем, только довольно таки медленно. Я просто подумал, а нельзя ли тут как-нибудь in прикрутить?

[Daramant]

а нельзя ли тут как-нибудь in прикрутить

Если бы и был in для строк, думаешь, он бы работал как-то иначе, чем сравнивал заданную строке с теми, что предлагаются? - конечно нет.

[Sazary]

Сообщение от Alex Cones

Да в принципе всем, только довольно таки медленно. Я просто подумал, а нельзя ли тут как-нибудь in прикрутить?

Нельзя создавать множества строк (set of string), а если и можно было бы, то сначала пришлось бы пройтись циклом, чтобы занести туда элементы массива.

Можно еще в стринглист загнать и через IndexOf проверить. Но везде нужны циклы )

[Alex Cones]

Придется циклом.... А как не хотелось Или намалевать собственную функцию, чтоб меньше писанины было...

[megachuhancer]

Но ведь можно использовать дерево. Что-то вроде

type
   PNode = ^TNode;
   TNode = record
      ch : char;
      count : integer;
      p : array [char] of PNode;
   end;

Например, есть строки:
ababaca
acccfg
aenfg
bbbb
Тогда у нас есть структуры с 'a' и c 'b'. Структура с 'a' ссылается на структуры с 'b', 'c' и 'e'. Структура с 'b' ссылается на структуру с 'b'. Ну и так далее. Для каждого вида строк храним количество экземпляров.

С массивом как таковым конечно не получится, но в принципе-то возможно. Можно создать класс, имитирующий массив и делающий то, что я описал.

Это обеспечивает более быстрый поиск.

[Stilet]

только довольно таки медленно

Впервые слышу чтоб самый быстрый способ был медленный.