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;