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

← →
mod © (2003-06-11 17:41) [0]

Подскажите, как решить проблемку:
Необходимо организовать в Pascale массив изначально не известного размера, а затем изменять его по мере работы проги.
Заранее спосибо.

← →
clickmaker © (2003-06-11 17:42) [1]

Dynamic array?
Типа
var A: array of integer;

SetLength(A, 100);

← →
Sandman25 © (2003-06-11 17:46) [2]

var
Arr: array of integer;
begin
SetLength(Arr, 5);
Arr[4] := 12;
SetLength(Arr, 8);
Arr[5] := 11;
SetLength(Arr, Length(Arr) + 3));
Arr[10] := 9;
end;

← →
Anatoly Podgoretsky © (2003-06-11 17:54) [3]

Безразмерные массивы требуют безразмерных ресурсов.
В Дельфи 5+ есть динамические массивы (массивы с неизвестным, неуказанным размером, указывается на этапе использования), но это в Дельфи 5 и выше, а что у тебя и подходят ли тебе динамические массивы?

← →
Smithson © (2003-06-11 17:55) [4]

В каком паскале - укажи версию

← →
mod © (2003-06-11 17:59) [5]

Необходимо это сделать в Pascale 7.0 есть такой старенький язык

← →
Song © (2003-06-11 18:02) [6]

Var Mas: array [0..0] of Integer;

← →
mod © (2003-06-11 18:05) [7]

А как изменять размерность?

← →
Serginio (2003-06-11 18:22) [8]

Смотри
Sandman25 © (11.06.03 17:46)
var
Arr: array of integer;
begin
SetLength(Arr, 5); //??????????
Arr[4] := 12;
SetLength(Arr, 8);
Arr[5] := 11;
SetLength(Arr, Length(Arr) + 3)); //??????????
Arr[10] := 9;
end;

← →
Song © (2003-06-11 18:24) [9]

GetMem()
Сколько памяти выделишь - вся твоя.

← →
mod © (2003-06-11 18:30) [10]

Под размерностью я понемаю кол-во элементов, А как я понял GetMem отводит лишь только память под него.

← →
Song © (2003-06-11 18:34) [11]

Ну логично, но если подумать, ты поймёшь, что размер выделенной памяти ты можешь получить простым умножением количества нужных ячеек на размер типа хранимых данных. Потом ты можешь выделить ещё памяти. Хотя тот же SetLength(), только вид сбоку.

← →
yaJohn © (2003-06-11 18:36) [12]

Получить размер необходимой памяти по размерности масива можно с помощью операции умножения.

Я в свое время делал такие "динамические массивы":
type
x:array[1..20000] of integer (до 64К, не больше!)

var
p:^x;

getmem(p, <сколько нужно>)
Одно только нужно иметь в виду: не использовать индекс массива, который лежит за границами выделенной области, иначе мог быть кирдык.

← →
Utwig (2003-06-11 20:50) [14]

А что, в старом паскале была функция getmem ? Это разве не виндовая ?

Serginio, не знаешь - не советуй

2DrPass

var
p: ^x; //??????

Utwig (11.06.03 20:50)
Не уверен, не обгоняй - это рвзве

← →
Chieftain (2003-06-12 11:08) [18]

2 Utwig
> А что, в старом паскале была функция getmem ? Это разве не виндовая ?

Кажется была. Ну или что-то аналогичное есть обязательно. Только с динамическими переменными немножко уметь работать надо. Чуть что не так сделаешь - будет в лучшем случае утечка ресурсов, а в худшем - кирдык (c) by DrPass

Безразмерные массивы в Pascale Найти похожие ветки