Procedimientos para separar cadenas

[[seoane]]

Empezado por roman

2. No funciona bien si las partes tienen espacios:

Hola,soy pepe perez perea

Lo toma como si fuesen cinco partes.

Trasteando como mi Turbo he visto que el objeto TStrings cuenta con la propiedad StrictDelimiter. Cuando esta propiedad esta a TRUE solo se tiene en cuenta el carácter delimitador, ignorando los espacios y demás. Ignoro si existe en versiones anteriores de delphi, en la 7 no la tenia. Parece que los de Borland recapacitaron y acabaron con la sin razón de meter siempre en el mismo saco el carácter delimitador y cualquier otro entre el #1 y el #32.

Código Delphi [-]
var
  i: integer;
begin
  with TStringList.Create do
  try
    Delimiter:= ',';
    // Aqui esta 
    StrictDelimiter:= TRUE;
    DelimitedText:= 'Hola,soy pepe perez perea';
    for i:= 0 to Count - 1 do
    begin
      ShowMessage(Strings[i]);
    end;
  finally
    Free;
  end;
end;

[roman]

¡Ah! Pues hasta que se les prendió el foco

Ahora que, eso sí, nada como el amigable php:

Código PHP:

<?
$lista = explode(",", 'hola, soy pepe perez perea, tengo pereza, por eso uso php');
?>
<pre>
<?
print_r($lista);
?>
</pre>

Salida:

Array
(
    [0] => hola
    [1] =>  soy pepe perez perea
    [2] =>  tengo pereza
    [3] =>  por eso uso php
)

// Saludos

[ixMike]

!!!!vaya qué despiste!!!

Pues ahora mismo no lo llevo encima (no tengo internet en casa). Quizás mañana a esta hora...

Muchas gracias a todos, por las sugerencias y códigos.

Edito: En mi código no busco una cadena dentro de otra (buscar una SubString en una String), sino que en una string busco la parte 2, o 3, ó 4, ó 1000. Sería algo así:

Código Delphi [-]

s:=ObtienePalabra(';','Uno;dos;tres',2);
//s ahora vale "dos"

Para saber cuántas palabras hay (las palabras pueden ser nulas, como "uno;dos;;cuatro") simplemente cuento cúantos separadores hay (en el ejemplo, ";")