We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 2b55e28 commit 3deca15Copy full SHA for 3deca15
1 file changed
demos/FireMonkey/TeeGridFeatures/Views/ArrayData.pas
@@ -48,6 +48,7 @@ TArrayAsDataForm = class(TForm)
48
procedure BArrayFloatClick(Sender: TObject);
49
procedure BArrayStringClick(Sender: TObject);
50
procedure BArrayObjectClick(Sender: TObject);
51
+ procedure FormDestroy(Sender: TObject);
52
private
53
SampleHeader : TTextBand;
54
procedure SetExpander(const AColumn: String; const ARows: TRows);
@@ -281,4 +282,9 @@ procedure TArrayAsDataForm.BEditClick(Sender: TObject);
281
282
// TTeeGridEditor.Edit(Self,TeeGrid1);
283
end;
284
285
+procedure TArrayAsDataForm.FormDestroy(Sender: TObject);
286
+begin
287
+ Clean(MyCars); // Free memory
288
+end;
289
+
290
end.
0 commit comments