问个超级简单的问题，50分等着你

Question

Delphi中
我有用数组存放的整数，每个数组元素为byte形式我要把它存成一个记录文件：
格式是：每行存放16个十六进制字符。
比方：
1 1 2 4 6 6 1 1 2 4 6 6 1 1 2 16
存成如下形式：
01 01 02 04 06 06 01 01 02 04 06 06 01 01 02 0F  存放在一行
在线等待，谢谢！！

Answer 1

inttohex(i,2)是将byte转换成两位表示的16进制数的函数。返回值是string。
这回可以解决你的问题了，因为写文件太简单了。
用个循环，利用这个函数就可以把他们转换到一个string数组中，剩下的就是把这个数租写入你的文本文件了。

Answer 2

补充一句，inttohex(i,2)中，i代表byte类型的数

Answer 3

Row:=Size div 16;
    AssignFile(TFil,SaveDialog.FileName);
    Rewrite(TFil);
    //Seek(TF,0);
//////////////////////////////////////////
    for i:=0 to Size-1 do
    begin
      if YZ[i]<> 0 then
      begin
        GB[i]:=YZ[i];
      end;
    end;
 /////////////////////////////////////////
    i:=0;
    for j:=0 to Row do
    begin
      Write(TFil,GB[i+0],GB[i+1],GB[i+2],GB[i+3],
                 GB[i+4],GB[i+5],GB[i+6],GB[i+7],
                 GB[i+8],GB[i+9],GB[i+10],GB[i+11],
                 GB[i+12],GB[i+13],GB[i+14],GB[i+15]);
      i:=i+16;
    end;