Ну так, например:
Код:
uses
System.StrUtils;
type
TIPRec = record
B1 : Byte;
B2 : Byte;
B3 : Byte;
B4 : Byte;
end;
function Text2IP(AText : String) : TIPRec;
var
I : Integer;
A : TStringDynArray;
begin
A := SplitString(AText,'.');
If Length(A) <> 4 Then Raise Exception.Create('IP format failed');
Result.B1 := StrToInt(A[0]);
Result.B2 := StrToInt(A[1]);
Result.B3 := StrToInt(A[2]);
Result.B4 := StrToInt(A[3]);
end;
// Из предположения, что диапазон задает макс 256 адресов (последний байт),
// а маска подсети та же.
// Т.е. проверяем маску на соответсвие, и последний байт на попадание в диапазон.
function IsIPInRange(AIP : TIPRec; ARangeFrom, ARangeTo : TIPRec) : Boolean;
begin
Result := (AIP.B1 = ARangeFrom.B1) And
(AIP.B2 = ARangeFrom.B2) And
(AIP.B3 = ARangeFrom.B3) And
(AIP.B4 >= ARangeFrom.B4) And
(AIP.B4 <= ARangeTo.B4);
end;
ЗЫ. Можно написать красивее, но для понимания так лучше будет.
ЗЗЫ. Точно есть подобные функции в разных библиотеках типа Synapse и Indy. Ну и в API для сокетов тоже что-то подобное было, хотя там этим пользоваться чуть посложнее. Для простой задачи, как вышеописанная, такой реализации вполне достаточно и не надо тащить доп. библиотеки.