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

6 votes468 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote500 views1 answer
How write pi in delphi
Delphi
0 vote398 views1 answer
Delphi random letter
Delphi
0 vote394 views1 answer
Inputbox delphi
Delphi
0 vote389 views1 answer
Choose character from string in delphi
Delphi
0 vote407 views1 answer
Get time in milliseconds delphi
Delphi
3 votes513 views3 answers
Add data to json object
Delphi
0 vote417 views1 answer
How to add item to listview delphi
Delphi
0 vote403 views1 answer
How to use incyear in delphi
Delphi
2 votes521 views1 answer
Delphi how copy works
Delphi