kod rysowania textu OpenGL z C++ do Delphi

0

Mam małe pytanko. Potrzebuje wyświetlić w OpenGL text, szukałem w internecie ale wszystkie kody są w c++. A ja znam tylko delphi. Czy ktoś potrafi przetłumaczyć z C++ do Delphi? Z góry dziękuję.

void DrawString (int x, int y, char *string)
//polozenie napisu
glRasterpos2i(x,y);
//wyswietlenie napisu
int len = strlen(string);
for (int i = 0; i < len; i++)
glutBitmapcharakter(glut_bitmap_9_by_15,string[i]);
0

Udalo mi sie przetlumaczyc ten kod :d

procedure DrawString(X,Y: Integer; Text:Char);
var
len: Integer;
i: Integer;
begin
glRasterPos2i(X,Y);
len:=length(Text);
for i:=0 to len do
glutBitmapCharacter(GLUT_BITMAP_9_BY_15,Text[i]);
end;

Ale mam problem. w linij

glutBitmapCharacter(GLUT_BITMAP_9_BY_15,Text[i]);

wyskakuje blad:
user image

0

Jest taki gość o ksywie NeHe, który zadał sobie wiele trudu i napisał zajefajne tutki do GL'a. Poszukaj na necie. Przykłady są w kilku językach (programowania).

0

wielkie dzieki ;]

1 użytkowników online, w tym zalogowanych: 0, gości: 1