随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万

type
  TOneArray = array of Integer;

procedure AddArrayItem(Arr: TOneArray; x: Integer);
begin
  SetLength(Arr,Length(Arr)+1);
  Arr[High(Arr)] := x;
end;

posted on   万一  阅读(6371)  评论(7编辑  收藏  举报


点击右上角即可分享
微信分享提示