正文

Delphi TMemoryStream写入到字符串和字符串写入到流

IP云
IP云V管理员/4 阅读
10/26
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

一、TMemoryStream数据写入到字符串里

var
lvStream:TMemoryStream;
s:AnsiString;
p: PAnsiChar;
begin
lvStream:= TMemoryStream( pvObject);
GetMem(p, lvStream.Size + );
FillChar(p^, lvStream.Size, );
Move(lvStream.Memory^,p^,lvStream.Size);
s:=p;
FreeMem(p);

二、字符串写入到TMemoryStream

var
lvStream:TMemoryStream;
s:AnsiString;
begin
s:='abcdefghjkimoop';
lvStream.Write(s[], Length(s)); lvStream.Position := ;
end;