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

Code:

function Among(N: Integer; const Values: arrayof 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])