Convertir una cadena de palabras separadas por # en array

[*Caro*]

Empezado por seoane

Solo una aclaración no es delimitertext es delimitedtext

Yo me he copiado directamente lo que tenía el amigo tcp , la verdad no me he dado cuenta de ese detallito.

Empezado por seoane

PD: Si el texto contiene espacios o tabulaciones el TStringList no funcionara, al menos en algunas versiones de delphi que no tienen la propiedad StrictDelimiter

En ese caso entonces podríamos utilizar la función ExtractStrings y le indicamos que ignore el espacio y el tabulador en el parseo de la cadena.

Código Delphi [-]
var
 cadena : String;
 i : Integer;
 sl : TStringList;
begin
 sl := TStringList.Create;
 ExtractStrings(['#'], [#32,#9], PCHAR(cadena), sl);
 for i:=0 to sl.Count-1 do
  showmessage(sl[i]);

Saluditos