separando palavras de uma frase quando encontrar um espaço

Delphi

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

Marcelo_ari

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

19/09/2004

Colega,

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


GOSTEI 0
S

S

19/09/2004

var linha:string;
For x:=0 to  memo1.lines.count-1 do
begin
  linha:=memo1.lines[x];
  for y:=0 to length(linha) do
    begin
      if linha[y]=´´ 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!!!


GOSTEI 0
Marcelo_ari

Marcelo_ari

19/09/2004

muito obrigado pela ajuda!


GOSTEI 0
POSTAR