Skip to content

Commit 3deca15

Browse files
committed
Clean the TCar sample demo array, just in case, to avoid a memory leak
1 parent 2b55e28 commit 3deca15

1 file changed

Lines changed: 6 additions & 0 deletions

File tree

demos/FireMonkey/TeeGridFeatures/Views/ArrayData.pas

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -48,6 +48,7 @@ TArrayAsDataForm = class(TForm)
4848
procedure BArrayFloatClick(Sender: TObject);
4949
procedure BArrayStringClick(Sender: TObject);
5050
procedure BArrayObjectClick(Sender: TObject);
51+
procedure FormDestroy(Sender: TObject);
5152
private
5253
SampleHeader : TTextBand;
5354
procedure SetExpander(const AColumn: String; const ARows: TRows);
@@ -281,4 +282,9 @@ procedure TArrayAsDataForm.BEditClick(Sender: TObject);
281282
// TTeeGridEditor.Edit(Self,TeeGrid1);
282283
end;
283284

285+
procedure TArrayAsDataForm.FormDestroy(Sender: TObject);
286+
begin
287+
Clean(MyCars); // Free memory
288+
end;
289+
284290
end.

0 commit comments

Comments
 (0)