218.67.66.88 像这样的IP地址如何单独取218 67 68 88??

Question

218.67.66.88  像这样的IP地址如何单独取218   67   68    88??

Answer 1

var I: integer;
 s, s1, s2: string;
begin
 s := '218.67.66.88';
 i := pos('.', s);
 s1 := Copy(s, 1, i-1);
 showMessage(s1);
 delete(s, 1, i);
 i := pos('.', s);
 s2 := Copy(s, 1, i-1);
 showMessage(s2);
 delete(s, 1, i);
...

Answer 2

i:=pos('.', s);s:=Copy(s, 1, i-1);while i>0 do
begin
[outString] Copy(s, 1, i-1);
s:=Copy(s, i+1, 255);
i:=pos('.', s);
end

Answer 3

var s,s1,s2,s3,s4:string; //s:ip s1,s2,s3,s4 把ip分为四个string
begin
  //soc为源ip
  s1:=copy(soc,1,pos('.',soc)-1);
  s:=copy(soc,pos('.',soc)+1,length(soc)-pos('.',soc));
  s2:=copy(s,1,pos('.',s)-1);
  s:=copy(s,pos('.',s)+1,length(s)-pos('.',s));
  s3:=copy(s,1,pos('.',s)-1);
  s:=copy(s,pos('.',s)+1,length(s)-pos('.',s));
  s4:=s;
end;

Answer 4

var IPStr : TStrings;
begin
  IPStr := TStringList.Create;
  IPStr.Delimiter := '.';
  IPStr.DelimitedText := '218.67.66.88 ';
//  其中：IPStr[0] 是 218， IPStr[1]是67，IPStr[2]是66，IPStr[3]是88
  
  IPStr.Free;
end;