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 vote194 views3 answers
Delphi keypress ctrl+v
Delphi
0 vote199 views1 answer
Get time in milliseconds delphi
Delphi
0 vote206 views1 answer
React replace object in array
Delphi
3 votes391 views3 answers
Add data to json object
Delphi
0 vote218 views1 answer
Delphi fullscreen
Delphi
0 vote234 views1 answer
Instagram bot python
Delphi
0 vote402 views1 answer
Delphi draw antialiased line
Delphi
11 votes412 views3 answers
Practicing python
Delphi
5 votes418 views3 answers
Copy function delphi
Delphi
0 vote200 views1 answer
Inputbox delphi
Delphi