核心提示：600) this.width = 600;'>var ms: TMemoryStream;begin ms := TMemoryStream.Create; try RichEdit1.Lines....
600) this.width = 600;">
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(ms) ;
ms.Seek(0, soFromBeginning) ;
RichEdit2.Lines.LoadFromStream(ms) ;
finally
ms.Free;
end;
end;
