- function Int_GetExtensionString: AnsiString;
- var extensionCount : GLuint = 0;
- I : Integer;
- begin
- // generel extension string
- if GL_VERSION_3_0
- then
- begin
- if not Assigned(@glGetIntegerv) then glGetIntegerv := dglGetProcAddress('glGetIntegerv');
- if not Assigned(@glGetStringi) then glGetStringi := dglGetProcAddress('glGetStringi');
- result := '';
- if Assigned(@glGetIntegerv) and Assigned(@glGetStringi)
- then
- begin
- glGetIntegerv(GL_NUM_EXTENSIONS, @extensionCount);
- For I := 0 to extensionCount - 1 do
- result += #32 + PChar(glGetStringi(GL_EXTENSIONS, I));
- end;
- end
- else
- begin
- if not Assigned(@glGetString) then glGetString := dglGetProcAddress('glGetString');
- if Assigned(@glGetString)
- then result := glGetString(GL_EXTENSIONS)
- else result := '';
- end;