[scroyler]

Здравствуйте.
У меня есть 2 РичЕдита.Наверное все знают , что в ричедитах можно менять текст,шрифт и тд...
Так вот как сделать так что бы при нажатии на кнопку текст из ричедит1 со всеми "Понтами" копировался в ричедит2.
Что только не перепробовал...Копирует просто голый текст.

[NumLock]

а так пробовал:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemoryStream: TMemoryStream;
begin
//  RichEdit1.PlainText:=False;
//  RichEdit2.PlainText:=False;
  MemoryStream:=TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(MemoryStream);
    MemoryStream.Position:=0;
    RichEdit2.Lines.LoadFromStream(MemoryStream);
  finally
    MemoryStream.Free;
  end;
end;

?

[scroyler]

Сообщение от NumLock

а так пробовал:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemoryStream: TMemoryStream;
begin
//  RichEdit1.PlainText:=False;
//  RichEdit2.PlainText:=False;
  MemoryStream:=TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(MemoryStream);
    MemoryStream.Position:=0;
    RichEdit2.Lines.LoadFromStream(MemoryStream);
  finally
    MemoryStream.Free;
  end;
end;

?

спасибо,работает