判断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;
我也是初学者,不知道我这段写的是否正确,希望高手们指教。