Convertir una cadena de palabras separadas por # en array

[[seoane]]

Solo una aclaración no es delimitertext es delimitedtext

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

[*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

[[seoane]]

Empezado por Caro

En ese caso entonces podríamos utilizar la función ExtractStrings

No la conocía, parece que delphi tiene funciones para todo

[[coso]]

hola,
lo mismo sin usar objetos...

Código Delphi [-]
var
        s : array of string;
        txt : string;
        i,j : integer;
begin
        txt := 'uno#dos#tres#cuatro';
        setlength(s,1);

        i := 1;
        j := 0;
        while i < length(txt) + 1 do
        begin
                if txt[i] = '#' then
                begin
                        setlength(s,length(s) + 1);
                        inc(j);
                end
                else
                s[j] := s[j] + txt[i];

                inc(i);
        end;

        for i := 0 to length(s) - 1 do showmessage(s[i]);
        setlength(s,0);
end;

[tcp_ip_es]

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

es que no puede ser que en el foro no se pueda compilar sería muy útil

[[coso]]

¿un compilador en linea? pues seria interesante, si...

[tcp_ip_es]

bueno entre Roman, caro, al gonzalez, marcos, dec, Neftali, tu mismo.....y un larguisimo etc ya sois el mejor compilador en linea que puedo tener