[iFynk]

Как проверить наличие строки в одномерном строковом массиве?
Может есть аналог php функции in_array

[Nyctos Kasignete]

Объявите свой массив не как массив строк, а как объект TStrings или TStringList и пользуйтесь методами типа indexOf.

[TOJluK]

В массиве- только перебор. Через type можно

[iFynk]

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

В массиве- только перебор. Через type можно

а как через type это делать? можно примерчик.

[ART]

Так что ли:

Код:

 type 
   TMass = array of string;

  ....

  function StrExists(S:string; M: TMass): integer;
  var
   i: integer;
  begin
   for i := 0 to High(M) do
    if M[i] = S then begin
      Result := i;
      exit;
    end;
   Result := -1;
  end;

[iFynk]

хотелось бы без перебора

[ART]

А вы уверены, что in_array без перебора работает? Если да, значит знаете как это реализовано. Вам остается только накалякать тоже самое в Delphi )