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

4 votes321 views2 answers
Copy delphi
Delphi
0 vote235 views1 answer
Instagram bot python
Delphi
1 vote295 views1 answer
Case delphi
Delphi
0 vote257 views1 answer
Delphi Tidhttp error could
Delphi
2 votes300 views1 answer
Delphi basics generating random number
Delphi
0 vote260 views1 answer
How to use incyear in delphi
Delphi
0 vote307 views1 answer
How write pi in delphi
Delphi
6 votes255 views8 answers
React -slick
Delphi
0 vote250 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
0 vote266 views1 answer
Delphi fullscreen
Delphi