separando palavras de uma frase quando encontrar um espaço

19/09/2004

Boa tarde! sou novato aqui! gostaria de saber como faço para separar palavras de uma frase quando encontrar um espaço, utilizando o memo.
Por exemplo: carrego no memo1 um arquivo texto qualquer. Já no memo2 quero receber em cada linha as palavras que foram separadas.


Marcelo_ari

Respostas

19/09/2004

Aroldo Zanela

Colega,

É isso que procura: http://delphiforum.icft.com.br/forum/viewtopic.php?t=43243


Responder Citar

20/09/2004

S

var linha:string;
For x:=0 to  memo1.lines.count-1 do
begin
  linha:=memo1.lines[x&93;;
  for y:=0 to length(linha) do
    begin
      if linha&91;y&93;=´´ then
        begin
          memo2.lines.add(copy(linha,1,y));
        end;
    end;
end;


Acho que é isso, não me lembro direito se copy é assim, mas acho que é isso.

Valeu!!!


Responder Citar

22/09/2004

Marcelo_ari

muito obrigado pela ajuda!


Responder Citar