11 lines
196 B
ObjectPascal
11 lines
196 B
ObjectPascal
type TRec = record
|
|
a, b : array[1..4] of integer;
|
|
end;
|
|
var arr : array of TRec;
|
|
|
|
begin
|
|
//SetLength(arr,10);
|
|
arr:=new trec[10];
|
|
write(arr[0].a[1]);
|
|
writeln('xxx');
|
|
end. |