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

подскажите как удалить в тексте управляющие символы?   Найти похожие ветки 

← →
Dysan ©   (2005-08-15 17:25) [0]

Есть тект. Если при дебаге смотреть то в начале текста есть такие управляющие символы #$D#$A#$D#$A... и т.д. это вероятно перевод каретки и т.п.
как их удалить?

---

← →
Fay ©   (2005-08-15 17:28) [1]

2 Dysan ©   (15.08.05 17:25)
>> как их удалить?
"при дебаге" ?

---

← →
han_malign ©   (2005-08-15 17:28) [2]

i:=1; while((i <= length(str))and(str[i] < " "))do inc(i);
if(i>1)then Delete(str,1,i-1);

---

← →
Dysan ©   (2005-08-15 17:37) [3]

про Delete(str,1,i-1); это понятно
я имею ввиду как мне обнаружить эти управляющие символы и как их писать в делфи? я пробовал писать их как #13#10 по принципу что это коды ввода и перевода коретки но они не находяться в тексте! :(

---

← →
tesseract ©   (2005-08-15 17:41) [4]

Все символы с кодом <32 ($20) - управляющие. иными словами Ord(str[i])<32;

---

← →
troits ©   (2005-08-15 17:56) [5]

Как не находятся? Вот, например, вот этот вызов вернёт 5
Pos(#13#10, "ssss" + #13#10 + "qqqqq");

---

← →
Lamer@fools.ua ©   (2005-08-15 17:57) [6]

Trim()

---

← →
Dysan ©   (2005-08-15 18:08) [7]

ок
поразбираюсь!

---

← →
Fay ©   (2005-08-15 19:22) [8]

var
 i, n : Integer;
 str : string;
begin
 str := "0"#13"1"#13"2"#13"34"#13"567"#13"8"#13"9";
 i := 0;
 n := 0;
 while i < Length(str) do
   begin
     Inc(i);
     if str[i] >= #20 then
       begin
         Inc(n);
         str[n] := str[i];
       end;
   end;
   SetLength(str, n);
   ShowMessage(str);
end;

---

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

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



Память: 0.46 MB
Время: 0.026 c