我想读出某string的最后几个字，如，我想读出IP：61.136.123.12第三个句号之后的内容（例子中为12），请问怎么做？我的意思是是怎样才能

Question

s:='61.136.123.12';
用pos('.',S);得到第一个位置，然后用copy把第一个（61）取出来，
然后用delete把前三个字母删除
这样S就是'136.123.12';
下面的类推

Answer 1

Delphi的Pos函数只能从左往右定位，可以采用Pos一段删除一段，就像上面朋友提到的方法。也可以从最右边自己找，例如
for i:=Length(s) downto 1 do
  if s[i]='.' then begin
    sSub := Copy(s, i+1, Length(s)-i); //sSub就是最右边那段
    break;
  end;

Answer 2

用ReverseString函数把字符串倒置，读出第一个点的位置就可以了。程序里要use
SysUtils单元。function GetStrAfterDot(sTemp: string):string;
var
   pos1: integer;
begin
   pos1 := pos('.',ReverseString(sTemp));
   Result := RightStr(sTemp,pos1-1);
end;

Answer 3

请问ReverseString是什么函数？怎么在Delphi帮助和Windows帮助中都没有？

Answer 4

沒那么複雜,
請用這個函數 StrRScan,請查詢Delphi幫助!

Answer 5

我用的是Delphi6，在帮助里能找到的，在StrUtils单元里，不知道是不是Delphi6新加的函数