Question

How to remove all occurrences of word from a string in Pascal

Answer 1

program RemoveWordFromString;

uses
  SysUtils;

var
  inputString, wordToRemove: string;
begin
  inputString := 'java php c# pascal java c c++ java java golang python java';
  wordToRemove := 'java';

  // Remove all occurrences of the word
  inputString := StringReplace(inputString, wordToRemove, '', [rfReplaceAll, rfIgnoreCase]);

  // Trim extra spaces if needed
  inputString := Trim(StringReplace(inputString, '  ', ' ', [rfReplaceAll]));

  WriteLn(inputString);
end.

   
     
(*
run:

php c# pascal c c++  golang python
     
*)

 

70+ SQL courses for beginners and professionals