sql parser: change Functions to Properties for better debugging

git-svn-id: trunk@46420 -

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

@@ -169,8 +169,8 @@ Type
     Function ParseScript(AllowPartial : Boolean) : TSQLElementList; deprecated 'use options';
     Function ParseScript(aOptions : TParserOptions = []) : TSQLElementList;
     // Auxiliary stuff
-    Function CurrentToken : TSQLToken;
-    Function CurrentTokenString : String;
+    Property CurrentToken : TSQLToken read FCurrent;
+    Property CurrentTokenString : String read FCurrentString;
     // Gets next token; also updates current token
     Function GetNextToken : TSQLToken;
     // Looks at next token without changing current token
@@ -4062,16 +4062,6 @@ begin
   end;
 end;
 
-function TSQLParser.CurrentToken: TSQLToken;
-begin
-  Result:=FCurrent;
-end;
-
-function TSQLParser.CurrentTokenString: String;
-begin
-  Result:=FCurrentString;
-end;
-
 function TSQLParser.GetNextToken: TSQLToken;
 begin
   FPrevious:=FCurrent;