How to get supported extensions

To find the FAQ/OpenGL extensions your 3D card supports use the glGetString(GL_EXTENSIONS) command. The following is a sample procedure to find supported extensions for TGLSceneBuffer.

procedure ShowExtensions(aSceneBuffer: TGLSceneBuffer);var   ExtStr: string;

   stringlist: TStringList;

   i: integer;

begin   StringList := TStringList.create;

   aSceneBuffer.RenderingContext.Activate;

   ExtStr := PChar(glGetString(GL_EXTENSIONS));

   aSceneBuffer.RenderingContext.Deactivate;

   StringList.Clear;

   while Length(ExtStr) > 0 do begin

     I := Pos(' ', ExtStr);

     if I = 0 then I := 255;

     StringList.Add(Copy(ExtStr, 1, I-1));

     Delete(ExtStr, 1, I);

   end;

   ShowMessage(StringList.text);

   StringList.Free;

end;

//then simmply call this function with bufferShowExtensions(GLSceneViewer1.Buffer);