Динамические массивы структур Опции

[compiler]

Добрый день!

у меня вопрос, как узнать высоту динамического массива записей?

пытался так, однако возникает ошибка...

Код

type
     r = record
            i1,i2:integer;
     end;

     PDynArray = ^TDynArray;
     TDynArray = array[1..1] of r;

var
   a:PDynArray;
   i:integer;

begin
     writeln(high(a));
end.

может надо произвести разименование?



заранее благодарен.

[volvo]

пока не выделю помять..(?)

Нет, вообще... Даже если сделаешь так:

begin
     getmem(a, 20*sizeof®);
     writeln(high(a^));
end.

- все равно получишь 1, хотя размер - то равен 20...

[compiler]

Нет, вообще... Даже если сделаешь так:

begin
getmem(a, 20*sizeof®);
writeln(high(a^));
end.

- все равно получишь 1, хотя размер - то равен 20...

хорошо, тогда как поступать

high(a^[1]) ?