Подскажите пожалуйста как лучше реализовать проверку условия попадания введённого IP адреса в заданный диапазон

[Alex711]

Подскажите пожалуйста как лучше реализовать условие:
в edit1 IP-адрес
если этот ip и диапазона 192.168.1.1-192.168.1.255 тогда в label1 значение ххх
если этот ip и диапазона 192.168.0.1-192.168.0.255 тогда в label1 значение yyy

[Serge_Bliznykov]

IP - это всего просто представление 32-разрядного целого числа. (гугл delphi IP to integer или IP преобразовать в Integer)
поэтому попробуйте преобразовать все IP (проверяемый адрес и адреса диапазонов) в числа и сравните.

p.s. если это решение не понравится/не устроит - попробуйте взять готовый код со стековерфлоу (хотя мне такой подход не очень понравился).

[Slym]

http://www.programmersforum.ru/showt...=322576&page=3

type
  TIPRange=record
  private
    StartIP,StopIP,CurrentIP:cardinal;
    function IP2Cardinal(const IP:string):cardinal;
  public
    constructor Create(const Start,Stop:string);
    function IsIn(const IP:string):boolean;
    function GetNext(out Str:string):boolean;
  end;

{ TIPRange }

constructor TIPRange.Create(const Start, Stop: string);
begin
  StartIP:=IP2Cardinal(Start);
  StopIP:=IP2Cardinal(Stop);
  CurrentIP:=StartIP;
end;

function TIPRange.IP2Cardinal(const IP: string): cardinal;
var
  IPRec:LongRec;
  Parts:TArray<string>;
begin
  Parts:=IP.Split(['.']);
  IPRec.Bytes[3]:=StrToInt(Parts[0]);
  IPRec.Bytes[2]:=StrToInt(Parts[1]);
  IPRec.Bytes[1]:=StrToInt(Parts[2]);
  IPRec.Bytes[0]:=StrToInt(Parts[3]);
  result:=cardinal(IPRec);
end;

function TIPRange.IsIn(const IP:string):boolean;
var C:cardinal;
begin
  C:=IP2Cardinal(IP);
  result:=(C>=StartIP) and (C<=StopIP);
end;

function TIPRange.GetNext(out Str: string): boolean;
var IP:cardinal;
begin
  IP:=cardinal(TInterlocked.Increment(integer(CurrentIP)));
  result:=(IP<=StopIp);
  if result then
    Str:=IntToStr(LongRec(IP).Bytes[3])+'.'+IntToStr(LongRec(IP).Bytes[2])+'.'+
       IntToStr(LongRec(IP).Bytes[1])+'.'+IntToStr(LongRec(IP).Bytes[0])
  else
    Str:='';
end;