RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi 得到IP三个值

作者:admin 来源: 日期:2018/2/1 0:30:51 人气: 标签:



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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料