Array Of Array Of Array Of Char Опции

[arhimag]

Помогите, мне нужны парочка процедур, использующих стандартные дингамические массивы мне нужен трехмерный массив. и процедуры
1 Очищает весь массив и задает его размеры как кубика: Х:У:Z подается нап вход процедуры и сам массив
2. вывоит элемент из этого массива с координатами XYZ
3. Меня ет значение
снизу не получившиеся попытка.

[arhimag]

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

Сообщение отредактировано: arhimag - 8.04.2006 21:04

[volvo]

он мне пишет что обрашение к пустому разделу памяти

Правильно пишет... Вот так делай:

procedure  initmap(x,y,z:integer; map:Tmap);
var i,j:integer;
begin
  map:=nil;
  setlength(map,x);

  for i:= 0 to x-1 do
    setlength(map[i],y);

  for i:= 0 to x-1 do
    for j:= 0 to y-1 do
      setlength(map[i][j],z);
end;