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 vote207 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote202 views1 answer
How to add item to listview delphi
Delphi
0 vote243 views1 answer
Breakpoint condition delphi
Delphi
1 vote405 views1 answer
Case delphi
Delphi
0 vote239 views1 answer
How to make a shape move in delphi
Delphi
2 votes410 views1 answer
Delphi basics generating random number
Delphi
4 votes413 views2 answers
Copy delphi
Delphi
0 vote220 views1 answer
Shuffle array delphi
Delphi
6 votes386 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote416 views1 answer
Delphi draw antialiased line
Delphi