Безразмерный массив

[Alexandr17-10]

Извиняюсь если тема такая была.
Как в паскаль сделать Динамический массив которому бы не надо было каждый раз задавать размер к примеру сделать массив который будет иметь безграничное число ячеек.

[Аватар]

А не бывает ничего неограниченного в программах и в системе в целом. Это вам не Вселенная. Бесконечность которой тоже спорное понятие. Тем более массивов. Даже так называемый бесконечный цикл рано или поздно заканчивается, с помощью того же диспетчера задач, например

[Alexandr17-10]

Ну мне чтобы просто не указывать размер так как количество ячеек неизвестно.
Я пишу скрипт для игры на движке паскаль скрипт так вот нужно сделать массив которому не нужно будет задавать размер

[ViktorR]

Так думаю, что место для хранения, и в достаточно большом объёме, можно было бы получить из Heap'а. Но для такого случая, возможно, потребуется переписать уже готовые процедуры/функции.
В общем то есть такая процедура, как getmem(var p : pointer; size :word).
С её помощью можно получить память на size байт.
Эту память можно использовать по разному. Освобождается такая память через процедуру freemem(var p : pointer; size :word).
На сколько много и как много требуется?
В частности, нужное кол-во памяти можно запросить в самый подходящий момент, когда размер известен, а затем расширить, если потребуется.
Только для большой памяти надо использовать и подходящий Паскаль.


Как-то так, ...

[Stilet]

Array of тип;

Или используй списки - класс TList, если паскаль поновее.

[Arigato]

В Паскале такого нет, в других ЯП встречается.

[Kodzaev]

Можно отключить контроль выхода за границы диапазона с помощью директивы {$R-}. Вот пример, в котором массив будет заполняться до тех пор, пока пользователь не нажмет клавишу. Думаю, идея ясна?

uses
  Crt;

type
  MyType = integer;
  vector = array [1..1] of MyType;

var
  x: ^vector;
  i: longint;

begin
  {$R-}
  ClrScr;
  Randomize;
  repeat
    i := i + 1;
    New(x);
    x^[i] := Random(9) + 1;
    Write(x^[i], #32);
    Dispose(x);
  until KeyPressed;
end.

[Poma][a]

Что, простите?
Массив нужен в том, и только в том, когда нам необходимо хранить информацию, для её последующей обработки, Ваш вариант эту инфу не хранит..

[Arigato]

Kodzaev, вы какую-то ерунду написали...