| ESBPosNCh Function |
Unit
QESBPCSConvert
Declaration
Function ESBPosNCh(const Ch: Char; const S: string; const N: Integer; Start: Integer = 1): Integer;
Description
Can optionally have a starting point.
| Parameters |
| Ch | Character to be searched for |
| S | String to Search within |
| N | is the Occurrence that is being looked for. If N < 1 then 0 is returned. |
| Start | Character Position at which to start. If Start < 1 then 1 is used. If Start > Length (S) then 0 is returned. |
Returns
The Position of the Character, otherwise 0 is returned.
Category
Extra String Handling RoutinesImplementation
function ESBPosNCh (const Ch: Char; const S: string; const N: Integer;
Start: Integer = 1): Integer;
var
I, Len, Count: Integer;
begin
Result := 0;
Len := Length (S);
if Start < 1 then
Start := 1;
if (Len = 0) or (Start > Len) or (N < 1) then
Exit;
Count := 0;
for I := Start to Len do
begin
if S [I] = Ch then
begin
Inc (Count);
if Count = N then
begin
Result := I;
Exit;
end;
end;
end;
End; |
|
|