Função: Verifica se a String Indicada e um IP - Códigos Delphi

Função: Verifica se a String Indicada e um IP

// Testa se a String é Um IP ou Não

function IsIP( S: string): boolean; var i,j,ii: integer; begin Result := false; i := pos( ' ', s); while i > 0 do begin delete( s, i, 1); i := pos( ' ', s); end; j := 0; ii := 0; for i := 1 to length(s) do if s[i] = '.' then if i = succ(ii) then exit else begin inc(j); ii := i; end; if j = 3 then Result := true; end;