- "rowCount": is added in TSQLDBStatement.FetchAllToJSON at the end of the
    non-expanded JSON content, if needed - improves client parsing performance
  - TSQLDBConnectionProperties.SQLSelectAll() now handles spaces in table names
  - TSQLDBStatement.GetParamValueAsText() will truncate to a given number of
    chars the returned text
  - added DoNotFletchBlobs optional parameter to TSQLDBStatement.FetchAllAsJSON()
    FetchAllToJSON(), and ColumnsToJSON() methods (used e.g. by SynDBExplorer)
  - added generic ReplaceParamsByNames() function

  - added missing ColumnToVarData() method to ISQLDBRows interface
  - added TSQLDBConnection[Properties].OnProgress callback event handler
  - now trim any spaces when retrieving database schema text values
  - fixed ticket [4c68975022] about broken SQL statement when logging active
  - fixed ticket [545fbe7579] about TSQLDBConnection.LastErrorMessage not reset
  - fixed potential GPF after TSQLDBConnectionProperties.ExecuteNoResult() method call
  - fixed TSQLDBConnectionProperties.SQLGetField() returned value for dFirebird
................................................................................
    c: array[0..3] of AnsiChar;
    tmp: RawUTF8;
const SQL_KEYWORDS: array[0..17] of AnsiChar = 'ASBYIFINISOFONORTO';
begin
  result := 0;
  L := Length(aSQL);
  while (L>0) and (aSQL[L] in [#1..' ',';']) do


    dec(L); // trim ' ' or ';' right (last ';' could be found incorrect)
  if PosEx('?',aSQL)>0 then begin
    // change ? into :AA :BA ..
    c := ':AA';
    i := 0;
    P := pointer(aSQL);
    if P<>nil then
    repeat

  - "rowCount": is added in TSQLDBStatement.FetchAllToJSON at the end of the
    non-expanded JSON content, if needed - improves client parsing performance
  - TSQLDBConnectionProperties.SQLSelectAll() now handles spaces in table names
  - TSQLDBStatement.GetParamValueAsText() will truncate to a given number of
    chars the returned text
  - added DoNotFletchBlobs optional parameter to TSQLDBStatement.FetchAllAsJSON()
    FetchAllToJSON(), and ColumnsToJSON() methods (used e.g. by SynDBExplorer)
  - added generic ReplaceParamsByNames() function, which allows 'END;' at the
    end of a statement to fulfill ticket [4a7da3c6a1]
  - added missing ColumnToVarData() method to ISQLDBRows interface
  - added TSQLDBConnection[Properties].OnProgress callback event handler
  - now trim any spaces when retrieving database schema text values
  - fixed ticket [4c68975022] about broken SQL statement when logging active
  - fixed ticket [545fbe7579] about TSQLDBConnection.LastErrorMessage not reset
  - fixed potential GPF after TSQLDBConnectionProperties.ExecuteNoResult() method call
  - fixed TSQLDBConnectionProperties.SQLGetField() returned value for dFirebird
................................................................................
    c: array[0..3] of AnsiChar;
    tmp: RawUTF8;
const SQL_KEYWORDS: array[0..17] of AnsiChar = 'ASBYIFINISOFONORTO';
begin
  result := 0;
  L := Length(aSQL);
  while (L>0) and (aSQL[L] in [#1..' ',';']) do
    if (aSQL[L]=';') and (L>5) and IdemPChar(@aSQL[L-3],'END') then
      break else // allows 'END;' at the end of a statement
      dec(L);    // trim ' ' or ';' right (last ';' could be found incorrect)
  if PosEx('?',aSQL)>0 then begin
    // change ? into :AA :BA ..
    c := ':AA';
    i := 0;
    P := pointer(aSQL);
    if P<>nil then
    repeat