type TOneArray = array of Integer; procedure AddArrayItem(Arr: TOneArray; x: Integer); begin SetLength(Arr,Length(Arr)+1); Arr[High(Arr)] := x; end;
给动态数组添加一个元素
最新推荐文章于 2024-08-13 08:01:08 发布
type TOneArray = array of Integer; procedure AddArrayItem(Arr: TOneArray; x: Integer); begin SetLength(Arr,Length(Arr)+1); Arr[High(Arr)] := x; end;