58问答库 > delphi怎样用TMemoryStream将文件以十六进制方式写入byte数组和写出？

delphi怎样用TMemoryStream将文件以十六进制方式写入byte数组和写出？

2025-05-17 17:31:03

推荐回答（1个）

回答（1）：

var
  Mem: TMemoryStream;
  buf:array[0..3285] of Byte; // 下界为0所以减1
begin
  Mem := TMemoryStream.Create;
  Mem.LoadFromFile('abc.dat');
  // 读入处理
  FillChar(buf, SizeOf(buf), 0);
  Mem.Position := 0;
  Mem.Read(buf, SizeOf(buf));
  // 写入
  Mem.Clear;
  Mem.Position := 0;
  Mem.Write(buf, SizeOf(buf));
  Mem.SaveToFile('abc.dat');
  Mem.free;
end;

我放到一起了，大概这样，你应该一看就会是白的