Leitura Caracter por Caracter

Delphi

17/06/2004

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 exemplo....

se alguem tiver alguma rotina assim agradeço a ajuda

e-mail
p_kamionero@hotmail.com


Kamionero

Kamionero

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

17/06/2004

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;



GOSTEI 0
Marcelo Saviski

Marcelo Saviski

17/06/2004

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


GOSTEI 0
POSTAR