Treeview memory leak

[wp]

In the simple demo project that I posted for another topic (http://forum.lazarus.freepascal.org/index.php/topic,31521.msg202076.html#msg202076) heaptrc reports a bunch of memory leaks although I am pretty sure that created objects are properly destroyed.

In this demo, instances of a simple class are attached to the Data pointer of the tree nodes. The data are destroyed in the OnDeletion event of the treeview.

To check load the attachment from http://forum.lazarus.freepascal.org/index.php/topic,31521.msg202076.html#msg202076 and enable the heaptrc option in the project options. Run, click "Add", enter some dummy data, "OK", and close the program. --> heaptrc reports more than 300 unfreed memory blocks! It is strange that none of the reported leaking lines is in my code.

Has anybody else seen this?

[Blaazen]

The leak doesn't come from TreeView or its data but from Form2. Adding line

Code: Pascal  [Select][+][-]

1. F.Free;

to the end of method Unit2.CreateData resolves problem. That's because F is created without owner -> noone frees it.

[taazz]

Code: Pascal  [Select][+][-]

1. function CreateData: TMyData;
2. var
3.   F: TForm2;
4. begin
5.   F := TForm2.Create(nil);
6.   try
7.     if F.ShowModal = mrOK then begin
8.       Result := TMyData.Create;
9.       Result.FName := F.EdName.Text;
10.       Result.FAddress := F.EdAddress.Text;
11.       Result.FCity := F.EdCity.Text;
12.       Result.FBirthday := F.EdBirthday.Date;
13.     end else
14.       Result := nil;
15.   finally
16.     F.Free;
17.   end;
18. end;
19.  

[wp]

Thank you guys. I should not post code that I wrote too late at night...