На главную

Назад

//Функция возвращает индекс>=0 если элемент (строка)найден или -1 если не найден
function findstr(s1:string; a:array of string):longint;
var n1:longint;
begin
 findstr:=-1;
 for n1:=0 to length(a) do
 begin
 if s1=a[n1] then
  begin
   findstr:=n1;
   exit;
  end;
 end;
end;