Erkennen von Bereichskonflikten bei doppelten Adressen

[marabu]

Hallo Devid,

unabhängig von deinem Anwendungsfall - du musst Intervalltest durchführen:

Delphi-Quellcode:

uses
  Math;

function IntersectRange(min1, max1, min2, max2: Int64; var min3, max3: Int64): Boolean;
begin
  Result := InRange(min1, min2, max2) 
         or InRange(max1, min2, max2)
         or InRange(min2, min1, max1)
         or InRange(max2, min1, max1)
         ;
  if Result then
  begin
    min3 := Max(min1, min2);
    max3 := Min(max1, max2);
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu