Представте ситуацию: есть динамически объявленный массив, который в коде должен быть setlength'ен как ДВУМЕРНЫЙ! Вопрос: КАК!!!

Пример:

.....
type
Index = array[1..100] of ^Vektor;
Vektor = array[1..100] of Integer;
matrix = record
rows, cols : Byte;
ptr : Index;
end;
...
var a: matrix;
....

// выделяем память
procedure CreateMatrix( var a : matrix; c,r : byte);
var
i,j : Byte;
begin
with a do
begin
rows:=r;
cols:=c;
J:= rows*sizeof(pointer);
GetMem(ptr^, j);
for j:=1 to rows do
begin
i:=cols*sizeof(integer);
GetMem(prt^[j] , i);
for i:=1 to cols do
ptr^[j]^[i]:={здесь заполняем матрицу};
end;
end;
end;

//Освобождаем память
procedure Destroy( var a : matrix);
var
j:Byte;
begin
with a do
begin
for j:=1 to rows do
FreeMem(ptr^[j],cols*sizeof(Integer));
FreeMem(ptr, rows*sizeof(pointer));
ptr:=nil;
end;
end;

to Albinos_x
Вообщето, уже давно существуют динамические массивы, о которых кстати и спрашивал decoder
to decoder
Да все так-же:

Код

var  v :array of array of Integer; ...  SetLength(v,3,5); // теперь v эквивалентен array [0..2] of array [0..4] of Integer;

Петрович

прошу прощения, я привёл пример из Turbo Paskal

Добавлено @ 02:02
PS:
Петрович
Но пример, как раз про динамические массивы

to Albinos_x

Цитата

Но пример, как раз про динамические массивы

"Что конкретно ты имела в виду?"
Что то я не понял, я по моему именно про них и рассказал ?)

Петрович

Цитата

"Что конкретно ты имела в виду?" Что то я не понял, я по моему именно про них и рассказал ?)

Во-первых: не "имела", а "имел".
Во-вторых: я привёл один из вариантов. В Паскале твой вариант не прокатит, но под Делфи проще использовать именно его. Но эффект от обеих методов будет одинаков.

Прошу не воспринимать как повод для драки .

Цитата

Во-первых: не "имела", а "имел".

Я специально взял фразу в кавычки, дабы подчеркнуть что это цитата из песенки. В следующий раз буду уточнять .

Цитата

В Паскале твой вариант не прокатит

Дык судя по наличию в вопросе упоминания функции setlength речь шла именно о Delphi. Особенно, учитывая что из приведенного в хелпе заголовка этой функции не очевидно что она может иметь переменное число параметров.

Петрович

Цитата

Дык судя по наличию в вопросе упоминания функции setlength речь шла именно о Delphi.

Я уже извинился за косяк.