Wie wäre es denn mit einer modifizierten Darstellung?
etwa so:
Delphi-Quellcode:
AusString:='';
for i:=0 to mIndex do
if BSTBbarray[i]<32 then AusString:=Ausstring+'.'
else begin
if BSTBarray[i]<128 then AusString:=Ausstring+char(BSTBarray[i])
else AusString:=Ausstring+'.';
end;
Man kann das Ersetzen natürlich auch auf die "bösen" Zeichen beschränken (#0,#9,#10,#13.....)
Gruß
K-H