Gehe zu deutscher Webseite

ViaThinkSoft CodeLib

This article is in:
CodeLibProgramming aidsDelphi

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 Co-Founder