[Страдалецъ]

Имеем вот такой код:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  Classes, SysUtils;

Var
  Lst: TStringList;
  Example: String;
begin
 Example := '\\root\subdir 1\subdir 1 1\subdir 1 1 1\filename.ext';
 Lst := TStringList.Create;
 // Вариант1
 Lst.Delimiter := '\';
 Lst.DelimitedText := Example;
 WriteLn(Lst.Strings[Lst.Count - 2]);
 // Вариант2
 Lst.Text := StringReplace(Example,'\',#13,[rfReplaceAll]);
 WriteLn(Lst.Strings[Lst.Count - 2]);
 ReadLn;
 Lst.Free;
end.

Вопрос. Почему разный результат?

[YVitaliy]

Пробелы не учитывает кажись

Код:

while (P^ > ' ') and (P^ <> Delimiter) do
        {$IFDEF MSWINDOWS}
          P := CharNext(P);
        {$ELSE}
          Inc(P);
        {$ENDIF}
        SetString(S, P1, P - P1);
      end;
      Add(S);

Из модуля Classes.

[Страдалецъ]

Я в общем-то что-то подобное предполагал, но ведь это явный баг. Неужели никто не заметил до сих пор? Надо в XE проверить.

[YVitaliy]

И там то же самое

Код:

while ((not FStrictDelimiter and (P^ > ' ')) or
              (FStrictDelimiter and (P^ <> #0))) and (P^ <> Delimiter) do
        {$IFDEF MSWINDOWS}
          P := CharNext(P);
        {$ELSE}
          Inc(P);
        {$ENDIF}
        SetString(S, P1, P - P1);
      end;
      Add(S);

Значит, так нужно

[Страдалецъ]

Вот кто-бы мне объяснил почему пробелы-то обязательно использовать как разделитель при пользовательском Delimited? Как-то не врублюсь в логику этого навязчивого сервиса.

[angvelem]

Наверное потому, что однажды созданное, переделывать не хочется.

[ryderx34]

Сообщение от YVitaliy

И там то же самое

Там есть свойство StrictDelimiter.

Код:

Lst.StrictDelimiter := True;

и пробелы не будут считаться разделителями.

[Klyaksa]

Все таки тут видать зависит версии Delphi. Хоть у меня и стоит 7-ка, но свойства StrictDelimiter у меня нет.

[ryderx34]

Оно, вроде бы, в Delphi 2006 впервые появилось.