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

3 votes317 views1 answer
Flash messages using boot strap
Delphi
11 votes399 views3 answers
Practicing python
Delphi
34 votes377 views2 answers
Shuffle list and print
Delphi
0 vote320 views1 answer
Mongoose schema type double
Delphi
1 vote402 views3 answers
Bootstrap cards with image on the right side
Delphi
-1 vote353 views1 answer
Delphi if statement
Delphi
3 votes364 views2 answers
Get current date delphi
Delphi
0 vote312 views1 answer
Instagram bot python
Delphi
0 vote348 views1 answer
Delphi check if key pressed is enter
Delphi
0 vote337 views1 answer
How to add item to listview delphi
Delphi