Выделить память под динамический массив

Posted by Chas under Delphi

Пытаюсь выделить память под массив, но выдает ошибку. Порой на «GetMem», порой на «Foo^[0].Bar1:=1».
Подскажите, может, я не правильно пытаюсь выделить память под массив записей?

Stilet
Хотя это костыльный вариант и он морально устарел. Сейчас модно так:

procedure Something;

type

  TBar = record

  Bar1: Word; Bar2: Cardinal;

  end;
  TFoo = array of TBar;
var

  Foo: TFoo;

  Temp: Byte;

begin

  SetLength(Foo, 3);
  Foo[0].Bar1:=1;

  Foo[1].Bar1:=10;

  Foo[2].Bar1:=100;
  Temp:=Foo[0].Bar1 + Foo[1].Bar1 + Foo[2].Bar1;

  SetLength(Foo,0);

end;