怎样判断一个变量是不是一个IP地址 (200分)

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #21

上来喘口气……
uses
winsock;

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
s := '213.123.33.123';

if inet_addr(PAnsiChar(s)) <> -1 then
ShowMessage('是IP地址')
else
ShowMessage('不是IP地址');
end;

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #22

这个问题不难，但是太烦，建议自己理清思路自己写个函数就成了

 

C

congcong19

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #23

一思路不(没有写源码)
1。判断长度应在(15到7)之间
2。以‘。’为准把字符串分成四个子串，后判断四个子串是不是可以用STRTOINT转换
3。当1、2都成利时说明是不IP

 

Q

qlj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-02

• #24

DELPHI7里现成的函数干吗不用？
uses
IdStack;

TIdStack.IsIP(const AIP: string)

 

W

winni

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-02

• #25

 

N

netfun2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-02

• #26

wuxi大哥，借您的问题，请您把读写24Cxx的程序发到
netfun2000@tom.com
我这个问题在：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2590970