richedit1 den richedit2 ye

[sr1111]

s.a
2 adet richedit var formumda. her birinde 100-150 sayfa yazi var.

buralardaki yazilari, formatlari bozulmadan ve clipboard kullanmadan hızlı bir şekilde richedit1 dekini richedit2 ye, richedit2 dekini richedit1 e nasil kopya ederim.

yardimci olursaniz sevinirim. 1-2 sey yapamaya calistim basarili olamadim.

[ikutluay]

s.a
2 adet richedit var formumda. her birinde 100-150 sayfa yazi var.

buralardaki yazilari, formatlari bozulmadan ve clipboard kullanmadan hızlı bir şekilde richedit1 dekini richedit2 ye, richedit2 dekini richedit1 e nasil kopya ederim.

yardimci olursaniz sevinirim. 1-2 sey yapamaya calistim basarili olamadim.

clipboard format ile sabitler var dı. cf_text cf_rtf isimlerini yanlış hatırlıyorum. ama bunu yapmanın yolu 3. bir richedit kullanmaktan geçecek... 1. yi 3. ye, 2. yi 1. ye, 3.yü ise 2.ye alacaksın. format içinse dediğim değişkenlere bak. daha hızlı sanırım olmaz. çünkü delphide swap tarzı bir şey yok bildiğim kadarıyla

[sr1111]

tesekkur ederim 3. bir richedit dusunmustum fakat yavaslik, agirlik olmasin diye istemiyorum.
hele bir de bu srichviewedit ise.

[Battosai]

MemoryStream kullanarak da yapabilirsin üçüncüye gerek kalmaz...

[sr1111]

zaten memorystream kullandimdi. degistirirken cok bekliyor bazende calismiyor bu kodun neresinde hata yapiyorum.
nasıl olmalı

var
AStream: TMemoryStream;
BStream: TMemoryStream;
begin
AStream := TMemoryStream.Create;
BStream := TMemoryStream.Create;

RichViewEdit1.SaveRTFToStream(AStream, false);
RichViewEdit2.SaveRTFToStream(BStream, false);
AStream.Position:=0;
BStream.Position:=0;
RichViewEdit2.Clear;
RichViewEdit2.InsertRTFFromStream(AStream);
RichViewEdit2.Format;

RichViewEdit1.Clear;
RichViewEdit1.InsertRTFFromStream(BStream);
RichViewEdit1.Format;

AStream.Free;
BStream.Free;