StripChFromStr Routines
Returns a String with all occurrences of the given character removed.

Unit
QESBPCSConvert

Overloaded Variants
Function StripChFromStr(const S: string; const Ch: Char): string;
Function StripChFromStr(const S: string; const Chars: TESBCharSet): string;

Declaration
Function StripChFromStr(const S: string; const Ch: Char): string;

Description
Also see: StripChStr , StripTChStr, StripLChStr

Parameters
the String to process.
Ch the character to remove.
Chars alternatively can pass a set of Characters to remove.

Category
Extra String Handling Routines

Implementation

function StripChFromStr (const S: string; const Ch: Char): string;
var
     LenS, N, I: Integer;
begin
     LenS := Length (S);
     SetLength (Result, LenS);
     N := 0;
     for I := 1 to LenS do
     begin
          if S [I] <> Ch then
          begin
               Inc (N);
               Result [N] := S [I];
          end;
     end;
     SetLength (Result, N);
End;

Declaration
Function StripChFromStr(const S: string; const Chars: TESBCharSet): string;

Implementation

function StripChFromStr (const S: string; const Chars: TESBCharSet): string;
var
     LenS, N, I: Integer;
begin
     if Chars = [] then
          Result := S
     else
     begin
          LenS := Length (S);
          SetLength (Result, LenS);
          N := 0;
          for I := 1 to LenS do
          begin
               if not (S [I] in Chars) then
               begin
                    Inc (N);
                    Result [N] := S [I];
               end;
          end;
          SetLength (Result, N);
     end;
End;


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