We don't display ads so we rely on your Bitcoin donations to 1KWEk9QaiJb2NwP5YFmR24LyUBa4JyuKqZ

Store more than 64 KB in a TRichEdit

Post date: Mar 15, 2010 1:29:21 AM

By default, a TRichedit's text is limited to 64 KB. Setting the Maxlength property to $7FFFFFF0 allows you to have approx. 2GB of text.

procedure TForm1.Button1Click(Sender: TObject);

begin

   RichEdit11.MaxLength := $7FFFFFF0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

   SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);

end;

Google Sites

Report abuse