随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

type
  TOneArray = array of Integer;

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

posted on 2007-12-02 21:16  万一  阅读(...)  评论(...编辑  收藏