delphi中怎么用TFileStream追加存储文件
1个回答
展开全部
Var
buf: Array[0..5] Of Ansichar;
Begin
With TFileStream.Create('d:\aaa.txt', fmOpenWrite) Do
Begin
Try
Seek(0, soEnd);
StrPCopy(buf, '123abc');
WriteBuffer(buf, SizeOf(buf));
Finally
Free;
End;
End;
buf: Array[0..5] Of Ansichar;
Begin
With TFileStream.Create('d:\aaa.txt', fmOpenWrite) Do
Begin
Try
Seek(0, soEnd);
StrPCopy(buf, '123abc');
WriteBuffer(buf, SizeOf(buf));
Finally
Free;
End;
End;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
