请问在delphi中有没有字符串反向查找的函数？

Question

刚发现StrRScan可以反向查询！function NamePart(FileName: PChar): PChar;
var
  P: PChar;
begin
  P := StrRScan(FileName, '\/');
  if P = nil then
  begin
    P := StrRScan(FileName, ':');
    if P = nil then P := FileName;
  end;
  NamePart := P;
end;var  S : string;
begin
  S := string(NamePart('C:\Test.fil'));
  Canvas.TextOut(10, 10, S);
end;;

Answer 1

可以用copy函数实现，自己写代码，我记得我刚学delphi的时候在这里问截取字符串的问题，有人对我说copy的万能的，呵呵，真的很好用哦：）

Answer 2

我同意：　xzm2000(不是云)　的看法！其实COPY函数的功能很强大！你可以用它写一些自己需要的新函数，呵呵！