如何把 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;


我不知道你的为何不成

我的完全没有问题