--- ibx/trunk/fbintf/IBUtils.pas	2019/02/05 10:09:21	286
+++ ibx/trunk/fbintf/IBUtils.pas	2019/04/11 08:51:23	287
@@ -280,6 +280,7 @@ type
   sqltOpenBracket,
   sqltCloseBracket,
   sqltPipe,
+  sqltMinus,
   sqltConcatSymbol,
   sqltLT,
   sqltGT,
@@ -1036,7 +1037,7 @@ begin
       Result := Result + '/*' + TokenText + '*/';
 
     sqltCommentLine:
-      Result := Result + '//' + TokenText + LineEnding;
+      Result := Result + '--' + TokenText + LineEnding;
 
     sqltEOL:
       Result := Result + LineEnding;
@@ -1210,6 +1211,8 @@ begin
       Result := sqltOpenSquareBracket;
     ']':
       Result := sqltCloseSquareBracket;
+    '-':
+      Result := sqltMinus;
     '<':
       Result := sqltLT;
     '>':
@@ -1482,8 +1485,11 @@ begin
               GetNext;
               FState := stInComment;
             end
-            else
-            if FNextToken = sqltForwardSlash then
+          end;
+
+        sqltMinus:
+          begin
+            if FNextToken = sqltMinus then
             begin
               FString := '';
               GetNext;