mORMot and Open Source friends
Check-in [f2c2e35a50]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:{497} let SQL keywords check be a little less restrictive in TSQLRecord, so that SynDBExplorer runs without exception
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f2c2e35a502de1a2f1879434f165ac6e453a8954
User & Date: ab 2014-11-12 09:19:33
Context
2014-11-12
09:37
{498} ensure TServiceController.CreateNewService() won't allow to install the service on a network drive - see [f487d3de45] check-in: cdf6bb83f9 user: ab tags: trunk
09:19
{497} let SQL keywords check be a little less restrictive in TSQLRecord, so that SynDBExplorer runs without exception check-in: f2c2e35a50 user: ab tags: trunk
2014-11-11
18:01
{496} ensure ID/RowID or SQLite3 keyword are not used as TSQLRecord field name check-in: 7a030f9ede user: ab tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SQLite3/mORMot.pas.

34711
34712
34713
34714
34715
34716
34717
34718
34719
34720
34721
34722
34723
34724
34725
34726
  finally
    LeaveCriticalSection(fLock);
  end;
end;

const
  SQLITE3_KEYWORDS =
  ' abort after and attach before cluster conflict copy database delete delimiters'+
  ' detach each explain fail from glob ignore insert instead isnull limit not notnull'+
  ' offset or pragma raise replace row select statement temp trigger vacuum where ';

constructor TSQLRecordProperties.Create(aTable: TSQLRecordClass);

  procedure AddParentsFirst(aClassType: TClass);
  var CP: PClassProp;
      P: PPropInfo;






|
|







34711
34712
34713
34714
34715
34716
34717
34718
34719
34720
34721
34722
34723
34724
34725
34726
  finally
    LeaveCriticalSection(fLock);
  end;
end;

const
  SQLITE3_KEYWORDS =
  ' abort after and attach before cluster conflict copy delete delimiters detach'+
  ' each explain fail from glob ignore insert instead isnull limit not notnull'+
  ' offset or pragma raise replace row select statement temp trigger vacuum where ';

constructor TSQLRecordProperties.Create(aTable: TSQLRecordClass);

  procedure AddParentsFirst(aClassType: TClass);
  var CP: PClassProp;
      P: PPropInfo;

Changes to SynopseCommit.inc.

1
'1.18.496'
|
1
'1.18.497'