Question

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

Answer 1

program RemoveNonASCII;

function RemoveNonASCII(const input: string): string;
var
  i: Integer;
  resultStr: string;
begin
  resultStr := '';
  
  for i := 1 to Length(input) do
    if Ord(input[i]) <= 127 then
      resultStr := resultStr + input[i];
  
  RemoveNonASCII := resultStr;
end;

var
  input, filtered: string;
begin
  input := '©€ABC£µ¥xyz!® 123 こんにちは';
  filtered := RemoveNonASCII(input);

  WriteLn('Filtered string: ', filtered);
end.

 
 
(*
run:

Filtered string: ABCxyz! 123 

*)  

 

70+ SQL courses for beginners and professionals