方法:
      var
         A:array of Integer;
      begin
           ShowMessage(IntToStr(High(A))); //<- 值为1
           SetLenght(A,3);
           ShowMessage(IntToStr(High(A))); //<- 值为3
      end;
  注:这是DELPHI4.0新添的功能.

替换指定串函数 动态产生构件并相应事件

评论 (0) All