Buscar por:

Acerto de espaços que estão a mais

Código

//Função para o acerto de espaços mais num texto deixando apenas um espaço para separar

//Ex: "1         2                    3" fica "1 2 3"

function DiminuiEspaco(Str:string):string;

var

tam,i,contador  : integer;

monta       : string;

begin

  tam                                 := length(Str);

  soma                                := 0;

  for i:=1 to tam do

    begin

      //Verifica o espaços e faz uma contagem   

      if copy(str,i,1) = ' ' then

        begin

          contador                    := contador + 1;

        end

      else

        //Quando iniciar a outra palavra zera o cotador

        begin

          contador                        := 0;

        end;

      //Variavel recebe os caracteres que não são espaços  

      if (copy(str,i,1) <> ' ') then

        monta                         := monta + copy(str,i,1);

      //Variavel recebe o espaço e verifica de ele apareceu mais de uma vez  

      if (copy(str,i,1) = ' ') then

        begin

          if contador = 1 then

            begin

              monta                   := monta + copy(str,i,1);

            end;

        end;

    end;

    result                            := monta;

end;