Question

How to remove multiple spaces from a string in Pascal

Answer 1

// Manual loop (works everywhere)

program RemoveMultipleSpaces;

{$mode objfpc}{$H+}

function RemoveExtraSpaces(const S: string): string;
var
  i: Integer;
  lastWasSpace: Boolean;
begin
  Result := '';
  lastWasSpace := False;

  for i := 1 to Length(S) do
  begin
    if S[i] = ' ' then
    begin
      if not lastWasSpace then
        Result := Result + ' ';
      lastWasSpace := True;
    end
    else
    begin
      Result := Result + S[i];
      lastWasSpace := False;
    end;
  end;
end;

begin
  WriteLn(RemoveExtraSpaces('Hello    world   this   is   Pascal'));
end.



(* run:

Hello world this is Pascal

*)

 

70+ SQL courses for beginners and professionals

Answer 2

// Using SysUtils.StringReplace with a loop

program RemoveMultipleSpaces;

{$mode objfpc}{$H+}

uses SysUtils;

function CollapseSpaces(S: string): string;
begin
  repeat
    S := StringReplace(S, '  ', ' ', [rfReplaceAll]);
  until Pos('  ', S) = 0;
  Result := S;
end;

begin
  WriteLn(CollapseSpaces('Hello    world   this   is   Pascal'));
end.




(* run:

Hello world this is Pascal

*)

 

70+ SQL courses for beginners and professionals