Wert [Word] in Liste/Array vorhanden

[Aphton]

Delphi-Quellcode:

function DynWordArrContainsWord(const dynWordArr; value: Word): LongBool;
asm
  MOV   EDI, [EAX]
  MOV   ECX, [EDI-4]
  INC   ECX
  MOV   AX, DX
  REPNZ SCASW
  XCHG  EAX, ECX
end;

// --

procedure main();
var
  i: Integer;
  a: Array of Word;
begin
  SetLengtH(a, 100);
  for i := 0 to high(a) do a[i] := i;
  writeln(DynWordArrContainsWord(a, 99));
  writeln(DynWordArrContainsWord(a, 100));
  readln;
end;

Code:

TRUE
FALSE

Grenzfälle: DynWordArr = NIL oder Length(DynWordArr) = 0
nicht abgefangen!