Проверка наличия числа в массиве
{Функция проверяет, находится ли число 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]) |
