{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка наличия числа в массиве
Функция проверяет, находится ли число N в массиве Values
Зависимости: нет
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 28 мая 2002 г.
***************************************************** }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;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Проверка наличия числа в массиве", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!