Delphi 二进制值转换十六进制 BinToHex和HexToBin

本文整理自网络，侵删。

 
//本示例的目的是说明Classes单元中的BinToHex和HexToBin方法。此代码会将二进制值转换为其十六进制表示形式并返回。
procedure Tfrm1.btnToStringClick(Sender: TObject);
var
  LStr1, LStr2: WideString;

begin
  { Store the text in the memo to a String variable. }
  LStr1 := Memo2.Lines.Text;
  { Set the length of the String to hold the conversion. }
  SetLength(LStr2, Length(LStr1) div 4);
  { Call the hexadecimal to binary conversion procedure. }
  HexToBin(PWideChar(LStr1), LStr2[1], Length(LStr1) div SizeOf(Char));
  { Output the results to Memo1. }
  Memo1.Lines.Text := LStr2;
end;

procedure Tfrm1.btToHexClick(Sender: TObject);
var
  LStr1, LStr2: String;

  begin
  { Store the text in the memo to a String variable. }
  LStr1 := Memo1.Lines.Text;
  { Set the length of the String to hold the conversion. }
  SetLength(LStr2, Length(LStr1) * 4);
  { Call the binary to hexadecimal conversion procedure. }
  BinToHex(LStr1[1], PWideChar(LStr2), Length(LStr1) * SizeOf(Char));
  { Put the results in Memo2. }
  Memo2.Lines.Text := LStr2;
end;
 

相关阅读 >>

Delphi tfilestream和tmemorystream分别读取、创建、合并文件

Delphi判断字符串是否是数字、字母、大小写字母

Delphi firedac数据库引擎连接mysql

Delphi将文件的内容读取为字符串

Delphi shellexecute最简单的结束进程代码

Delphi 实现关闭指定进程，自身防杀

Delphi 获取动态创建的image与scrollbox的相对位置

Delphi xe 移动平台 showmodal 范例

Delphi中的record怎么动态分配内存？

Delphi之木马生成原理（资源文件，和文件流的应用）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 二进制值转换十六进制 BinToHex和HexToBin