写入:
var L: Integer; MS: TStream; S: string;
begin
MS:=TMemoryStream.Create;
S:='string';
L:=Length(S);
try
MS.WriteBuffer(L, 4); //保存字符串长度
MS.WriteBuffer(S[1], L); //保存字符串内容
MS.... //写入其他信息.
finally
MS.Free;
end;
end;
读出: (MS: TStream);
var L: Integer; S: string;
begin
MS.ReadBuffer(L, 4); //读出字符串长度
SetLength(S, L);
MS.ReadBuffer(S[1], L); //读出字符串内容
MS.... //读出其他信息.
end;
