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 vote314 views1 answer
How to end a program in delphi
Delphi
0 vote320 views2 answers
Eval javascipt
Delphi
0 vote339 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote377 views1 answer
Breakpoint condition delphi
Delphi
0 vote396 views1 answer
Delphi draw antialiased line
Delphi
0 vote355 views1 answer
Shuffle array delphi
Delphi
0 vote338 views1 answer
Types of message box C#
Delphi
0 vote419 views1 answer
How to make a shape move in delphi
Delphi
0 vote389 views1 answer
Duplicate ' in string delphi
Delphi
15 votes404 views5 answers
Belle delphine
Delphi