Go to English page

ViaThinkSoft CodeLib

Dieser Artikel befindet sich in der Kategorie:
CodeLibProgrammierhilfenDelphi

function BinaryStringToHexDump(ABinaryString: string): string;
var
  i: integer;
begin
  for i := 1 to Length(ABinaryString) do
  begin
    result := result + IntToHex(Ord(ABinaryString[i]), 2);
    if i <> Length(ABinaryString) then
      result := result + ' ';
  end;
end;
Daniel Marschall
ViaThinkSoft Mitbegründer

Lob? Kritik? Probleme? Schreiben Sie uns!

Ihr Name (optional):

E-Mail-Adresse (optional):

Nachricht: