怎么把 tmpstr：sting 写入stream

如何把 tmpstr：sting 写入stream 在线等
如何把   tmpstr：sting   写入stream   在线等
var  
      len:   integer;
    stm:   Tmemorystream;
begin  
    stm   :=   Tmemorystream.Create;
    len   :=     Length(tmpstr);
    stm.SetSize(len);
    stm.Position   :=   0;
    stm.WriteBuffer(tmpstr[1],len);

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
ms:TMemoryStream;
str:string;

begin
ms:=TMemoryStream.Create;
str:=Memo1.Lines.Text;
ms.SetSize(length(str));
ms.Position:=0;

ms.WriteBuffer(str[1],length(str));
Memo2.Lines.Clear;
ms.Position:=0;
memo2.Lines.LoadFromStream(ms);
ms.Free;

end;


我不知道你的为何不成

我的完全没有问题