| 发表于:2007-08-17 09:53:367楼 得分:0 |
program bytetest; {$apptype console} type tre=record arr:array of integer; s:pinteger; end; var tr:tre; i:integer; begin setlength(tr.arr,100); for i:=0 to 10 do tr.arr[i]:=i; writeln(tr.arr[8]); //证明了可以在记录中定义数组,那么在类中也可以定义动态数组了 getmem(tr.s,100); tr.s^[3]:=9; //报错:array type required 不明白?谁能告诉我 //(tr.s+3)^:=9; writeln(tr.s^[3]); // writeln((tr.s+3)^); writeln(tr.s^); end. | | |
|