Adicionar espaço entre palavras

[rodrigues1654]

Bem, eu já pedi ajuda aki uma vez, e me ajudaram super rapido :rolleyes:

To precisando de uma ajuda denovo.

É +/- assim, eu tenho um texto num Memo, nele tem palavras maiúsculas e minúsculas, eu queria saber se tem como eu mudar todas as letras para minúsculas. E tambem queria que quando apertar o botão, adiciona-se um espaço entre todas as letras.

Ex: Antes: " asDs daSdds dsadsaW"

Depois: " a s d s d a s d d s d s a d s a w"

[Douglas Soares]

Coloca isso no OnClick do botão:

procedure Tform1.Button1Click(Sender: TObject);
var i, c : integer;
S : string;
begin
S := LowerCase(Memo1.Text);
while Pos(#32, S) > 0 do
  delete(s,Pos(#32, S),1);

c := length(s);

for i := 1 to c-1 do
  Insert(#32,s,i*2);

Memo1.Text := S;
end;

Abraços