Como eliminar espa�os em branco em um memo

Question

Pessoal,

Preciso eliminar espa�os em branco em uma determinada linha de um memo, algu�m sabe como posso fazer isso ?

Valeu

Weber · Answer

N�o sei se funciona mas tenta fazer assim:Memo1.Text := Trim(Memo1.text)...

Rapfreire · Answer

N�o deu muito certo, mas eu consegui apagar os espa�os em branco usando o c�digo, sendo que � #3232, pq ele considera como 1 espa�o s�.

Var
  Posicao: Integer;
begin
    Linha := ansiuppercase(memo1.Lines[x]);
    Repeat
      Posicao:=Pos(3232,Linha);
      If Posicao > 0 then
       Begin
        Delete(Linha,Posicao,Length(Enc));
        memo1.Lines[x]:=Linha;
       end;
    until Posicao = 0;
end;

Mas Valeu assim mesmo !

Beppe · Answer

Neste seu c�digo, alinha que tem memo1.Lines[x]:=Linha; n�o � necess�ria.

Uma alternativa seria:

memo1.Lines[x] := StringReplace(memo1.Lines[x], #32, ��, [rfReplaceAll]);

N�o estou com o Delphi aberto no momento, mas creio que esta chamada est� correta.

Rapfreire · Answer

� verdade, n�o � necess�rio mesmo... vou checar a sua chamada.Valeu !...

Beppe · Answer

[quote:b342a5364d=�rapfreire�]� verdade, n�o � necess�rio mesmo... vou checar a sua chamada.Valeu ![/quote:b342a5364d]Na verdade, precisa s� depois do loop......