مشکل در کپی محتویات ریچ ادیت

[reza_king_sh]

ببخشید می خواستم بدونم این کد چه مشکلی داره که محتویات ریچ یکو تو ریچ دو کپی نمیکنه:



procedure TForm1.Button1Click(Sender: TObject);
var
stream: TMemoryStream;
begin
stream:= TMemoryStream.Create;
stream.Position:=0;
RichEdit1.Lines.SaveToStream(stream);
RichEdit2.Lines.LoadFromStream(stream);
end;

آیا باید کار خاص دیگه ای انجام بدم؟

[tdkhakpur]

نه شما یک خط را جای درستش قرار ندادید.

procedure TForm1.Button1Click(Sender: TObject);
var
stream: TMemoryStream;
begin
stream:= TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(stream);
stream.Position:=0;// جایش اینحاست
RichEdit2.Lines.LoadFromStream(stream);
stream.Free; // و این خط را هم فراموش نکنید.
end;