Desaströse Performance von TRichedit

[Kas Ob.]

What about this

Delphi-Quellcode:

var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile(FILE_NAME);
    SendMessage(RichEdit1.Handle, WM_SETTEXT, LPARAM(0), WPARAM(Stream.Memory)); // better to add to the stream another byte with 0 or double bytes with 0, but for testing now
    //Stream.Position := 0;
    //RichEdit1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;