Delphi 将16进制文本写进文件

最新推荐文章于 2019-01-31 16:50:42 发布

原创最新推荐文章于 2019-01-31 16:50:42 发布 · 897 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #string #byte #file #div

本文提供了一个使用Delphi编写的简单示例程序，演示如何将十六进制字符串转换为字节数组，并将其写入到指定文件中。该程序首先定义了一个包含十六进制字符的字符串，接着通过循环将每个字符转换成对应的字节值，最后利用`CreateFile`和`WriteFile`函数打开并写入到文件中。

procedure TForm1.Button1Click(Sender: TObject); var i,i2:Integer ; data:array of byte; s:string; hfile:THandle; byteswrite:dWord; begin s:='486F6D65B9E6B8F1A3BA'; i2:=Length(s) div 2; SetLength(data,i2); for i:=0 to Length(data)-1 do begin data[i]:=StrToInt('$'+copy(s,i*2+1,2)); Edit1.Text :=Edit1.Text + inttohex(data[i],2); end; hFile := CreateFile('xxx.txt',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ,nil,CREATE_ALWAYS,0,0); if hFile = INVALID_HANDLE_VALUE then Exit; WriteFile(hFile,data[0],Length(data),BytesWrite,nil); CloseHandle(hFile); end;