ESBLastPosCh Function
Returns the Last Position of given Character, processing from the end of the string.

Unit
QESBPCSConvert

Declaration
Function ESBLastPosCh(const Ch: Char; const S: string; Start: Integer = 0): Integer;

Description
Can optionally have a starting point and the search proceeds to the beginning of the string from that Start position.

Parameters
Ch Character to be searched for
String to Search within
Start Character Position at which to start. If Start < 1 then Length (S) is used. If Start > Length (S) then 0 is returned.

Returns
The Position of the Character, otherwise 0 is returned.

Category
Extra String Handling Routines

Implementation

function ESBLastPosCh (const Ch: Char; const S: string; Start: Integer = 0): Integer;
var
     I, N: Integer;
begin
     Result := 0;
     N := Length (S);
     if Start < 1 then
          Start := N;
     if (N = 0) or (Start > N) then
          Exit;

     for I := Start downto 1 do
     begin
          if S [I] = Ch then
          begin
               Result := I;
               Exit;
          end;
     end;
End;


HTML generated by Time2HELP
http://www.time2help.com