Hex[aus Bytes] To Ascii

[Klaus01]

Delphi-Quellcode:

function VisibleString(const src:string): string;
var
i : integer;
begin
   SetLength(result, Length(src));
   for i := 1 to Length(src) do
   begin
      case ord(src[i]) of
      0..31: result[i] := '.';   // das Ersatzzeichen
      else
         result[i] := src[i];
      end;
   end;
end;

vielleicht so?

Grüße
Klaus