ASCANNA

Материал из Фабиус wiki
Перейти к: навигация, поиск

ASCANNA - это программа из справочника R266

ASCAN по выбранному измерению многомерного массива. (!) Возвращает МАССИВ индексов, найденных совпадений

ASCANNA( Массив, значение, измерение по которому искать )

Текст

// ASCANNA(arr, cmp, [nn] )

// (!) Возвращает МАССИВ индексов, найденных совпадений

parameters  arr, cmp, nn:=1

if Empty(arr);  return(0);  end

local  ii, imax:=Len(arr), is_blk:=Valtype(cmp)='B'
result:={}

for ii:=1 to imax
  if is_blk
    if Eval(cmp,arr[ii,nn],ii);  AADD(result,ii);  end
  else
    if arr[ii,nn] == cmp;  AADD(result,ii);  end
  endif
next

Смотрите также

Полезные функции

Функции Delphi