放分！！！

Question

请教各位，我在窗体1上放一RichEdit,将RichEdit上的内容导入一个TMemoryStream
现在要在窗体2上引用这个流，如何实现！！

Answer 1

SaveToFile;
LoadFromFile;
Read();这样不行吗？

Answer 2

定义这个TMemoryStream为全局变量，在窗体2中Uses 窗体1的单元。这样应该可以吧？

Answer 3

var M:TmemoryStream;
procedure TForm1.Button1Click(Sender: TObject);
begin
  M:=Tmemorystream.Create;
  Memo1.Lines.SaveToStream(M);
  M.Position:=0;
  Memo2.Lines.LoadFromStream(M);
end;

Answer 4

var M:TmemoryStream;
procedure TForm1.Button1Click(Sender: TObject);
begin
  richedit1.Font.Color:=clred;
  richedit2.Font.Color:=clblack;
  M:=Tmemorystream.Create;
  RichEdit1.Lines.SaveToStream(M);
  M.Position:=0;
  RichEdit2.Lines.LoadFromStream(M);
end;

Answer 5

richedit2读出来的字体颜色仍然和1一样为红色而不是黑色

Answer 6

你定义一个全局的流变量,然后把RichEdit上的内容导入一个TMemoryStream再在窗体2上引用这个全局流就可以了.你就当他是一个全局变量用
file1,file:tmemeorystream;file1:=richedit2.lines.savetostream;

Answer 7

MD，这个问题太SB了，自己已解决
谢谢楼上各位，结贴！