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 votes264 views2 answers
Copy delphi
Delphi
15 votes266 views5 answers
Belle delphine
Delphi
11 votes288 views3 answers
Practicing python
Delphi
0 vote184 views1 answer
Shuffle array delphi
Delphi
34 votes258 views2 answers
Shuffle list and print
Delphi
1 vote265 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote170 views2 answers
Css social code bootstrap 4
Delphi
0 vote169 views1 answer
Remove unnecessary packages raspi pixel
Delphi
4 votes131 views1 answer
How to find the length of a string delphi
Delphi
5 votes288 views3 answers
Copy function delphi
Delphi