Delphi-Help

Главная Статьи Массивы Проверка наличия числа в массиве

Проверка наличия числа в массиве

Оцените материал
(1 Голосовать)


Проверка наличия числа в массиве

{Функция проверяет, находится ли число N в массиве Values}
 
function Among(N: Integer; const Values: array of Integer): LongBool;
asm
   push ebx
   xor ebx, ebx
@@10:
   test ecx, ecx
   jl @@30
   cmp eax, [edx]
   jne @@20
   not ebx
   jmp @@30
@@20:
   add edx, 4
   dec ecx
   jmp @@10
@@30:
   mov eax, ebx
   pop ebx
end;
Пример использования: 
 
Among(N, [1, 2, 3, 4, 5]) 
Прочитано 4841 раз

Авторизация



Счетчики