разбить содержимое StringList на строки

← →
lehich © (2005-05-18 17:30) [0]

помещаю в StringList сплошной текст... в тексте присутствуют комментарии начинающиеся со знака "<" как сделать чтобы каждый такой коментарий шёл с новой строки?

Заранее премного благодарен!

← →
Yanis © (2005-05-18 17:37) [1]

var l: TStringList; begin L.Text := StringReplace(L.Text, "<", #13#10"<", [rfReplaceAll]); end;

← →
BFG9k © (2005-05-18 17:58) [2]

Извращение.

L.Delimiter:="<"; L.DelimitedText:=Your_text; for i:=0 to L.Count-1 do ...L[i]...//ваши действия

← →
lehich © (2005-05-19 10:15) [3]

спасибо! сразу побочный вопрос, необходимо чтобы "<" переносилось на новую строку, но если после идет слэш, т.е. "</" чтобы оставалось как было... использую пару строк:

StringReplace(L.Text, "<", #13#10"<", [rfReplaceAll]);
StringReplace(L.Text, #13#10"</", "</", [rfReplaceAll]);

есть что-то более компактное или рациональное???

Заранее спасибо!

← →
evvcom © (2005-05-19 10:27) [4]

> что-то более компактное или рациональное

Например, написать свой StringReplace или, находя конец строки, добавлять в StringList строки по очереди.

← →
BFG9k © (2005-05-19 12:23) [5]

< и </ ... похоже на HTML теги.

BFG9k © (18.05.05 17:58) [2]
Проверь, что получишь в результате выполения таких действий:

tL := TStringList.Create; tL.Delimiter := "<"; tL.DelimitedText := "Text=Проверка присвоения строки с пробелами<Text1=Проверка присвоения строки с пробелами"; ShowMessage(tL.Values["Text"]); tL.Free;

разбить содержимое StringList на строки Найти похожие ветки