读十六进制文本到 Btye 数组的函数

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{把十六进制文本载入一个 Byte 数组的函数}

procedure HexToArr(const FileName: string; var arr: TBytes);

var

str: string;

count: Integer;

i: Integer;

begin

if not FileExists(FileName) then Exit;

with TStringList.Create do begin

LoadFromFile(FileName);

str := Text;

Free;

end;

str := StringReplace(str, ' ', '', [rfReplaceAll]); {清除空格}

count := Length(str);

SetLength(arr, (count-1) div 2);

for i := 0 to count - 2 do if Odd(i) then

arr[i div 2] := StrToIntDef('$' + str[i] + str[i+1], 1);

end;

{测试}

procedure TForm1.Button1Click(Sender: TObject);

const

HexTxtFile = 'c:\temp\Hex.txt'; {一定要是十六进制的文本格式, 由 0-F 十六个字符组成的}

var

MyArr: TBytes;

str: string;

i: Integer;

begin

{调用函数}

HexToArr(HexTxtFile, MyArr);

{在 Memo 中看看, 落实下}

str := '';

for i := 0 to Length(MyArr) - 1 do

str := str + Format('%.2x ', [MyArr[i]]);

Memo1.Text := TrimRight(str);

end;

end.


 
   

窗体文件:

---

object Form1: TForm1

Left = 0

Top = 0

Caption = 'Form1'

ClientHeight = 136

ClientWidth = 317

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Tahoma'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object Button1: TButton

Left = 234

Top = 103

Width = 75

Height = 25

Caption = 'Button1'

TabOrder = 0

OnClick = Button1Click

end

object Memo1: TMemo

Left = 0

Top = 0

Width = 317

Height = 97

Align = alTop

Lines.Strings = (

'Memo1')

ScrollBars = ssBoth

TabOrder = 1

end

end

 

 

[Error] Unit1.pas(24): Undeclared identifier: 'TBytes'

type TBytes = array of Byte;