TRichEditの末尾に書式付テキストを追加したい (ID:42823)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Mr.XRAYさんの方法を受けて、TMemoryStream.CopyFromメソッドではどうでしょうか？ test1,2,3のテキストの内容をRichEdit1に出力します。（CopyFromメソッド今回初めて使いました★） procedure TForm1.Button1Click(Sender: TObject); var mem,mem2:TMemoryStream; int:integer; begin mem := TMemoryStream.Create; mem2 := TMemoryStream.Create; try mem.LoadFromFile('test1.txt');//test1.txtを一旦MemoryStreamへ読み込み int := mem2.CopyFrom(mem,0); //memからmem2にコピーする mem.LoadFromFile('test2.txt'); int := mem2.CopyFrom(mem,0); mem.LoadFromFile('test3.txt'); int := mem2.CopyFrom(mem,0); mem2.Position := 0; RichEdit1.Lines.LoadFromStream(mem2);//mem2に蓄積された内容をRichEdit1に出力する finally FreeAndNil(mem); FreeAndNil(mem2); end; end; データベースからだと、RichEditにデータベースから取得したものをセットしてからMemoryStreamに吐き出します。