虽然该问题可以变相解决，不过我觉得如果有这种函数的话平时也蛮有用的哈...
发表于： 2009-05-05 15:39:11 楼主
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
回复次数：8
uses
  strutils;




使用ReverseString将字符串翻转一下
回复于： 2009-05-05 15:42:23#1 得分：3
 
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
如果只是考虑第一次出现的情况,LastDelimiter,反向第一次出现的位置
回复于： 2009-05-05 15:42:57#2 得分：10
 
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
引用 1 楼 hongqi162 的回复:
uses 
  strutils; 


使用ReverseString将字符串翻转一下
这个方法我知道哈...
不过这是我所知道的最简单的方法。
回复于： 2009-05-05 15:45:49#3 得分：0
 
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
引用 3 楼 mathsfan 的回复:
引用 1 楼 hongqi162 的回复:
uses 
  strutils; 


使用ReverseString将字符串翻转一下 
 
这个方法我知道哈... 
不过这是我所知道的最简单的方法。
最简单的就是自己写。
回复于： 2009-05-05 15:49:42#4 得分：1
 
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
引用 2 楼 bdmh 的回复:
如果只是考虑第一次出现的情况,LastDelimiter,反向第一次出现的位置
bdmh果然博学多才啊...
不过有一个问题：
如果
  s:='a.b.c';
  i:=LastDelimiter('.',s)+1;
  ShowMessage(Copy(s,i,MaxInt));
则正确返回：c
而如果
  s:='a.b.c';
  i:=LastDelimiter('.d',s)+1;
  ShowMessage(Copy(s,i,MaxInt));
按理我需要的是：空
现在返回：c
即，如果肯定能pos到时正确，没pos到时结果是不正确的...
回复于： 2009-05-05 15:56:11#5 得分：0
 
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
如果只是查找一个单字符(Char)的话,还可以用StrRScan.
Delphi/Pascal code
 
?
1
2
function StrRScan(const Str: PAnsiChar; Chr: AnsiChar): PAnsiChar;
function StrRScan(const Str: PWideChar; Chr: WideChar): PWideChar;

当然要注意它返回的不是位置,而是指针,就看合不合你的使用了.
相反从左查找用StrScan.
回复于： 2009-05-05 16:02:17#6 得分：3
 
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
你把分隔符设为'.d',他认的还是'.',所以你返回的还是'c'
delphi help
When working with multi-byte character sets (MBCS), S may contain double byte characters, but the delimiters listed in the Delimiters parameter must all be single byte non-null characters.
回复于： 2009-05-05 16:02:35#7 得分：3
 
对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
看到了，好象只支持单字符...
没有匹配到时返回0，看来仅仅用在一些特殊的时候，对于大部分的匹配字符串的时候还是得自己去写哈！！！