массив и указатели

[SkrudjMakdak]

Нужно выделить память под массив, у которого размер заранее не известен. как это сделать?
var
i:^word;
begin
GetMem(i, n*sizeof(word));
end;
где n - любое число

не работает

[_-Re@l-_]

Так ведь вроде так:

var
i:^word;
begin
GetMem(i, n*sizeof(i));
end;

[SkrudjMakdak]

что sizeof(word), что sizeof(i) - одно и тоже
пишу так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:^word;
begin
GetMem(i, 5*sizeof(i));
i[4]:=2;
dispose(i);
end;

пишет ошибку - Array type required

пишу так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:array of ^word;
begin
GetMem(i, 5*sizeof(i));
i[4]:=2;
dispose(i);
end;

ошибки:
Incompatible types: "Integer' and 'Pointer'
Dispose not supported (nor necessary) for dynamic arrays

From Stilet: Неужели так сложно оформить пост красиво и читабельно?

[Gambler]

все правильно. ты хочешь отпустить с миром указатель, а не кусок памяти. FreeMem(i,5*sizeof(word)) тебе поможет

А вообще не вижу смысла. Динамический массив делается через SetLength(i,5); и можно забыть об указателях.

[Somebody]

Через одно место (а в TurboPascal'е по другому и никак вроде бы)

procedure TForm1.Button1Click(Sender: TObject);
type
  TWordArray = array [0..$80000000 div 2 - 3] of Word;
  PWordArray = ^TWordArray;
var
  i: PWordArray;
begin
  GetMem(i, 5 * sizeof(Word));
  i^[4] := 2;
  FreeMem(i, 5 * sizeof(Word));
end;

По хорошему

procedure TForm1.Button1Click(Sender: TObject);
var
  i: array of Word;
begin
  SetLength(i, 5 * sizeof(Word));
  i[4] := 2;
  Finalize(i);
end;

[ViktorXP]

SetLength(i, 5 * sizeof(Word));

зачем - sizeof(Word) ?
Это получится

SetLength(i, 5 * 2);

тоесть выделения масива из десяти елементов.
финализировать динамический массив не имеет смысла ибо он делфя его самостоятельно финализирует, как только закончится функция (исключения является глобальный массив).

 TWordArray = array [0..$80000000 div 2 - 3] of Word;
  PWordArray = ^TWordArray;

В делфи уже есть стандартный набор подобных типов.

var
i:^word;
begin
GetMem(i, 5*sizeof(i));
i[4]:=2;

компилятор правильно тут ругается так как ты создал не массив, а ссылку на область тамяти. (и sizeof(i) в этом случае даст 4, а не 2 как предполагается. ибо тут I является Pointer)
для того что бы в данном случае внести значение можно воспользоватся такими способами:
1)

Inc(I, 4); // тут 4 означает не то что он здвинет поинтер на 4, а то что он сдвинет поинтер 4 раза по дворду (тоесть 4 раза по два байта)
i^ := 2;

2)

PWordArray(I)^[4] := 2;// PWordArray если кто помнит это стандартный тип.

var
i:array of ^word;
begin
GetMem(i, 5*sizeof(i));

Такое делфя даже не собирет. но если бы собрала то тут две логические ошибки.
1) ты получиш набор поинтеров а не массив двордов.
2) любая динам. строка/масив имеют в памяти два дворда (левее ссылки на сам масив) в одном она хранит счетчик ссылок, а во втором размер массива.

[Gambler]

Ребят, вы уж определитесь. Или Delphi или Pascal. И будет однозначное решение.

[Somebody]

Сообщение от ViktorXP

зачем - sizeof(Word) ?
Это получится

SetLength(i, 5 * 2);

тоесть выделения масива из десяти елементов.

Ну, да, ошибся.

Сообщение от ViktorXP

В делфи уже есть стандартный набор подобных типов.

Есть, но этот TWordArray только [0..16383], что по современным меркам может быть маловато. Если память под массив больших размеров выделить динамически, то надо использовать $R-, при этом всё равно для слишком большого константного индекса может быть out of range при компиляции.

[ViktorXP]

Зачем больше? Это что такое нужно считать что бы массив под два гига понадобился? (по умолчанию винда все равно больше не отдаст. при желании макс 3.2 гига выделить. а дальше только 64 битный компилятор поможет.)

[GunSmoker]

Учите мат-часть, что-ли.