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

11 votes232 views3 answers
Practicing python
Delphi
0 vote213 views1 answer
Ceil function delphi
Delphi
0 vote183 views2 answers
Eval javascipt
Delphi
0 vote197 views2 answers
Css social code bootstrap 4
Delphi
0 vote207 views1 answer
Delphi fullscreen
Delphi
1 vote245 views3 answers
Bootstrap cards with image on the right side
Delphi
3 votes179 views1 answer
Flash messages using boot strap
Delphi
0 vote248 views1 answer
Delphi draw antialiased line
Delphi
0 vote230 views1 answer
Duplicate ' in string delphi
Delphi
0 vote229 views1 answer
Delphi copiarcaracter string
Delphi