关于IP地圵分割,请問如何攺这段ASP代码?

Question

关于IP地圵分割,
请問如何理解,并将这段ASP代码攺为DELPHI?谢了.. str1=Left(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=Left(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=Left(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)

Answer 1

str1:=Copy(sip,1,Pos('.',sip)-1); 
sip:=Copy(sip,Pos('.',sip)+1); 
str2:=Copy(sip,1,Pos('.',sip)-1); 
sip:=Copy(sip,Pos('.',sip)+1); 
str3:=Copy(sip,1,Pos('.',sip)-1);
str4:=Copy(sip,Pos('.',sip)+1);

Answer 2

  str1:=copy(sip,0,pos('.',sip)-1);
  sip:=copy(sip,pos('.',sip)+1,length(sip));
  str2:=copy(sip,0,pos('.',sip)-1);
  sip:=copy(sip,pos('.',sip)+1,length(sip));
  str3:=copy(sip,0,pos('.',sip)-1);
  sip:=copy(sip,pos('.',sip)+1,length(sip));
  str4:=sip;

Answer 3

uses StrUtils;var
  sip,ip1,ip2,ip3,ip4 : String;
begin
  sip := '10.194.136.106' ;
  ip1 := leftstr(sip,pos('.',sip)-1);
  sip := midstr(sip,pos('.',sip)+1,length(sip)-pos('.',sip));
  ip2 := leftstr(sip,pos('.',sip)-1);
  sip := midstr(sip,pos('.',sip)+1,length(sip)-pos('.',sip));
  ip3 := leftstr(sip,pos('.',sip)-1);
  sip := midstr(sip,pos('.',sip)+1,length(sip)-pos('.',sip));
  ip4 := sip;  showmessage(ip1+'.'+ip2+'.'+ip3+'.'+ip4) ;end;这个只是简单的字符串处理，其实有很多方式以及更简便的方法，上面的代码只是让你理解起来更容易一些
处理方式完全模仿ASP的处理方式