知道了!
var
  S: string;
begin
  S := '192.168.0.1';
  S := StrRight(S, '.'); //'168.0.1'
  S := StrRight(S, '.'); //'0.1'
  S := StrRight(S, '.'); //'1'
end;

解决方案 »

  1.   

    http://www.csdn.net/expert/topic/495/495189.shtm
    资源共享看看啊   
      

  2.   

    http://www.csdn.net/expert/topic/495/495183.shtm
    救命啊 
      

  3.   

     好的,谢谢!我能再问一个问题吗!if  (Pos(StrLeft(TreeView1.Items[I].Text, #32),ADOTable1.FieldByName('号码').AsString) = 1)中
    #32是表示取32个字节吗??
    还有把上面的语句缩减后是 if (pos('.','1234.56')=1)是什么意思??是表示先取出'号码'为1的名称作为起始节点吗??或许问题实在是太菜了,但我真的不懂,不好意思!
      

  4.   

    #32 = Chr(32) = ' ' = 空格
      

  5.   

    Pos() //返回子串在字符串的位子
      

  6.   

    zswang(伴水)(需要充充电) 
    不知道你现在在不在,很感谢你的帮忙,很可惜的是我可能太菜了,我目前真的只能是把你的代码和思路搞明白,看懂就很不错了,昨天你说我自己先试着做一下,可我如果不是问你的话,连一点思路也没有,根本每办法自己做,你的程序我运行了一下,可以的.你在的话!跟一下帖子,我把这个帖子先结了,还有不懂得地方,我在原先的那个帖子问你!再一次感谢!