* fcl-db: cosmetic

git-svn-id: trunk@27856 -

packages/fcl-db/src/sql/fpsqlparser.pas

@@ -2497,7 +2497,7 @@ begin
   try
   {$ifdef debugexpr}  Writeln('Primitive ',TokenInfos[CurrentToken],': ',CurrentTokenString);{$endif debugexpr}
     Case CurrentToken of
-      tsqlintegerNumber,
+      tsqlIntegerNumber,
       tsqlString,
       tsqlFloatNumber,
       tsqlNull, // True and False belong here
@@ -2699,7 +2699,7 @@ begin
     Result:=D;
     end
   else
-    begin
+    begin //alter statement
     A:=Nil;
     NN:=False;
     try

packages/fcl-db/src/sql/fpsqlscanner.pp

@@ -1,6 +1,6 @@
 {
     This file is part of the Free Component Library
-    Copyright (c) 2010 by the Free Pascal development team
+    Copyright (c) 2010-2014 by the Free Pascal development team
 
     SQL source lexical scanner
 
@@ -71,9 +71,9 @@ type
 const
   FirstKeyword = tsqlAll;
   LastKeyWord = tsqlWhen;
-  sqlComparisons = [tsqleq,tsqlGE,tsqlLE,tsqlNE,tsqlGT,tsqlLT,tsqlIn, tsqlis,
-                    tsqlbetween,tsqlLike,tsqlContaining,tsqlStarting,tsqlnot];
-  sqlInvertableComparisons = [tsqlLike,tsqlContaining,tsqlStarting,tsqlin,tsqlis, tsqlbetween];
+  sqlComparisons = [tsqleq,tsqlGE,tsqlLE,tsqlNE,tsqlGT,tsqlLT,tsqlIn,tsqlIS,
+                    tsqlbetween,tsqlLike,tsqlContaining,tsqlStarting,tsqlNOT];
+  sqlInvertableComparisons = [tsqlLike,tsqlContaining,tsqlStarting,tsqlin,tsqlIS, tsqlbetween];
 
   // Strings that represent tokens in TSQLToken
   TokenInfos: array[TSQLToken] of string = ('unknown',
@@ -632,7 +632,7 @@ begin
     Move(TokenStart^,FCurTokenString[1],Len);
   S:=UpperCase(FCurTokenString);
   // Check if this is a keyword or identifier
-  // !!!: Optimize this!
+  // to do: Optimize this!
   If FKeyWords.Count=0 then
     BuildKeyWords;
   P:=FKeyWords.Find(S);

packages/fcl-db/src/sql/fpsqltree.pp

@@ -4302,7 +4302,7 @@ end;
 function TSQLDatabaseFileInfo.GetAsSQL(Options: TSQLFormatOptions;
   AIndent: Integer): TSQLStringType;
 begin
-  Result:=SQlKeyWord('FILE ',OPtions)+SQLFormatString(FileName,Options);
+  Result:=SQlKeyWord('FILE ',Options)+SQLFormatString(FileName,Options);
   If Length>0 then
     Result:=Result+SQlKeyWord(' LENGTH ',Options)+IntToStr(Length)+SQlKeyWord(' PAGES',Options)
   else if (StartPage>0) then