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

Comparing ibx/trunk/runtime/IBUtils.pas (file contents):
Revision 4 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC

# Line 28 | Line 28
28  
29   unit IBUtils;
30  
31 + {$Mode Delphi}
32 +
33   interface
34  
35   uses
36 <  Windows, Classes, SysUtils;
36 > {$IFDEF LINUX }
37 >  unix,
38 > {$ELSE}
39 >  Windows,
40 > {$ENDIF}
41 >  Classes, SysUtils;
42  
43   const
44    CRLF = #13 + #10;
# Line 48 | Line 55 | function StripString(st: String; CharsTo
55   function FormatIdentifier(Dialect: Integer; Value: String): String;
56   function FormatIdentifierValue(Dialect: Integer; Value: String): String;
57   function ExtractIdentifier(Dialect: Integer; Value: String): String;
58 + function QuoteIdentifier(Dialect: Integer; Value: String): String;
59  
60   implementation
61  
# Line 143 | Line 151 | begin
151    Result := Value;
152   end;
153  
154 + function QuoteIdentifier(Dialect: Integer; Value: String): String;
155 + begin
156 +  if Dialect = 1 then
157 +    Value := AnsiUpperCase(Trim(Value))
158 +  else
159 +    Value := '"' + Value + '"';
160 +  Result := Value;
161 + end;
162 +
163   end.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines