| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

подскажите как удалить в тексте управляющие символы? [D7, Win2k]

Dysan ©   (2005-08-15 17:25:00) 

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

---

Fay   (2005-08-15 19:22:00) [1]

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;

---

Dysan   (2005-08-15 18:08:00) [2]

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

---

Lamer@fools.ua   (2005-08-15 17:57:00) [3]

Trim()

---

troits   (2005-08-15 17:56:00) [4]

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

---

tesseract   (2005-08-15 17:41:00) [5]

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

---

Dysan   (2005-08-15 17:37:00) [6]

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

---

Fay   (2005-08-15 17:28:00) [7]

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

---

han_malign   (2005-08-15 17:28:00) [8]

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

---

Наверх