放分！！！

[luke5678]

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

[wanwangzhiwang]

SaveToFile;
LoadFromFile;
Read();

这样不行吗？

[jian23cn]

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

[jinjazz]

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

[jemyzhang]

再从tmemorystream读不行吗

[jinjazz]

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;

[jinjazz]

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

[princesd]

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

file1:=richedit2.lines.savetostream;

[luke5678]

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