Question

Delphi 利用TmemoryStream写入数据到文本文件末尾前255字节

function TFrm_LookPic.WritePra(_pra:string;info:string):Boolean;
var
MyFile:TMemoryStream;
Bytes: array of pchar;
begin
try
MyFile:= TMemoryStream.Create;
MyFile.LoadFromFile(_pra);
SetLength(Bytes,255);
Bytes[0] := pchar(info);
MyFile.Seek(-255,soFromEnd);
MyFile.WriteBuffer(Bytes[0],255);
FreeAndNil(MyFile);
Result:= true;
except
on e:Exception do
begin
Result:= false;
end;
end;

谁能帮我看下，为什么写不进去呢？？

Answer 1

你写入缓存后好像没有写入文件啊

追问

楼上能详细说下吗？怎样解决这个问题，，谢谢！！

追答

你用这个方法读入文件，MyFile.LoadFromFile(_pra);，然后只是改写了缓存，应该有一个函数时写回文件的。。。具体哪个函数及不请了，大概是 SavetoFile 吧，你查查 TMemoryStream 的帮助吧，应该有