Strings.DelimitedText разбитие

[edik]

Вопрос следующий есть список файлов записанный в строке когда его пытаюсь разбить по спец символу он также разделяет по пробелу. Возможно ли разбить с Strings.DelimitedText или же только воспользоваться другими средствами. Код следующ-ий

  Assert(Assigned(Strings));
  Strings.Clear;
  Strings.Delimiter := #153;
  Strings.DelimitedText := Input;

[Пепел Феникса]

хотелось бы увидеть пример вашей строки, и итог.

[edik]

например файл: инструкция по эксплуотации.pdf#153лучший справочник.doc он разобьет,
инструкция
по
эксплуотации.pdf
лучший
справочник.do

не понимаю почему

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Delimiter:=#153;
 Memo1.Lines.DelimitedText:='"инструкция по эксплуотации.pdf"'#153'лучший справочник.doc';
end;

видимо там кавычки еще требует(точнее то что стоит в QuoteChar), что каждая строчка разделена была так...

[edik]

да нет это не помогает

[Kotofff]

Можно взять модуль QStrings (прикрепил), подключить его в секции uses и использовать громадную кучу функций работы со строками (они описаны в самом модуле), например, в твоем случае

function Q_CountOfWords(const S, Delimiters: string): Integer; // выяснение количества слов строке
function Q_GetWordN(OrdN: Integer; const S, Delimiters: string): string; // взять нужное слово со строки

здесь второй параметр в твоем случае будет #153 т.е. разделитель слов:

[evg_m]

Memo1.Lines.DelimitedText:=....

проверь свойство Tmemo. WordWrap (поставь FALSE)
или увеличь ширину, чтобы строка лучший справочеик.doc влезала полностью и не просила переноса(WordWrap)

[edik]

благодарю всех за участие. Проблему решил.