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

Comparing ibx/trunk/fbintf/IBUtils.pas (file contents):
Revision 114 by tony, Thu Jan 18 14:37:40 2018 UTC vs.
Revision 115 by tony, Fri Jan 19 09:23:39 2018 UTC

# Line 415 | Line 415 | end;
415   function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;
416   begin
417    if (Dialect = 3) and
418 <    (IsReservedWord(Value) or not IsSQLIdentifier(Value)) then
418 >    (IsReservedWord(Value) or not IsSQLIdentifier(Value) or (AnsiUpperCase(Value) <> Value)) then
419       Result := '"' + Value + '"'
420    else
421      Result := Value

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines