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

8 votes382 views4 answers
Bootstrap display error message
Delphi
0 vote318 views1 answer
Ceil function delphi
Delphi
0 vote229 views1 answer
Instagram bot python
Delphi
0 vote265 views1 answer
Delphi copiarcaracter string
Delphi
0 vote193 views2 answers
Css social code bootstrap 4
Delphi
0 vote200 views1 answer
React replace object in array
Delphi
-1 vote215 views1 answer
Delphi if statement
Delphi
0 vote208 views1 answer
Delphi dynamic array count
Delphi
2 votes394 views1 answer
Delphi how copy works
Delphi
0 vote194 views1 answer
Types of message box C#
Delphi