ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/IBUtils.pas
(Generate patch)

Comparing ibx/trunk/fbintf/IBUtils.pas (file contents):
Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC vs.
Revision 287 by tony, Thu Apr 11 08:51:23 2019 UTC

# Line 280 | Line 280 | type
280    sqltOpenBracket,
281    sqltCloseBracket,
282    sqltPipe,
283 +  sqltMinus,
284    sqltConcatSymbol,
285    sqltLT,
286    sqltGT,
# Line 1036 | Line 1037 | begin
1037        Result := Result + '/*' + TokenText + '*/';
1038  
1039      sqltCommentLine:
1040 <      Result := Result + '//' + TokenText + LineEnding;
1040 >      Result := Result + '--' + TokenText + LineEnding;
1041  
1042      sqltEOL:
1043        Result := Result + LineEnding;
# Line 1210 | Line 1211 | begin
1211        Result := sqltOpenSquareBracket;
1212      ']':
1213        Result := sqltCloseSquareBracket;
1214 +    '-':
1215 +      Result := sqltMinus;
1216      '<':
1217        Result := sqltLT;
1218      '>':
# Line 1482 | Line 1485 | begin
1485                GetNext;
1486                FState := stInComment;
1487              end
1488 <            else
1489 <            if FNextToken = sqltForwardSlash then
1488 >          end;
1489 >
1490 >        sqltMinus:
1491 >          begin
1492 >            if FNextToken = sqltMinus then
1493              begin
1494                FString := '';
1495                GetNext;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines