Как убрать символы #13#10

← →
Hermes (2004-08-16 17:33) [0]

Можно ли как-нибудь поменять символ переноса каретки на другой символ в классе TStringList (TStrings точнее).
т.е. что бы было
List := TStringList.Create; List.Clear; List.Add(" data_cleaning.encode_plans_units "); List.Add(" data_cleaning.encode_plans_materials "); List.Add(" data_cleaning.encode_plans_dep_sections "); List.Add(" data_cleaning.encode_plans_objects "); List.Add(" data_cleaning.encode_plans_projects "); str := List.Text; // Хотелось бы видеть строку . не содержащую CRFL
Можно было бы так Trim(str); Но так остаются внутрениие символы а те что с края(последний) убираются!
Есть ли какое-нибудь решение?

← →
Ega23 © (2004-08-16 17:38) [1]

List.Add(" data_cleaning.encode_plans_units "+ " data_cleaning.encode_plans_materials "+ " data_cleaning.encode_plans_dep_sections "+ " data_cleaning.encode_plans_objects "+ " data_cleaning.encode_plans_projects ");
?

← →
Mim1 © (2004-08-16 17:42) [2]

List.text := StringReplace(List.text,#13#10,#32,[rfReplaceAll])

← →
Hermes (2004-08-16 17:44) [3]

Все решилость вункцией
StringReplace

← →
s999 (2004-08-16 17:51) [4]

Можно также:

List.Delimiter := " ";
List.QuoteChar := "";

str := List.DelimitedText;

Как убрать символы #13#10 Найти похожие ветки