TWebMemo memory leak?

WEB TMS WEB Core
1

Hi,

In attachment example project. The problem is that when I try add 50000 lines to TWebMemo I get an error Out of memory, but when I do exactly the same with TWebRichEdit everything is ok.

Does TWebMemo have memory leak problem?

Try my example.

procedure TForm1.wbtn1Click(Sender: TObject);
var i:Integer;
begin
  Self.wbm1.BeginUpdate;
  for i:=0 to 50000 do
    Self.wbm1.Lines.Add('aaaaaaaaaaaaaaaa');
  self.wbm1.EndUpdate;

end;

TestOutOfMemory.zip (1.5 MB)

2

There are a lot of calls to string concatenation happening here.
A more correct approach is:

procedure TForm1.wbtn1Click(Sender: TObject);
var i:Integer;
begin
  Self.wbm1.Lines.BeginUpdate;
  for i:=0 to 50000 do
    Self.wbm1.Lines.Add('aaaaaaaaaaaaaaaa');
  self.wbm1.Lines.EndUpdate;
end;