VPF::Массивы - Форум программистов

ImA

Дата 7.12.2007, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 8.12.2005

Репутация: нет
Всего: нет

Здравия желаю...
забивая массивы следующим образом:

Код


var       koord: array of array of double;
     soot: array of array of integer;
...................
SetLength(koord, j, 3);
 for i := 0 to j-1 do
  for k := 0 to 2 do
  begin
   koord[i, k]:=pmcoo[ii];
   inc(ii);
  end;
  ii:=0;
SetLength(soot, jj, 4);
 for i := 0 to jj-1 do
  for k := 0 to 3 do
  begin
   soot[i, k]:=round(pmsoo[ii]);
   inc(ii);
  end;

оказалось, что строка SetLength(soot, jj, 4); память под мой массив физически не выделяет, а лишь обозначает его логический размер. попыталась обозначит его физически:

Код


GetMem(koord,j*3);
 ZeroMemory(koord,j*3);
 SetLength(koord, j, 3);
и
GetMem(soot,jj*4);
 ZeroMemory(soot,jj*4);
SetLength(soot, jj, 4);

для того, чтобы в последствии воспользоватся этими массивами для вывода на экран фигуры:

Код


glBegin (GL_TRIANGLES);
  for i:=0 to High(soot)-1 do
    for k:= 0 to High(soot[i]) do begin
       glVertex3f(koord[soot[i,k]-1,0], koord[soot[i,k]-1,1],koord[soot[i,k]-1,2]);
  end;
 glEnd;

потому что номер строки с координатами, лежат в массиве soot
программа выдала ошибку: акесс виолатион...
пожалуста, подскажите, что не так

MetalFan

Дата 7.12.2007, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(ImA @ 7.12.2007, 12:02

)

оказалось, что строка SetLength(soot, jj, 4); память под мой массив физически не выделяет

и на основе чего такой странный и неправильный вывод?

--------------------

There are always someone smarter than you...

Alexeis

Дата 7.12.2007, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

MetalFan, оптимизатор может и не выделить если она не будет заюзана в функции, а так обязательно выделит.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »