Thema: Delphi Hex[aus Bytes] To Ascii

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#3

Re: Hex[aus Bytes] To Ascii

  Alt 27. Apr 2006, 18:54
Es gibt druckbare/anzeigbare Zeichen und nicht anzeigbare Zeichen.
Durch brauchst einfache eine Funktion, die ungefähr so aussieht:
Delphi-Quellcode:
function VisibleString(const src:string);
var
 i : integer;
begin
   SetLength(result, Length(src));
   for i := 1 to Length(src) do
   begin
      case src[i] of
      #0..#31: // nicht druckbar
         result[i] := '.'; // das Ersatzzeichen
      else
         result[i] := src[i];
      end;
   end;
end;
Du wird natürlich nicht anfangen, den Hexstring wieder zurückzuverwandeln, sondern
nimmst als Parameter src die orginalen Daten.

Die absolut beste Lösung ist aber ein Font, der alle Zeichen anzeigen kann.
Es gibt Fonts, die zeigen z.B. das Tabulatorzeichen als "TB" an.
Das "TB" sieht aber so aus, dass das T hochgestellt und das B tiefgestellt ist.
Sollte es dir gelingen so einen Zeichensatz im Internet zu finden oder du baust ihn selbst,
dann wäre ich daran stark interessiert.
Andreas
  Mit Zitat antworten Zitat