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;
我放到一起了，大概这样，你应该一看就会是白的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024