TMemo Grössenbegrenzung aufheben

[City Light]

mit einen kleinen eingriff ist auch das Problem TRichEdit von 64kb gelöst

Delphi-Quellcode:

{
  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:

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