求救：（急）richedit读取长文本文件时报错

[llfz]

本人在读取长文本文件时报错
并显示在richedit中时报异常错误
异常为EOutOfResource
异常消息提示为 richedit line insertion error
不知如何解决
请高手帮忙解决

[zyhhly]

richedit默认是不认大文件的，发送这个消息应该就没问题了
SendMessage(REdt_Screen.Handle, WM_USER + 53, 0, $7FFFFFFF)

[aiirii]

store more than 64 KB in a TRichEdit?
{
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.

Standardmässig ist der Text im Richedit auf 64 KB beschränkt.
Indem man die Maxlength auf $7FFFFFF0 setzt, kann man ungefähr 2 GB
Text im TRichEdit haben.
}

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit11.MaxLength := $7FFFFFF0;
end;



//oder:
//or:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);
end;

[zhxfzhxf1]

收藏！