Answers for "free array Delphi 7"

0

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;
Posted by: Guest on May-07-2020

Browse Popular Code Answers by Language