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 vote413 views1 answer
INSERT into syntax error in delphi
Delphi
0 vote485 views1 answer
How to make a shape move in delphi
Delphi
-1 vote434 views1 answer
Delphi if statement
Delphi
0 vote417 views1 answer
Delphi calculator
Delphi
3 votes474 views2 answers
Get current date delphi
Delphi
0 vote387 views1 answer
How to deacrease Time in delphi
Delphi
2 votes476 views1 answer
Delphi basics generating random number
Delphi
0 vote422 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote435 views1 answer
Breakpoint condition delphi
Delphi
0 vote470 views1 answer
Duplicate ' in string delphi
Delphi