如何释放一个动态数组?

Question

SetLength(A, 0); //或者A := nil;

Answer 1

SetLength(A, 0); //或者A := nil;

Answer 2

这样有错吗?        for Loop1 := 1 to RecordCount do
        begin
          F_TabSheet[Loop1] := TTabSheet.Create(self);
          F_TabSheet[Loop1].Caption := 'Simon' + IntToStr(Loop1);
          F_TabSheet[Loop1].PageControl := PageControl1;
        end;        F_TabSheet := nil;   

Answer 3

这样有错吗?        for Loop1 := 1 to RecordCount do
        begin
          F_TabSheet[Loop1] := TTabSheet.Create(self);
          F_TabSheet[Loop1].Caption := 'Simon' + IntToStr(Loop1);
          F_TabSheet[Loop1].PageControl := PageControl1;
        end;        F_TabSheet := nil;   

Answer 4

这样有错吗?        for Loop1 := 1 to RecordCount do
        begin
          F_TabSheet[Loop1] := TTabSheet.Create(self);
          F_TabSheet[Loop1].Caption := 'Simon' + IntToStr(Loop1);
          F_TabSheet[Loop1].PageControl := PageControl1;
        end;        F_TabSheet := nil;   

Answer 5

        for Loop1 := Low(F_TabSheet) to High(F_TabSheet) do
          if Assigned(F_TabSheet[Loop1]) then
            F_TabSheet[Loop1].Free;
        F_TabSheet := nil;

Answer 6

如果
var
  F_TabSheet: array[1..RecordCount] of TTabSheet; //这可不叫动态数组

Answer 7

To: zswang(伴水)(需要充充电)　
我试了这样才可行:
 
        for Loop1 := Low(F_TabSheet) to High(F_TabSheet) do
        //  if Assigned(F_TabSheet[Loop1]) then  //加这句报错!
            F_TabSheet[Loop1].Free;
        F_TabSheet := nil;