Question

How to remove all non-alphanumeric characters from a string in Pascal

Answer 1

program RemoveNonAlphanumericProgram;

function IsAlphaNum(ch: Char): Boolean;
begin
    IsAlphaNum := (ch in ['A'..'Z', 'a'..'z', '0'..'9']);
end;

function RemoveNonAlphaNum(const s: string): string;
var
    i: Integer;
    resultString: string;
begin
    resultString := '';
    for i := 1 to Length(s) do
    begin
        if IsAlphaNum(s[i]) then
            resultString := resultString + s[i];
    end;
    RemoveNonAlphaNum := resultString;
end;

var
    s: string;

begin
    s := 'Pascal, #@ ! ^&Programming (*).';
  
    s := RemoveNonAlphaNum(s);
  
    WriteLn(s);
end.



(*
run:

PascalProgramming

*)

 

70+ SQL courses for beginners and professionals