Element in Array mit Differenzwert?

[jaenicke]

Wie wäre es mit einer einfachen Differenz?

Delphi-Quellcode:

function IsElementInArray(lpArray: TRestoreArray; dwElement, 
  dwDelta: DWord): Boolean; 
var 
  i: Integer; 
begin 
  Result := false;
  for i := Low(lpArray) to High(lpArray) do
    if Abs(lpArray[i].dwOffset - dwElement) <= dwDelta then
    begin 
      Result := true; 
      Exit; 
    end;
end;