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 vote369 views2 answers
Remove escapes from json
Delphi
1 vote461 views1 answer
Case delphi
Delphi
0 vote395 views1 answer
How to check if something is only numbers in delphi
Delphi
0 vote434 views1 answer
Hello world in delphi
Delphi
8 votes461 views4 answers
Bootstrap display error message
Delphi
0 vote385 views1 answer
How to end a program in delphi
Delphi
2 votes492 views1 answer
Delphi how copy works
Delphi
0 vote423 views1 answer
Set vfat label
Delphi
19 votes475 views2 answers
Download jupyter for linux
Delphi
0 vote407 views1 answer
How to insert apostrophe in delphi string
Delphi