查找字符串中字符的最后出现次数

Question

是否存在任何RTL Delphi函数来确定字符串中最后一次出现字符的位置？

Answer 1

尝试作为SysUtils单元的一部分的LastDelimiter函数。

Answer 2

RRUZ回答了实际问题（他给了你一个RTL函数）。

不过，我不能完全抵挡给人一种简单的代码片段，你想要做什么：

function LastCharPos(const S: string; const Chr: char): integer; 
var 
    i: Integer; 
begin 
    result := 0; 
    for i := length(S) downto 1 do 
    if S[i] = Chr then 
     Exit(i); 
end; 

因为这不正是你想要什么，不提供其他功能，这是更为紧凑的（特别是当我们使用Delphi 2009及更高版本的Exit(Result)语法），可能稍微快一点。 2007年德尔福，但是，你必须做

function LastCharPos(const S: string; const Chr: char): integer; 
var 
    i: Integer; 
begin 
    result := 0; 
    for i := length(S) downto 1 do 
    if S[i] = Chr then 
    begin 
     result := i; 
     break; // or Exit; if you prefer that 
    end; 
end; 

Answer 3

使用StrRScan或AnsiStrRScan，无论是在sysutils的单元。后者尽管有其名称，但仍适用于Delphi版本中的Unicode字符，其中string为UnicodeString。 （如果您仍然需要“真实”的ANSI版本，使用AnsiStrings单位）。

这些功能搜索的一个字符，而LastDelimiter搜索任何从可能性的定列表几个大字 - 想StrRScan如LastDelimiter针对单字符Delimiters参数进行了优化。

Answer 4

这里是我对找到字符串中第n个子字符串出现位置的贡献。

function GetPositionOfNthOccurence(sSubStr, sStr: string; iNth: integer): integer; 
var 
    sTempStr: string; 
    iIteration: integer; 
    iTempPos: integer; 
    iTempResult: integer; 
begin 
    result := 0; 

    // validate input parameters 
    if ((iNth < 1) or (sSubStr = '') or (sStr = '')) then exit; 

    // evaluate 
    iIteration := 0; 
    iTempResult := 0; 
    sTempStr := sStr; 
    while (iIteration < iNth) do 
    begin 
    iTempPos := Pos(sSubStr, sTempStr); 
    if (iTempPos = 0) then exit; 
    iTempResult := iTempResult + iTempPos; 
    sTempStr := Copy(sStr, iTempResult + 1, Length(sStr) - iTempResult); 
    inc(iIteration); 
    end; 
    result := iTempResult; 
end; 

Answer 5

最好的跨平台解决方案是TStringHelper.LastIndexOf，它自Delphi XE4以来就存在。

注意，这个函数是基于0的。