Находится ли число в массиве

[_SERGEYX_]

Частенько пользуюсь этой фукцией не задумываясь как она работает.

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

Как она выглядит на родном дельфийском языке?

[kangreon]

мб так?

function isIntArray(N: Integer; const Values: array of Integer):Boolean;
var
  i : integer;
begin
  for i := 0 to Length(Values) do
  if Values[i] = N then
  begin
    Result := True;
    Exit;
  end;
  Result := False;
end;

[_SERGEYX_]

kangreon, наверно так и есть.
Без цикла тут, похоже, не обойтись.
Странно, должна же быть встроенная функция для определения
принадлежит значение массиву или нет.
Эти горе-девелоперы из штата Мичиган зря хлеб едят

[Пепел Феникса]

есть встроенная, надо рыскать родные модули(как то видел просто)

[Пепел Феникса]

Главное и есть в программирование задумываться над каждым кодом, то и есть чем глубже ты понимаешь это, тем лучше все у тебя получится!

отнюдь не всегда это нужно.
если работает, то зачем изучать асм чтоб понять как?
(да и по твоей логике надо вообще устройство компа изучать)

[BOBAH13]

Сообщение от _SERGEYX_

kangreon, наверно так и есть.
Без цикла тут, похоже, не обойтись.
Странно, должна же быть встроенная функция для определения
принадлежит значение массиву или нет.
Эти горе-девелоперы из штата Мичиган зря хлеб едят

А как вы себе представляете проверку каждых 4х байт в памяти, к примеру массива размером в 5 элементов, а значит найти и проверить 4 байта в 20и байтах в памяти? Тут по любому придется использовать перебор, а перебор это и есть цикл. А в том коде что вы привели, там тоже цикл (jmp [метка]). Не ужели это так критично для вашей задачи? Я имею ввиду перебор массива в цикле.

[_SERGEYX_]

Не критично. Я имел ввиду, что должна быть готовая функция типа

var X: array[0..2] of String = ('aaa','bbb','ccc');
S:='aaa';
//И далее...
if (S in X) then  //Что-то в этом роде... и пусть машина сама перебирает