Question

How to replace consecutive characters with only one using RegEx in Pascal

Answer 1

program RemoveConsecutiveDuplicates;

uses
  RegExpr;

var
  input, result: string;
  regex: TRegExpr;
begin
  input := 'aaaabbbccdddddd';

  // Define a regex pattern to match consecutive duplicate characters
  regex := TRegExpr.Create;

  regex.Expression := '(.)\1+';
  result := regex.Replace(input, '$1', True);

  // Output results
  WriteLn('Original: ', input);
  WriteLn('Modified: ', result);

  regex.Free;
end.


   
     
(*
run:

Original: aaaabbbccdddddd
Modified: abcd
     
*)

 

Learn SQL from A to Z at LearnSQL.com