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

-1 vote406 views1 answer
Delphi if statement
Delphi
0 vote415 views1 answer
Set vfat label
Delphi
0 vote463 views1 answer
How to make a shape move in delphi
Delphi
6 votes434 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote406 views1 answer
Delphi copiarcaracter string
Delphi
0 vote470 views1 answer
How write pi in delphi
Delphi
0 vote473 views1 answer
Delphi draw antialiased line
Delphi
1 vote452 views4 answers
"nickolasmin"
Delphi
3 votes451 views2 answers
Get current date delphi
Delphi
3 votes469 views3 answers
Add data to json object
Delphi