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 vote131 views1 answer
Mongoose schema type double
Delphi
8 votes202 views4 answers
Bootstrap display error message
Delphi
0 vote169 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote132 views1 answer
Inputbox delphi
Delphi
3 votes212 views2 answers
Get current date delphi
Delphi
0 vote131 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote203 views1 answer
Delphi copiarcaracter string
Delphi
0 vote140 views1 answer
Set vfat label
Delphi
34 votes211 views2 answers
Shuffle list and print
Delphi
0 vote143 views1 answer
Delphi dynamic array count
Delphi