2620Проверка 16 наличия 14 числа 10 в 2 массиве 14
Проверка наличия числа в массивеDelphi , Синтаксис , МассивыПроверка наличия числа в массиве
Автор: Dimka Maslov { **** 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: 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]) Статья Проверка наличия числа в массиве раздела Синтаксис Массивы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |