Fórum O Delphi possui função para formatação de espaços em branco? #230943

function RemoveEspaco(Str:String): String;
Var
   x : Integer;
Begin
   x:=0;
   while x <= Length(Str) do
      begin
      inc(x);
      if Str[x] = ´ ´ then
         if Str[x+1] = ´ ´ then
            begin
            Delete(str,x,1);
            Dec(x);
            end;
      end;
   Result := Str;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit2.Text:=RemoveEspaco(trim(Edit1.Text));
end;

function RemoveEspaco(sStr:String): String;
begin
       Result := StringReplace(sStr,´   ´,´ ´,[rfReplaceAll] );
       while pos(´   ´,Result) > 0 do
             Result := StringReplace(Result,´   ´,´ ´,[rfReplaceAll] );
end;

unit Unit2;

interface
type
TFormataFrase = Class(TObject)
  private
    FLinhaEntrada: String;
    FLinhaSaida: String;
    public
      property LinhaEntrada: String write FLinhaEntrada;
      property LinhaSaida: String read FLinhaSaida;
      procedure Execute;
      procedure Clear;
end;
implementation

{ TFormataFrase }

procedure TFormataFrase.Clear;
begin
FLinhaEntrada:= ´´;
  FLinhaSaida:= ´´;
end;

procedure TFormataFrase.Execute;
var Pilha: String[1];
i, x: SmallInt;
begin
Pilha := Chr(255);
  FLinhaSaida := ´´; // Adicionado em 11/05/2004 - 9h
  x := Length(FLinhaEntrada);
  For i := 1 to x do
  begin
  if FLinhaEntrada[i] <> Pilha then
    FLinhaSaida := FLinhaSaida + FLinhaEntrada[i];
    Pilha := FLinhaEntrada[i];
  end;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var FormataFrase: TFormataFrase;
LinhaFormatada: String;
begin
with TFormataFrase.Create do
  begin
  LinhaEntrada:= ´abcde   fghi      jlmno      pqrs  tuvxz     123 45           678          910´;
Execute;
  LinhaFormatada := LinhaSaida;
  Free;
  end;
end;

abcde fghi jlmno pqrs tuvxz 123 45 678 910

function RemoveEspaco2(sStr:String): String;
begin
      Result := StringReplace(sStr,´   ´,´ ´,[rfReplaceAll] );
      while pos(´   ´,Result) > 0 do
            Result := StringReplace(Result,´   ´,´ ´,[rfReplaceAll] );
end;

function RemoveEspaco2(sStr:String): String;
begin
      Result := StringReplace(sStr,´  ´,´ ´,[rfReplaceAll] );
      while pos(´  ´,Result) > 0 do
            Result := StringReplace(Result,´  ´,´ ´,[rfReplaceAll] );
end;

function RemoveDupSpaces(const S: String): String;
var
  I, Total: Integer;
  InHole: Boolean;
begin
  SetLength(Result, Length(S));
  Total := 0;
  InHole := True;
  for I := 1 to Length(S) do
  begin
    if not InHole or (S[I] <> ´ ´) then
    begin
      Inc(Total);
      Result[Total] := S[I];
    end;
    InHole := S[I] = ´ ´;
  end;
  SetLength(Result, Total);
end;