摘要： 判断IP地址是否非法的代码： 1 function TForm1.IsIPString(IPStr: string): Boolean; 2 var 3 i,DotNum:integer; 4 Tmpstr:string; 5 begin 6 Result:=true; 7 DotNum:=0; 8 for i:=1 to Length(IPStr) do 9 Case IPStr[i] of10 '0'..'9','.':11 ... 阅读全文