Criando array com base nas palavras de um texto

Question

Turma  to precisando quebrar um texto em um array.Tipo.. os espa�os em branco seriam os dlimitadores dos itens do array.. Como fa�o isso??...

Marco Salles · Answer

Segue uma id�ia com TStringList , veja se � isto que eu entendi ????

procedure TForm1.Button1Click(Sender: TObject);
var
lista:TstringList;
texto:String;
i:integer;
begin
 lista:=TstringList.Create;
 i:=-1;
 texto:=Edit1.Text;
 I:=pos(�.�,Texto);
 while i > 0 do
   begin
    Lista.Add(copy(texto,0,i-1));
    texto:=copy(texto,i+1,length(edit1.text));
    i:=pos(�.�,texto);
   end;
 Memo1.Lines.Text:=Lista.Text;
 Lista.Free;
end;

J�der Medeiros · Answer

Se voc� utilizar o TStringList, tenho um exemplo melhor:

Function Lista(pTexto: String): TStringList;
begin
Result  := TStringList.Create;
Result.Delimiter  := � �;
Result.QuoteChar  := #0;
Result.DelimitedText := pTexto
end;

Se n�o, e tiver dificuldade de montar um array of String, me posta que eu monto um exemplo que retorna exatamente o que pediu.

Night_man · Answer

opa descobri esse funcao essa semana, ela esta na unit classes

ExtractStrings([�\�], [� �], PChar(Texto), Partes);

1� parametro) o separador, � � no teu caso
2� parametro) o retirar do inicio do texto, os caracteres que serao truncados
3� parametro) a string a ser quebraba
4�) parametro) um TStrings onde sera jogado o resultado
o resulta da funcao eh quantos items ele achou

F�rum Criando array com base nas palavras de um texto #326160