如何编制一个IP输入框？

Question

编制写一个IP的输入框，像windows中设置本地地址那种？0.0.0.0

Answer 1

用一个判断函数就行了。
function TCSForm.IsLegalIP(IP:string):boolean;
var
  i, j, l: integer;
  ips: array [1..4] of string;
begin
  i:=1;
  for l:=1 to 4 do ips[l]:='';
  for j:=1 to length(ip) do
    if ip[j]<>'.' then
    begin
      if (ip[j]<'0')or(ip[j]>'9') then
      begin
        //showmessage(ip[j]);
        Result:=false;
        exit;
      end;
      ips[i]:=ips[i]+ip[j]
    end
    else inc(i);
  if (i<>4)
      or((strtoint(ips[1])>255)or(strtoint(ips[1])<0))  //originally is <1
      or((strtoint(ips[2])>255)or(strtoint(ips[2])<0))
      or((strtoint(ips[3])>255)or(strtoint(ips[3])<0))
      or((strtoint(ips[4])>255)or(strtoint(ips[4])<0))  then
    Result:= false
  else
    Result:= true;
end;

Answer 2

网上有很多IPEdit组件的
下载来用了：)

Answer 3

这个MS提供了,IPEdit也就是封装了一下