本帖最后由 YuNa321 于 2009-09-07 09:09:11 编辑

解决方案 »

  1.   

    http://topic.csdn.net/u/20090904/19/b20c7341-d480-4c45-9da0-d31a6846ca65.html
    这几天在学Delphi
    我想用D实现上边那个.如果D当中能做到.就爽了.
    procedure TForm1.btn1Click(Sender: TObject);
    var max:Integer;
    var arr:array of Integer;
    var counter:integer;
    begin
    max:=20;
    for counter := 1 to max do
    begin
      SetLength(arr,counter);
      arr:= (1..counter );//就是这样
      //循环输出改变后的数组.羡慕死那帮人.如果可以的话
    end;end;
      

  2.   

    哎.对不住.我理解错了.没想到delphi中是用array[1..XX]来声明大小的.我还以为是值...真晕.美丽的误会.!!!