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 vote247 views1 answer
Delphi calculator
Delphi
0 vote211 views1 answer
How to insert apostrophe in delphi string
Delphi
3 votes275 views2 answers
Get current date delphi
Delphi
-1 vote191 views1 answer
Delphi if statement
Delphi
34 votes264 views2 answers
Shuffle list and print
Delphi
0 vote271 views1 answer
How write pi in delphi
Delphi
0 vote146 views1 answer
How to end a program in delphi
Delphi
2 votes266 views1 answer
Delphi basics generating random number
Delphi
0 vote170 views3 answers
Delphi keypress ctrl+v
Delphi
0 vote180 views1 answer
Delphi Tidhttp error could
Delphi