Free array Delphi 7

destructor TMyInfo.Destroy;
var
  I: Integer;
begin
  for I:= Low(SubInfo) to High(SubInfo) do
   SubInfo[I].Free;
  SetLength(SubInfo, 0); 
  inherited;
end;

Similar codes

0 vote174 views3 answers
Delphi keypress ctrl+v
Delphi
0 vote181 views1 answer
Types of message box C#
Delphi
0 vote220 views1 answer
Duplicate ' in string delphi
Delphi
2 votes294 views1 answer
Get last element of array delphi
Delphi
0 vote173 views1 answer
Mongoose schema type double
Delphi
0 vote210 views1 answer
Breakpoint condition delphi
Delphi
3 votes270 views3 answers
Add data to json object
Delphi
2 votes275 views1 answer
Delphi how copy works
Delphi
11 votes304 views3 answers
Practicing python
Delphi
2 votes278 views1 answer
Delphi basics generating random number
Delphi