Работа с TStringList

[-Jack-]

Всем доброго времени суток. Есть некий список из строчек (TStringList).

При заполнении это списка используется разделитель - символ '$'. Но я обратил внимание, что если в строчке есть пробел, то автоматически строчка делится на 2.

Можно ли этого как-то избежать ?

[grominfo]

var
st:tstrings;
begin
st:=tstringlist.create;
st.add('Ехал Грека через реку');
st.add('Видит Грека в реке рак');
st.add('Сунул Грека руку в реку');
st.add('Рак за руку Греку цап');
showmessage(inttostr(st.count));
st.free;
end;

В результате получим 4 строки

[-Jack-]

Мой пример:

     S := TStringList.Create;
     S.Delimiter := '$';
     S.DelimitedText := MyString;

[Аватар]

Строки с пробелами должны быть обрамлены символом, заданным в QuoteChar. По умолчанию кажись ". Зачем так сделали не понятно

[phomm]

У стринглиста это болезнь. Как уже указал Аватар из-за QuoteChar. Лечится примерно так:

// space symbol treated as delimiter in TStringList
// use '/' as space-replacer or use any other not existent char in text
sl.DelimitedText := StringReplace(InputString, ' ', '/', [rfReplaceAll]); 
sl.Text := StringReplace(sl.Text, '/', ' ', [rfReplaceAll]);

[Vapaamies]

На самом деле этому QuoteChar нужно присвоить #0, и все должно быть пучком.

[-Jack-]

Всем большое спасибо, воспользовался кодом от phomm'а