Criando array com base nas palavras de um texto

Delphi

26/07/2006

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??


Zenner

Zenner

Curtidas 0

Respostas

Marco Salles

Marco Salles

26/07/2006

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;



GOSTEI 0
Jáder Medeiros

Jáder Medeiros

26/07/2006

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.


GOSTEI 0
Night_man

Night_man

26/07/2006

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


GOSTEI 0
POSTAR