请教。。。(急)

Question

buffer:array[1..18]of byte
从一文件中读出18个字节，现在要以16进制的方式把18个字节显示出来，请问编写，谢谢!!!!

Answer 1

var
  buffer: array[0..17] of byte;
  I: Integer;
  R: PChar;
begin
  for I := Low(buffer) to High(buffer) do
    buffer[I] := I;
  GetMem(R, 2*Length(buffer)+1);
  BinToHex(PChar(@buffer), R, Length(buffer));
  SHowMessage(R);
  FreeMem(R);
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————