Element in Array mit Differenzwert?

[quendolineDD]

Delphi-Quellcode:

function IsElementInArray(lpArray: TRestoreArray; dwElement,
  dwDelta: Integer): Bool;
var
  i, min, max : integer;
begin
  Result := False;
  min := dwElement - dwDelta;
  max := dwElement + dwDelta;
  i := Low(lpArray);
  repeat
    Result := NOT lpArray[i] in [min..max];
    inc(i);
  until (i > High(lpArray)) or NOT Result;
end;

Nicht getestet ...