Ошибка при работе с указателями

[Alexan-Dwer]

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

procedure Something;
type
  TBar = record
  Bar1: Word; Bar2: Cardinal;
  end;

  TFoo = array of TBar;
  PFoo = ^TFoo;

var
Foo: PFoo;
Temp: Byte;
begin
GetMem(Foo, 3*SizeOf(TBar));

Foo^[0].Bar1:=1;
Foo^[1].Bar1:=10;
Foo^[2].Bar1:=100;

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

[Stilet]

array of TBar;

Если не ошибаюсь это и есть указатель. т.е. в твоем случае нужно так:

procedure Something;
type
  TBar = record
  Bar1: Word; Bar2: Cardinal;
  end;

  TFoo = array[0..0] of TBar;
  PFoo = ^TFoo;

var
Foo: PFoo;
Temp: Byte;
begin
GetMem(Foo, 3*SizeOf(TBar));

Foo^[0].Bar1:=1;
Foo^[1].Bar1:=10;
Foo^[2].Bar1:=100;

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

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

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;

[Alexan-Dwer]

Stilet, спасибо, Ваш код компилируется без ошибок. Выбрал 2-ой способ.