glDeleteTextures gibt Speicher nicht frei

[turboPASCAL]

Mal so nebenbei, ich lösche die geladenen OpenGL-Texturen mit einem Einzeiler:

glDeleteTextures(TEXTURE_COUNT, @glTextures[0]); glTextures kann ein statyisches oder dyn. Array sein, welches die Texturen (die Adresse(n) derer) enthält.

Beispiel:

Delphi-Quellcode:

var
  glTextures: Array [0.. TEXTURE_COUNT - 1] of gluInt;

const
  TEXTURE_COUNT = 1;

  TEX_WHITE = 0;
  TEX_BLACK = 1;

//...
begin
  LoadTexture(TexturePath + 'Image1.jpg', glTextures[TEX_WHITE]);
  LoadTexture(TexturePath + 'Image2.jpg', glTextures[TEX_BLACK]);
end;