前些天”掉线“兄要我把查看IP地址的小东西改一下。
要求输入域名自动转为ip然后查出ip地址，同时只要用
一个eidt框，说这样方便，这下可我把给难倒了，经过
努力，这个功能搞了出来，希望能给朋友点帮助！
如何判断eidt的内容是域名还IP源码如下：
自己写了个函数提取edit的内容。
function gettext(datatext:string):string;
var
i:integer;
s:string;
begin
s:=datatext;
i:=pos('.',s);
while i<>0 do
begin
delete(s,1,i);
i:=pos('.',s);
end;
result:=s;
end;
这个函数就是提取出ip/网址的最后一个点后面的第一个符号。。。
如果是ip这个一定是个数字，反之网址一定是个字母。
再来个判断就可以了：
var
num,datas:string;
begin
num:='!ZXCVBNMASDFGHJKLQWERTYUIOPzxcvbnmasdfghjklqwertyuiop';
datas:=copy(gettext(edit1.Text ),0,1);
if pos(datas,num)<>0 then
showmessage('是E文');
else
showmessage('是数字！')
end;
这样的话就可以判断你内容是域名还j是IP
只不过这个方法有点烂，如果哪位兄台有
好的方法请Q我，或留言！
先谢过，闪人先！
来源地址:
http://onlyou.nspcn.org/trackback.asp?tbID=55
