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

совершенно верно

Ну а дальше ? Адрес-то какой ? Убедись, что "Seatch | Find Errors.." указывает именно на эту строку, если ввести тот самый адрес

Tess - объекты Найти похожие ветки