- // Array anlegen
- type TOGLTexture = record
- Texture : TgluInt;
- end;
- var OGLTexture: array of TOGLTexture;
- //Texturen laden - Informationen zum Speicherort aus DB
- Procedure LoadTexture
- var i : integer;
- begin
- with DatenModul do
- begin
- TextureTable.First;
- while not TextureTable.Eof do
- begin
- inc(i);
- SetLength(OGLTexture,i); //Arraydimension anpassen
- LoadTEXTURE(TexturePath + TextureTableTextureName.value,OGLTexture[i].Texture,false);
- glBindTexture(GL_TEXTURE_2D,OGLTexture[i].Texture);
- TextureTable.Next;
- end;
- end;
- end
- // Textur den Darstellungsobjekten hinzufügen
- Procedure SetTexture
- begin
- glBindTexture(GL_TEXTURE_2D,gewuenschteTextureID);
- // Darstellung
- .
- .
- end;