Delphi: StringList Delimiter es siempre un carácter de espacio incluso si Delimiter está configurado

Question

Tengo problemas con el delimitador de la clase TStringList. Echar un vistazo:

var 
    s: string; 
    sl: TStringList; 

begin 
    sl := TStringList.Create; 
    s := 'Users^foo bar^bar foo^foobar^barfoo'; 
    sl.Delimiter := '^'; 
    sl.DelimitedText := s; 
    ShowMessage(sl[1]); 
end; 

sl[1] debe devolver 'foo bar'

sl[1] Función RETURN 'foo'

Parece que el delimitador es ahora '^' Y ' '

¿Alguna idea?

Answer 1

Debe establecer s1.StrictDelimiter := True para que los espacios no se consideren delimitadores, más información here.

ya que se trabaja en una versión que no es compatible con lo anterior (como se aclaró después de la presentación de la respuesta), tiene dos opciones:

1. encontrar a un personaje que sabe que no va a ser utilizado en el original texto (por ejemplo, subrayado), convierta todos los espacios a ese carácter antes de dividir y convierta de nuevo después de la división. Esta es la sugerencia de robosoft.
2. Si usted no ha invertido comas y espacios en el texto, puede utilizar truco Alexander 's y envolver el texto entre delimitadores al mando invertida, de manera que se vuelve a 'hello hello^bye bye''"hello hello"^"bye bye"'. Si elige esta ruta y le conviene, acepte la respuesta de Alexander y no la mía, también proporciona el código para implementarla.

Ambas soluciones alternativas que no usan StrictDelimiter tienen limitaciones: la primera requiere un poco de carácter inusitado, y el segundo no requiere comas y espacios invertida en el texto original.

quizás es el momento para actualizar a una nueva versión de Delphi :)

Answer 2

sl.DelimitedText := '"' + StringReplace(S, sl.Delimiter, '"' + sl.Delimiter + '"', [rfReplaceAll]) + '"'; 

Answer 3

Ryan tiene un excelente proveedor de solución a este problema usando ExtractStrings (función) en Delphi. Ver:

Parsing a string using a delimiter to a TStringList, seems to also parse on spaces (Delphi)

Así, en su caso, sustituir las llamadas a sl.Delimiter y sl.DelimitedText con la línea de abajo: ExtractStrings ([ '^'], [], PChar (S), sl);

Answer 4

sl.Text := StringReplace(S, sl.Delimiter, sLineBreak, [rfReplaceAll]); 

Answer 5

Obra en Delphi 7 "like gloves" para mí. Esta es mi función después de aplicar el truco de Alexander:

procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings) ; 
begin 
    Assert(Assigned(Strings)) ; 
    Strings.Clear; 
    Strings.Delimiter := Delimiter; 
    Strings.DelimitedText := '"' + StringReplace(Input, Delimiter, '"' + Delimiter + '"', [rfReplaceAll]) + '"' ; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Edit1.Text := 'Users^foo bar^bar foo^foobar^barfoo'; 
    Split('^',Edit1.Text,Memo1.Lines); 
end; 

¡Muchas gracias!