Leitura Caracter por Caracter

Question

Ol� Pessoal...Bom tenho um memo que tem um texto qualquer dentro dele ... preciso fazer uma fun��o que leia esse texto caracter por caracter separando as palavras quando tiver um espa�o em branco por ...

Lucas Silva · Answer

fiz este exemplo com edit... se n�o resolver me da o toque.

procedure TForm1.Button1Click(Sender: TObject);
var i, y: Integer;
begin
   y:= 1;
   for i := 0 to Length(Edit1.Text) do
    if Edit1.Text[i] =  � � then
      inc(Y);

   ShowMessage(�No Edit tem �+IntToStr(y)+� palavras�);
end;

Marcelo Saviski · Answer

Se for apenas para separar palavra por palavra, voc� pode fazer assim:

Memo.Lines.Delimiter := � �;
Memo.Lines.CommaText := �"�;
Memo.Lines.DelimitedText := Memo.Text;

Isso deve colocar cada palavra (que esta separada por um espa�o) em uma linha do memo,
palavras entre aspas(m,esmo que com espa�os) deveriam ser tratadas como apenas uma palavra

F�rum Leitura Caracter por Caracter #238265