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

[arhimag]

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

[hardcase]

Ничё-се скока кнопок!
Как в тебя стока влезает-то!
А если их всех в рантайме создать и потом Refresh немного упростить, т.е. прогнать всё в цикле. Подозреваю, у тебя глюки именно из-за такого нереального количества кнопок.


позже добавлено:
вот и ошибочка - массив-то нада по ссылке передавать!

procedure  initmap(x,y,z:integer; var map:Tmap);
var i,j,k:integer;
begin
    map:=nil;
    Setlength(map,x,y,z);
    for I:= 1 to x-1 do
      for j:= 1 to y-1 do
        for k:= 1 to z-1  do
        map[i, k, j]:='1';

end;

кроме того, у тебя при обновлении кнопок проиходит обращение к map[x+N,y+M,...] элементу. а если всего было 10 элементов, а x = 8, и N = 3? вот и обращение по индексу 11 - а его нету...

Сообщение отредактировано: volvo - 2.11.2006 13:52