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

← →
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");

Trim()

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

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;

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