如何制作一个IP地址输入框啊,并且能检测输入的正确性?

Question

如192.168.102.185,数字段192与168之间还有一点,是如何实现的?

Answer 1

判断ip的合法性
function decise(n:string):boolean;
var
  i,counter:integer;
  s:string;
begin
  s:=edit1.text;
  counter:=0;
  while (pos('.',s)<>0) then
  begin
    i:=pos('.',s);
    s:=delete(s,1,i);
    counter:=counter+1;
  end;
  if counter=3 then
     result:=true
  else
     result:=false;
end;
我也是初学者，不知道我这段写的是否正确，希望高手们指教。

Answer 2

同意 angle097113(深思不解) 
还可以下载一个ipaddress控件，很好用的，能省去不少判断的语句，推荐使用

Answer 3

IPEdit这种东西本来就是Windows的标准控件啊！

Answer 4

http://www.csdn.net/cnshare/soft/13/13985.shtm