Array.Find(What : Variant[; Start : Integer]) : Integer =
Поиск в массиве.

Метод Array.Find ищет начиная с элемента Start значение What. Если элемент найден, то метод возвращает его номер, иначе возвращает -1. Нумерация начинается с нуля.

Аргумент Start можно не указывать, тогда поиск производится с начала массива.

Пример:

Procedure OnCreate;
Var
  A : Array Of String;
  I : Integer;
Begin
  A := ['A1', 'B2', 'C3', 'A1', 'B2', 'C3'];
  
  I := A.Find('C3');
  Warning(ToStr(I)); // 2

  I := A.Find('C3', I+1);
  Warning(ToStr(I)); // 5

  I := A.Find('F5');
  Warning(ToStr(I)); // -1
End;

© RTIT