IP 取值问题，帮忙看下哦

Question

IP：=‘192.168.1.120’
IP:=‘192.168.001.120’上面2种情况
 
我怎么才能取到后两位呢，考虑

Answer 1

取的结果是20？
copy(ip,length(ip)-1,length(ip));//手头没有DELPHI，你可以试试

Answer 2

或copy(ip,length(ip)-1,2);//手头没有DELPHI，自己调一下。

Answer 3

copy(para1,para2,para3);//三个参数的意思分别是：原字符串，开始截取的位置，截取位数。所以只需相应调整第二个和第三个参数的数值即可。

Answer 4

{用TstringList吧}const IP='192.168.001.120';
var
   slist:Tstringlist;
begin
   slist:=Tstringlist.Create;
   try
   slist.Delimiter='.';
   slist.DelimitedText:=IP;
   showmessage(slist.Strings[0]); {192}
   showmessage(slist.Strings[1]); {168}
   showmessage(slist.Strings[2]); {001}
   showmessage(slist.Strings[3]); {120}
   finally
     slist.Free;
   end;
end;

Answer 5

我自己想的办法是这样的大家看下  有更好的办法没前面的那个如果IP  为192.168.1.1  取后2位的话   结果为  .1    下面是我自己写的  如果最后只有1位的时候补0 m := pos('.', ip);
        equip := copy(ip, m + 1, length(ip));
        n := pos('.', equip);
        equip := copy(equip, n + 1, length(equip));
        p := pos('.', equip);
        equip := copy(equip, p + 1, length(equip));
        equip := copy(equip, length(equip) - 1, length(equip));
        if length(equip) = 1 then
          equip := '0' + equip;

Answer 6

就用这个 
if length(slist.Strings[3])=1 then
slist.Strings[3]:='0'+slist.Strings[3];