type
  MCAT=Array[0..500] of CAT;
var 
  Family:^MCAT;
  i:Integer;
  

解决方案 »

  1.   

    首先cat什么数据类型。
    要是已定义了cat类型,上述代码应该可以编译通过的
      

  2.   

    我觉得,要转换到Delphi,Cat首先应该转换为Object Pascal对象:
       至少应该如下定义:type CAT = class(TOBJECT)
                         ......
                       end;
    然后写代码:
    Family:Array[0..500] of CAT;var
      i:Integer;
    begin
       for I:=0 to 500
       Begin
          Family[i] := CAT.Create;
          Family[i].SetAge(2 * i + 1);
       end;
    end;