大家看看，在线等待。

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  iFileHandle: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    try
      iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
      FileSeek(iFileHandle,128,0);
      Buffer := PChar(AllocMem(128 + 1));
      iBytesRead := FileRead(iFileHandle, Buffer, 128);
      FileClose(iFileHandle);
    finally
      FreeMem(Buffer);
    end;
  end;
end;end.怎么读取buffer中的数据。

Answer 1

buffer[0]..buffer[128] 或直接buffer^.eg.
   
   memo1.lines.add(inttohex(ord(buffer[0]),2));
   memo1.lines.add(buffer^);///////