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

15 votes381 views5 answers
Belle delphine
Delphi
8 votes362 views4 answers
Bootstrap display error message
Delphi
2 votes361 views1 answer
Delphi basics generating random number
Delphi
3 votes374 views3 answers
Add data to json object
Delphi
6 votes325 views8 answers
React -slick
Delphi
0 vote349 views1 answer
Delphi dynamic array count
Delphi
0 vote308 views2 answers
Remove escapes from json
Delphi
0 vote327 views3 answers
Delphi keypress ctrl+v
Delphi
1 vote387 views3 answers
Bootstrap cards with image on the right side
Delphi
2 votes382 views1 answer
Get last element of array delphi
Delphi