Pascal eXtended Library (aka Asphyre) released!

[devchenxip]

First chance exception at $00017D80. Exception class EAccessViolation with message 'Access violation at address 0058520B, accessing address 00000000'. Process client_mobile (38

target platform：OS X - MacOSX 10.9.5

procedure TExtensions.DecodeVersionString;
var
  VersionText: TExtString;
  CharPos: Integer;
begin
  VersionText := GetGLString(GL_VERSION);  //VersionText = ''  ??


  CharPos := 1;


  FMajorVersion := StrToIntDef(ExtractNumberWord(VersionText, CharPos), 0);


  if CharPos <= Length(VersionText) then
    FMinorVersion := StrToIntDef(ExtractNumberWord(VersionText, CharPos, 1), 0);
end;