| ESBPosCh Function | 
Unit
QESBPCSConvert
Declaration
Function ESBPosCh(const Ch: Char; const S: string; Start: Integer = 1): Integer;
Description
Can optionally have a starting point.
| Parameters | 
| Ch | Character to be searched for | 
| S | String to Search within | 
| 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 ESBPosCh (const Ch: Char; const S: string; Start: Integer = 1): Integer;
var
     I, N: Integer;
begin
     Result := 0;
     N := Length (S);
     if Start < 1 then
          Start := 1;
     if (N = 0) or (Start > N) then
          Exit;
     for I := Start to N do
     begin
          if S [I] = Ch then
          begin
               Result := I;
               Exit;
          end;
     end;
End; | 
|  |