[Делфи] Определить что текст явл. айпи адресом

[zotox]

Сообщение от Вавел из ГМТУ

Эта строка выглядит довольно странно:

if pos('.',s[i])<>0 then....

Спасибо потом сам додумаю, тема закрыта

[AlexanderKs]

Хоть тема и закрыта, я добавлю свою простенькую, работающую, но топорную функцию.. на всякий случай

function TForm1.TestIpAdr(inp: string): boolean;
var
ak:string;
i,z:integer;
begin
Result:=false;
if Length(inp)>15 then exit;
ak:=''; i:=1; inp:=inp+'.';
while i<=Length(inp) do begin
  if (ord(inp[i])>=48) and (ord(inp[i])<=57) then ak:=ak+inp[i]
  else begin
    if ord(inp[i])<>46 then begin Result:=false; exit; end;
  end;
  if (ord(inp[i])=46) then begin // если попалась точка
     try
       z:=StrToInt(ak); // пробуем перевести - try если большое слишком
       ak:='';
       if z>255 then begin
         Result:=false;
         exit;
       end;
       Result:=true;
     except
       result:=false; exit;
     end;
  end;
inc(i);
end;
end;

Косяки в том, что повторяются "result:=false; exit;"... неэстетично.

[Serge_Bliznykov]

AlexanderKs, 1) Вы правы, Ваша функция очень "некрасивая" и замороченная
2) кроме того, в ней и дырки есть - проверьте для строки
"1.2.3.4.5.6.7"

[Баламут]

Мог пройти мимо

uses WinSock2
............................
 if inet_addr(PChar(Edit1.text)) <> INADDR_NONE then
 ShowMessage('Правильно')
 else ShowMessage('Фигня, однако...');

[Stilet]

Мог пройти мимо

А вот теперь тему можно действительно закрыть