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 vote149 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote128 views2 answers
Css social code bootstrap 4
Delphi
2 votes162 views1 answer
Delphi basics generating random number
Delphi
3 votes96 views1 answer
Flash messages using boot strap
Delphi
34 votes154 views2 answers
Shuffle list and print
Delphi
0 vote131 views1 answer
How to deacrease Time in delphi
Delphi
0 vote153 views1 answer
Duplicate ' in string delphi
Delphi
4 votes171 views2 answers
Copy delphi
Delphi
0 vote127 views1 answer
How to check if something is only numbers in delphi
Delphi
0 vote187 views1 answer
How to make a shape move in delphi
Delphi