Delphi returns the position of the substring at the last occurrence of the string

From , 5 Years ago, written in Delphi (Object Pascal), viewed 201 times.

function LastPos(const SubStr, Str: string): Integer;
var
  Idx: Integer; // an index of SubStr in Str
begin
  Result := 0;
  Idx := StrUtils.PosEx(SubStr, Str);
  if Idx = 0 then
    Exit;
  while Idx > 0 do
  begin
    Result := Idx;
    Idx := StrUtils.PosEx(SubStr, Str, Idx + 1);
  end;
end;
//delphi/2322

Reply to "Delphi returns the position of the substring at the last occurrence of the string"

Here you can reply to the paste above

Author What's your name?

Title Give your paste a title.

Language What language is your paste written in?

Your paste Paste your paste here

Create Shorturl Create a shorter url that redirects to your paste?

Private Private paste aren't shown in recent listings.

Delete After When should we delete your paste?

Spam protection Type in the letters

https://burned.cc - Burn After Reading Website

Pastebin.vip

Delphi returns the position of the substring at the last occurrence of the string

Reply to "Delphi returns the position of the substring at the last occurrence of the string"