OpenGL, функция ругается

[Seran4ek]

Добрый вечер. В чом суть, хочу написать процедуру которая будет вызываться с 6-ю параметрами и строить прямую(первые три-это координаты первой точки, вторые три- коорд 2й точки). я конечно могу строить каждую отдельно, но вот если их много то это геморно, да и вот столкнулся с проблемой не хочу отступать.

procedure DrawLine(var DL_x1,DL_y1,DL_z1,DL_x2,DL_y2,DL_z2:GLdouble);
begin
 glLineWidth(50);
  glEnable(GL_LINE_SMOOTH);
  glBegin(GL_LINES);
  glColor3d(1,0,0);
  glVertex3d(DL_x1,DL_y1,DL_z1); // первая точка
  glColor3d(0,1,0);
  glVertex3d(DL_x2,DL_y2,DL_z2);   // вторая точка
  glEnd();
end;

вызываю так:

 DrawLine(-2,1,0,-2,7,2);

и компилятор выдает 2 ошибки одинаковые:

[Error] Unit1.pas(115): Types of actual and formal var parameters must be identical

как я ток типы не пытался менять. не пойму в чом соль Т_Т

[Пепел Феникса]

var
убрать из заголовка функции.

[Seran4ek]

Пепел Феникса

оо! заработало))спасибо
а не могли бы вы сказать почему так было? чтобы в будущем не напоротся)

[Пепел Феникса]

var указывает что нужно передать ссылку на переменную
то есть её адрес, а константа не есть переменная.
вообще это нужно когда функция/процедура меняет свои аргументы

[VladoBossz]

Почему при компиляции этого кода ошибка возникает????

void __fastcall TForm1::PixelFormat

int nPixelFormat;
TPixelFormatDescriptor pfd;
FillCharpfd,Sizeofpfd,0; // pfd .
pfd->nSize=sizeofpfd; // .
pfd->nVersion=1; //
pfd->dwFlags=PFD_DOUBLEBUFFERPFD_SUPPOR T_OPENGL
PFD_DRAW_TO_WINDOW; //
pfd->iPixelType=PFD_TYPE_RGBA; //
pfd->cColorBits=24; //
pfd->cAlphaBits=64;
pfd->cAccumBits=64;
pfd->cDepthBits=32;
pfd->cStencilBits=64;
pfd->iLayerType=PFD_MAIN_PLANE;
nPixelFormat=ChoosePixelFormatDC,pf d;
ifnPixelFormat<>0
SetPixelFormatDC,nPixelFormat,pfd;

[Selestis]

Потому что это код С++ ;-)