Форум: "Media";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
ВнизTess - объекты Найти похожие ветки
← →
Hirara (2002-12-25 22:08) [0]Есть такой кусочек кода, он выдает ошибку , если убрать try.. причем ошибка вылетает именно на этой строчке, а на следующих трех - никогда. А вообще нужно сделать тез - объект на котором текстура будет, выручайте, завтра сдавать надо
Procedure Tez;
var v : Array[0..3] of PglDouble;
Tess : ^GLUTesselator;
I : Integer;
Begin
RandoMize;
New(Tess);
tess^ := gluNewTess;
New(v[0]);
New(v[1]);
New(v[2]);
New(v[3]);
gluTessBeginPolygon(tess^);
For i:=0 to 3 do
Begin
Try
v[0]^:=(1+Random(10));
Except
ShowMessage("Fuck");
End;
v[1]^:=(1+Random(10));
v[2]^:=(1+Random(10));
v[3]^:=(1+Random(10));
gluTessVertex(tess^, v[i], V[i] );
{gluTessVertex(tess^, v[2], NULL);
gluTessVertex(tess^, v[3], NULL);
gluTessVertex(tess^, v[4], NULL);
gluTessVertex(tess^, v[5], NULL);
gluTessVertex(tess^, v[6], NULL);
gluTessVertex(tess^, v[7], NULL);
gluTessVertex(tess^, v[8], NULL);
gluTessVertex(tess^, v[9], NULL);
gluTessVertex(tess^, v[10], NULL);}
End;
gluTessEndPolygon(tess^);
V[1]:=Nil; V[2]:=Nil; V[3]:=Nil;V[0]:=Nil;
Dispose(v[0]);
Dispose(v[1]);
Dispose(v[2]);
Dispose(v[3]);
Tess:=Nil;
Dispose(Tess);
End;
← →
Digitman (2002-12-26 11:10) [1]
> он выдает ошибку
Какую ошибку-то ? Access Violation at address ... ?
← →
Hirara (2002-12-26 22:25) [2]
> Digitman
совершенно верно
← →
Digitman (2002-12-27 08:41) [3]Ну а дальше ? Адрес-то какой ? Убедись, что "Seatch | Find Errors.." указывает именно на эту строку, если ввести тот самый адрес
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c