有好几行,每一行都有5个元素,是一维还是二维?

解决方案 »

  1.   

    aa = record
      a:string;
      b:string;
    ..........
    end;bb:array of aa;
      

  2.   

    const
      myconst : array [0..7,0..4] of integer;
      

  3.   

    1  张三  计算机  80
    2  李四  计算机  75
    3  王五  计算机  65
    4
    5
    6
    7
    我想通过 for i:=0 to 7得到所有数据
      

  4.   

    bb:array of aa;//好像是添加了一个数组的引用,如果修改了数据会有什么情况发生呢,估计里两个数组里的数据都被修改了吧!
      

  5.   

    按一楼给出更多的代码:(一楼不要生气,并非为抢分而来)type
      TMyRcd = record
        ID : integer;
        Name : String[10];//注意,应该使用定长字符串
        Cls : String[10];
        Score : Double;
        end;procedure TForm1.Button1Click(Sender: TObject);
    var
      A : Array of TMyRcd;
      I : integer;
    begin
      SetLength(A, 7);
      for I := Low(A) to High(A) do
        begin
        A[I].ID := I;
        A[I].Name := IntToStr(I);
        //...
        end;
      //同样也可以For ..To .. Do 得到所有数据
    end;