■■■为什么这段代码不工作？■■■

Question

为什么这段代码不工作?
如下：procedure TForm1.Button1Click(Sender: TObject);
var
  ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  memo1.Lines.SaveToStream(ms);
  memo2.Lines.LoadFromStream(ms);
  ms.Free;
end;我在memo1里输入一段文字，按Button1后，memo2里空白一片。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  memo1.Lines.SaveToStream(ms);
  ms.Position:=0;
  memo2.Lines.LoadFromStream(ms);
  ms.Free;
end;OK!

Answer 2

试一试这样写
procedure TForm1.Button1Click(Sender: TObject);
var
  ms:TStringStream;
begin
  ms:=TStringStream.Create(memo1.Lines.Text);
  memo2.Lines.LoadFromStream(ms);
  ms.Free;
end;

Answer 3

搞定了，谢谢 linzhisong(無聊) ！！结贴！

Answer 4

ms:=TMemoryStream.Create;
  memo1.Lines.SaveToStream(ms);
  MS.Position := 0;
  memo2.Lines.LoadFromStream(ms);
  ms.Free;

Answer 5

m1 : TStringStream;
begin
  m1 :=TStringStream.Create(memo1.Lines.Text);
  memo2.lines.text := m1.datastring;
  m1.free;