Developing.ru

Подскажите начинающему чайнику, плззз...
Возможно ли в Дельфи создавать многомерные динамические массивы?
Если возможно, то каков синтаксис?

Пробую:

var
a : array of integer;
i, j, N, M : integer;
begin
N:=StrToInt(iEdit.Text);
M:=StrToInt(jEdit.Text);
SetLength.(a,N,M);
...
end;

Выдает ошибку.

А если то же самое сделать для одномерого массива, то, вроде как, работает....

Вариант 1 (GetMem):

Код: Выделить всё

implementation
var
  a : array of array of byte;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,v:integer;
begin
  randomize;
  //Заполняем
  for i:=0 to 9 do
    for j:=0 to 9 do
      a[i,j]:=Random(256);
  label1.Caption:='';
  //Выводим
  for i:=0 to 9 do
    begin
      for j:=0 to 9 do label1.Caption:=label1.Caption+IntToStr(a[i,j])+' ';
      label1.Caption:=label1.Caption+#13#10;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  //Выделяем память
  GetMem(a,10);
  for i:=0 to 9 do GetMem(a[i],10);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //Освобождаем память
  GetMem(a,0);
end;

Вариант 2 (SetLength):

Код: Выделить всё

procedure TForm1.Button2Click(Sender: TObject);
var
  a : array of array of byte;
  i,j:integer;
begin
  randomize;
  SetLength(a,10,10);
  //Заполняем
  for i:=0 to 9 do
    for j:=0 to 9 do
      a[i,j]:=Random(256);
  label1.Caption:='';
  //Выводим
  for i:=0 to 9 do
    begin
      for j:=0 to 9 do label1.Caption:=label1.Caption+IntToStr(a[i,j])+' ';
      label1.Caption:=label1.Caption+#13#10;
    end;
  SetLength(a,0,0);
end;

ps: Если тип, например, Integer, тогда

Код: Выделить всё

 for i:=0 to 9 do GetMem(a[i],10*SizeOf(Integer));

Спасибо! Я поняла в чем дело!
a: array of array ...

я просто НЕдинамические массивы всегда задавала
"а: array[0...50,0...100] of... "
Поэтому и не подумала написать "array of array"..

А про GetMem я и не знала... пошла разбираться с этим способом - вдруг пригодится

//Освобождаем память
GetMem(a,0);

:-0 а не FreeMem????

можно и так:

Код: Выделить всё

type
  tArrItem = array of Integer;

var
  arr: array of tArrItem;
begin
  SetLength(arr,2);
  SetLength(arr[0],10);
  SetLength (arr[1],4);
end;

Игорь Акопян писал(а):
//Освобождаем память
GetMem(a,0)]
:-0 а не FreeMem????

Я тоже так думаю, но на практике ошибку выдает

Blood_Magic, ты не напутал насчет GetMem для динамических массивов?
Правильный вариант №2.

Blood_Magic, может ошибка из-за того, что надо сначала поФриМемить в цикле все выделенные ранее элементы?
ЗЫ
Я бы доваил ещё 3-тий вариант собсно Variant

RTFM!!! (Delphi Help)

Код: Выделить всё

var

  A: Variant;
begin
  A := VarArrayCreate([0, 4], varVariant);
  A[0] := 1;
  A[1] := 1234.5678;
  A[2] := 'Hello world';
  A[3] := True;
  A[4] := VarArrayOf([1, 10, 100, 1000]);
  WriteLn(A[2]);	{ Hello world }
  WriteLn(A[4][2]);	{ 100 }

end;