[Neftali [Germán.Estévez]]

Empezado por bustio

...Utilice esta variante pero no me hace el efecto deseado. Si alguien tiene alguna otra variante mas efectiva, agradezco la ayuda.

Exactamente a qué te refieres con que "No te hace el efecto deseado"; Ëste código funciona perfectamente (o al menos a mi si); Si a tí no te sirve comeéntanos porqué no te funciona; Lo he utilizado de la siguiente forma:

Código Delphi [-]
 
// Colocando en un Form un MEMO (con el texto) y un LISTBOX 
// para el resultado (palabras).
 
var
  TS:TStringList;
  Str:String;
...
 
  // Eliminamos los posibles "saltos de carro"
  Str := AnsiReplaceStr(Memo1.Lines.Text, #13#10, ' ');
  // Los TOKENS van a parar a TS
  TS := GetTokens(Str, [' ']);
  // Limpiamos el ListBox
  ListBox1.Items.Clear;
  // Añadimos los tokens
  ListBox1.Items.AddStrings(TS);

...