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