如何写文件？
我得到了一个数据块：
pResult{PByteArray类型}大小为iResultSize,如何把这些数据写入一个result文件？
问题点数：100、回复次数：5Top
1 楼chechy（www.qdocuments.net）回复于 2001-10-10 10:23:59 得分 80
procedure SaveBufToFile(ABuf: string; const AFileName: string);
begin
with TStringList.Create do
try
Add(ABuf);
SaveToFile(AFileName)
finally
Free
end;
end;
function SubBuf2Str(const AVarArr: Variant; const
AIndex, ALen: Integer): string;
var
i: Integer;
begin
SetLength(Result, ALen);
for i := 1 to ALen do
Result[i] := Chr(Byte(AVarArr[i + AIndex - 1]));
end;
Top
2 楼Jneu（沧海桑田）回复于 2001-10-10 10:32:01 得分 10
gzTop
3 楼luxiaoban（鲁小班）回复于 2001-10-10 10:56:45 得分 10
gzTop
4 楼zfan333（逆风）回复于 2001-10-10 11:25:01 得分 0
要转成TStringList？不能直接存盘么？Top
5 楼zfan333（逆风）回复于 2001-10-10 12:04:14 得分 0
怎么存盘我知道了，用TFileStream类，，分还是给大家Top
