Pascal. Сравнить две строки вида *.*.*.* (2.10.3.5 например)

[TwiX]

Может кто-нибудь быстрый способ знает? Лень разбирать по частям..
StrComp не подходит, т.к. 20.1.1.1 < 3.1.1.1

Заранее благодарен

[Serge_Bliznykov]

если я правильно понял ваш вопрос, то Вам поможет функция LongIP
взятая отсюда - Torry - Delphi Procedures and Function Library > Categories > Internet

после модификации:

function LongIP(IP : string) : Longword;
var
  IPaddr   : array[1..4] of integer;
  temp     : string;
  // res      : Longword;
  i        : integer;
begin
  temp := ip;
  temp := temp + '.';
  try
    for i := 1 to 4 do
    begin
      ipaddr[i] := strtoint(copy(temp,1,pos('.',temp) - 1));
      delete(temp,1,pos('.',temp));
    end;
  except
     // result := 'Invalid IP address.';
     result := 0;
     exit;
  end;

  result := (ipaddr[1] * $FFFFFF) + ipaddr[1] +
           (ipaddr[2] * $FFFF)   + ipaddr[2] +
           (ipaddr[3] * $FF)     + ipaddr[3] +
           (ipaddr[4]);
end;

[TwiX]

Сейчас сел, посмотрел.. Мне кажется, что должно быть вот так:

result := (ipaddr[1] * $FFFFFF)+
           (ipaddr[2] * $FFFF)+
           (ipaddr[3] * $FF)+
           (ipaddr[4]);

Разве нет?

[DiemonStar]

Излишние движения у вас, коллеги:

var A: array[0..3] of byte;
    B: Longword absolute A;

вам поможет достичь результата намного быстрее. Только заполнять массив придётся в обратном порядке