| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Tess - объекты
Hirara © (2002-12-25 22:08:00)Есть такой кусочек кода, он выдает ошибку , если убрать 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-27 08:41:00) [1]Ну а дальше ? Адрес-то какой ? Убедись, что "Seatch | Find Errors.." указывает именно на эту строку, если ввести тот самый адрес
Hirara (2002-12-26 22:25:00) [2]
> Digitman
совершенно верно
Digitman (2002-12-26 11:10:00) [3]
> он выдает ошибку
Какую ошибку-то ? Access Violation at address ... ?
| |
