delphi 得到IP三个值

function GetIP1(const S: String): String; //192.168.1.1 得到 192

var

tempstr:string;

begin

tempstr:=SplitString(S,'.').Strings[0];

tempstr:=StringReplace (tempstr, '.', '', []);

result :=tempstr;

end;

function GetIP2(const S: String): String;//192.168.1.1 得到 168

var

tempstr:string;

begin

tempstr:=SplitString(S,'.').Strings[1];

tempstr:=StringReplace (tempstr, '.', '', []);

result :=tempstr;

end;

function GetIP3(const S: String): String;//192.168.1.1 得到 1

var

tempstr:string;

begin

tempstr:=SplitString(S,'.').Strings[2];

tempstr:=StringReplace (tempstr, '.', '', []);

result :=tempstr;

end;

function SplitString(const Source,ch:String):TStringList;

var

temp:String;

i:Integer;

begin

Result:=TStringList.Create;

//如果是空自符串则返回空列表

if Source=''

then exit;

temp:=Source;

i:=pos(ch,Source);

while i<>0 do

begin

Result.add(copy(temp,0,i-1));

Delete(temp,1,i);

i:=pos(ch,temp);

end;

Result.add(temp);

end;

点我访问文章列表

联系电话：

020-00000000

联系电话：

020-00000000

联系电话：

020-12345678