Скачать: CL | DM;

Как убрать символы #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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c