trunk/fbintf/IBUtils.pas

{************************************************************************}
{                                                                        }
{       Borland Delphi Visual Component Library                          }
{       InterBase Express core components                                }
{                                                                        }
{       Copyright (c) 1998-2000 Inprise Corporation                      }
{                                                                        }
{    InterBase Express is based in part on the product                   }
{    Free IB Components, written by Gregory H. Deatz for                 }
{    Hoagland, Longo, Moran, Dunst & Doukas Company.                     }
{    Free IB Components is used under license.                           }
{                                                                        }
{    The contents of this file are subject to the InterBase              }
{    Public License Version 1.0 (the "License"); you may not             }
{    use this file except in compliance with the License. You            }
{    may obtain a copy of the License at http://www.Inprise.com/IPL.html }
{    Software distributed under the License is distributed on            }
{    an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either              }
{    express or implied. See the License for the specific language       }
{    governing rights and limitations under the License.                 }
{    The Original Code was created by InterBase Software Corporation     }
{       and its successors.                                              }
{    Portions created by Inprise Corporation are Copyright (C) Inprise   }
{       Corporation. All Rights Reserved.                                }
{    Contributor(s): Jeff Overcash                                       }
{                                                                        }
{    IBX For Lazarus (Firebird Express)                                  }
{    Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
{    Portions created by MWA Software are copyright McCallum Whyman      }
{    Associates Ltd 2011                                                 }
{                                                                        }
{************************************************************************}

unit IBUtils;
{$IFDEF MSWINDOWS} 
{$DEFINE WINDOWS} 
{$ENDIF}

{$IFDEF FPC}
{$Mode Delphi}
{$codepage UTF8}
{$ENDIF}

interface

uses Classes, SysUtils;

const
  CRLF = #13 + #10;
  CR   = #13;
  LF   = #10;
  TAB  = #9;
  NULL_TERMINATOR = #0;

  sqlReservedWords: array [0..197] of string = (
  'ADD',
  'ADMIN',
  'ALL',
  'ALTER',
  'AND',
  'ANY',
  'AS',
  'AT',
  'AVG',
  'BEGIN',
  'BETWEEN',
  'BIGINT',
  'BIT_LENGTH',
  'BLOB',
  'BOOLEAN',
  'BOTH',
  'BY',
  'CASE',
  'CAST',
  'CHAR',
  'CHAR_LENGTH',
  'CHARACTER',
  'CHARACTER_LENGTH',
  'CHECK',
  'CLOSE',
  'COLLATE',
  'COLUMN',
  'COMMIT',
  'CONNECT',
  'CONSTRAINT',
  'CORR',
  'COUNT',
  'COVAR_POP',
  'COVAR_SAMP',
  'CREATE',
  'CROSS',
  'CURRENT',
  'CURRENT_CONNECTION',
  'CURRENT_DATE',
  'CURRENT_ROLE',
  'CURRENT_TIME',
  'CURRENT_TIMESTAMP',
  'CURRENT_TRANSACTION',
  'CURRENT_USER',
  'CURSOR',
  'DATE',
  'DAY',
  'DEC',
  'DECIMAL',
  'DECLARE',
  'DEFAULT',
  'DELETE',
  'DELETING',
  'DETERMINISTIC',
  'DISCONNECT',
  'DISTINCT',
  'DOUBLE',
  'DROP',
  'ELSE',
  'END',
  'ESCAPE',
  'EXECUTE',
  'EXISTS',
  'EXTERNAL',
  'EXTRACT',
  'FALSE',
  'FETCH',
  'FILTER',
  'FLOAT',
  'FOR',
  'FOREIGN',
  'FROM',
  'FULL',
  'FUNCTION',
  'GDSCODE',
  'GLOBAL',
  'GRANT',
  'GROUP',
  'HAVING',
  'HOUR',
  'IN',
  'INDEX',
  'INNER',
  'INSENSITIVE',
  'INSERT',
  'INSERTING',
  'INT',
  'INTEGER',
  'INTO',
  'IS',
  'JOIN',
  'LEADING',
  'LEFT',
  'LIKE',
  'LONG',
  'LOWER',
  'MAX',
  'MAXIMUM_SEGMENT',
  'MERGE',
  'MIN',
  'MINUTE',
  'MONTH',
  'NATIONAL',
  'NATURAL',
  'NCHAR',
  'NO',
  'NOT',
  'NULL',
  'NUMERIC',
  'OCTET_LENGTH',
  'OF',
  'OFFSET',
  'ON',
  'ONLY',
  'OPEN',
  'OR',
  'ORDER',
  'OUTER',
  'OVER',
  'PARAMETER',
  'PLAN',
  'POSITION',
  'POST_EVENT',
  'PRECISION',
  'PRIMARY',
  'PROCEDURE',
  'RDB$DB_KEY',
  'RDB$RECORD_VERSION',
  'REAL',
  'RECORD_VERSION',
  'RECREATE',
  'RECURSIVE',
  'REFERENCES',
  'REGR_AVGX',
  'REGR_AVGY',
  'REGR_COUNT',
  'REGR_INTERCEPT',
  'REGR_R2',
  'REGR_SLOPE',
  'REGR_SXX',
  'REGR_SXY',
  'REGR_SYY',
  'RELEASE',
  'RETURN',
  'RETURNING_VALUES',
  'RETURNS',
  'REVOKE',
  'RIGHT',
  'ROLLBACK',
  'ROW',
  'ROW_COUNT',
  'ROWS',
  'SAVEPOINT',
  'SCROLL',
  'SECOND',
  'SELECT',
  'SENSITIVE',
  'SET',
  'SIMILAR',
  'SMALLINT',
  'SOME',
  'SQLCODE',
  'SQLSTATE',
  'SQLSTATE',
  'START',
  'STDDEV_POP',
  'STDDEV_SAMP',
  'SUM',
  'TABLE',
  'THEN',
  'TIME',
  'TIMESTAMP',
  'TO',
  'TRAILING',
  'TRIGGER',
  'TRIM',
  'TRUE',
  'UNION',
  'UNIQUE',
  'UNKNOWN',
  'UPDATE',
  'UPDATING',
  'UPPER',
  'USER',
  'USING',
  'VALUE',
  'VALUES',
  'VAR_POP',
  'VAR_SAMP',
  'VARCHAR',
  'VARIABLE',
  'VARYING',
  'VIEW',
  'WHEN',
  'WHERE',
  'WHILE',
  'WITH',
  'YEAR'
  );

function Max(n1, n2: Integer): Integer;
function Min(n1, n2: Integer): Integer;
function RandomString(iLength: Integer): AnsiString;
function RandomInteger(iLow, iHigh: Integer): Integer;
function StripString(st: AnsiString; CharsToStrip: AnsiString): AnsiString;
function FormatIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
function FormatIdentifierValue(Dialect: Integer; Value: AnsiString): AnsiString;
function FormatIdentifierValueNC(Dialect: Integer; Value: AnsiString): AnsiString;
function ExtractIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
function QuoteIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;
function Space2Underscore(s: AnsiString): AnsiString;
function SQLSafeString(const s: AnsiString): AnsiString;
function IsSQLIdentifier(Value: AnsiString): boolean;

implementation

function Max(n1, n2: Integer): Integer;
begin
  if (n1 > n2) then
    result := n1
  else
    result := n2;
end;

function Min(n1, n2: Integer): Integer;
begin
  if (n1 < n2) then
    result := n1
  else
    result := n2;
end;

function RandomString(iLength: Integer): AnsiString;
begin
  result := '';
  while Length(result) < iLength do
    result := result + IntToStr(RandomInteger(0, High(Integer)));
  if Length(result) > iLength then
    result := Copy(result, 1, iLength);
end;

function RandomInteger(iLow, iHigh: Integer): Integer;
begin
  result := Trunc(Random(iHigh - iLow)) + iLow;
end;

function StripString(st: AnsiString; CharsToStrip: AnsiString): AnsiString;
var
  i: Integer;
begin
  result := '';
  for i := 1 to Length(st) do begin
    if AnsiPos(st[i], CharsToStrip) = 0 then
      result := result + st[i];
  end;
end;

function FormatIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
begin
  Value := Trim(Value);
  if Dialect = 1 then
    Value := AnsiUpperCase(Value)
  else
    if (Value <> '') and (Value[1] = '"') then
      Value := '"' + StringReplace (TrimRight(Value), '"', '""', [rfReplaceAll]) + '"'
    else
      Value := AnsiUpperCase(Value);
  Result := Value;
end;

function FormatIdentifierValue(Dialect: Integer; Value: AnsiString): AnsiString;
begin
  Value := Trim(Value);
  if Dialect = 1 then
    Value := AnsiUpperCase(Value)  
  else
  begin
    if (Value <> '') and (Value[1] = '"') then
    begin
      Delete(Value, 1, 1);
      Delete(Value, Length(Value), 1);
      Value := StringReplace (Value, '""', '"', [rfReplaceAll]);
    end
    else
      Value := AnsiUpperCase(Value);
  end;
  Result := Value;
end;

function FormatIdentifierValueNC(Dialect: Integer; Value: AnsiString): AnsiString;
begin
  Value := Trim(Value);
  if Dialect = 1 then
    Value := AnsiUpperCase(Value)
  else
  begin
    if (Value <> '') and (Value[1] = '"') then
    begin
      Delete(Value, 1, 1);
      Delete(Value, Length(Value), 1);
      Value := AnsiUpperCase(StringReplace (Value, '""', '"', [rfReplaceAll]));
    end
    else
      Value := AnsiUpperCase(Value);
  end;
  Result := Value;
end;

function ExtractIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
begin
  Value := Trim(Value);
  if Dialect = 1 then
    Value := AnsiUpperCase(Value)
  else
  begin
    if (Value <> '') and (Value[1] = '"') then
    begin
      Delete(Value, 1, 1);
      Delete(Value, Length(Value), 1);
      Value := StringReplace (Value, '""', '"', [rfReplaceAll]);
    end
    else
      Value := AnsiUpperCase(Value);
  end;
  Result := Value;
end;

function IsReservedWord(w: AnsiString): boolean;
var i: integer;
begin
     Result := true;
     for i := 0 to Length(sqlReservedWords) - 1 do
         if w = sqlReservedWords[i] then
            Exit;
     Result := false;
end;

function QuoteIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
begin
  if Dialect = 1 then
    Value := AnsiUpperCase(Trim(Value))
  else
    Value := '"' + Value + '"';
  Result := Value;
end;

const
  ValidSQLIdentifierChars = ['A'..'Z','a'..'z','0'..'9','_','$'];

function IsSQLIdentifier(Value: AnsiString): boolean;
var i: integer;
begin
  Result := false;
  for i := 1 to Length(Value) do
    if not (Value[i] in ValidSQLIdentifierChars) then Exit;
  Result := true;
end;

function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;
begin
  if (Dialect = 3) and
    (IsReservedWord(Value) or not IsSQLIdentifier(Value)) then
     Result := '"' + Value + '"'
  else
    Result := Value
end;

function Space2Underscore(s: AnsiString): AnsiString;
var
   k: integer;
begin
     Result := s;
     for k := 1 to Length(s) do
         if not (Result[k] in ['0'..'9','A'..'Z','_','$'])  then
            Result[k] := '_';
end;

function SQLSafeString(const s: AnsiString): AnsiString;
begin
  Result := StringReplace(s,'''','''''',[rfReplaceAll]);
end;

end.
Revision:	107
Committed:	Thu Jan 18 14:37:40 2018 UTC (6 years, 10 months ago) by tony
Content type:	text/x-pascal
File size:	10024 byte(s)
Log Message:	Fixes merged
#	User	Rev	Content
1	tony	45	{************************************************************************}
2			{ }
3			{ Borland Delphi Visual Component Library }
4			{ InterBase Express core components }
5			{ }
6			{ Copyright (c) 1998-2000 Inprise Corporation }
7			{ }
8			{ InterBase Express is based in part on the product }
9			{ Free IB Components, written by Gregory H. Deatz for }
10			{ Hoagland, Longo, Moran, Dunst & Doukas Company. }
11			{ Free IB Components is used under license. }
12			{ }
13			{ The contents of this file are subject to the InterBase }
14			{ Public License Version 1.0 (the "License"); you may not }
15			{ use this file except in compliance with the License. You }
16			{ may obtain a copy of the License at http://www.Inprise.com/IPL.html }
17			{ Software distributed under the License is distributed on }
18			{ an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either }
19			{ express or implied. See the License for the specific language }
20			{ governing rights and limitations under the License. }
21			{ The Original Code was created by InterBase Software Corporation }
22			{ and its successors. }
23			{ Portions created by Inprise Corporation are Copyright (C) Inprise }
24			{ Corporation. All Rights Reserved. }
25			{ Contributor(s): Jeff Overcash }
26			{ }
27			{ IBX For Lazarus (Firebird Express) }
28			{ Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29			{ Portions created by MWA Software are copyright McCallum Whyman }
30			{ Associates Ltd 2011 }
31			{ }
32			{************************************************************************}
33
34			unit IBUtils;
35	tony	56	{$IFDEF MSWINDOWS}
36			{$DEFINE WINDOWS}
37			{$ENDIF}
38	tony	45
39			{$IFDEF FPC}
40			{$Mode Delphi}
41			{$codepage UTF8}
42			{$ENDIF}
43
44			interface
45
46	tony	56	uses Classes, SysUtils;
47	tony	45
48			const
49			CRLF = #13 + #10;
50			CR = #13;
51			LF = #10;
52			TAB = #9;
53			NULL_TERMINATOR = #0;
54
55	tony	47	sqlReservedWords: array [0..197] of string = (
56			'ADD',
57			'ADMIN',
58			'ALL',
59			'ALTER',
60			'AND',
61			'ANY',
62			'AS',
63			'AT',
64			'AVG',
65			'BEGIN',
66			'BETWEEN',
67			'BIGINT',
68			'BIT_LENGTH',
69			'BLOB',
70			'BOOLEAN',
71			'BOTH',
72			'BY',
73			'CASE',
74			'CAST',
75			'CHAR',
76			'CHAR_LENGTH',
77			'CHARACTER',
78			'CHARACTER_LENGTH',
79			'CHECK',
80			'CLOSE',
81			'COLLATE',
82			'COLUMN',
83			'COMMIT',
84			'CONNECT',
85			'CONSTRAINT',
86			'CORR',
87			'COUNT',
88			'COVAR_POP',
89			'COVAR_SAMP',
90			'CREATE',
91			'CROSS',
92			'CURRENT',
93			'CURRENT_CONNECTION',
94			'CURRENT_DATE',
95			'CURRENT_ROLE',
96			'CURRENT_TIME',
97			'CURRENT_TIMESTAMP',
98			'CURRENT_TRANSACTION',
99			'CURRENT_USER',
100			'CURSOR',
101			'DATE',
102			'DAY',
103			'DEC',
104			'DECIMAL',
105			'DECLARE',
106			'DEFAULT',
107			'DELETE',
108			'DELETING',
109			'DETERMINISTIC',
110			'DISCONNECT',
111			'DISTINCT',
112			'DOUBLE',
113			'DROP',
114			'ELSE',
115			'END',
116			'ESCAPE',
117			'EXECUTE',
118			'EXISTS',
119			'EXTERNAL',
120			'EXTRACT',
121			'FALSE',
122			'FETCH',
123			'FILTER',
124			'FLOAT',
125			'FOR',
126			'FOREIGN',
127			'FROM',
128			'FULL',
129			'FUNCTION',
130			'GDSCODE',
131			'GLOBAL',
132			'GRANT',
133			'GROUP',
134			'HAVING',
135			'HOUR',
136			'IN',
137			'INDEX',
138			'INNER',
139			'INSENSITIVE',
140			'INSERT',
141			'INSERTING',
142			'INT',
143			'INTEGER',
144			'INTO',
145			'IS',
146			'JOIN',
147			'LEADING',
148			'LEFT',
149			'LIKE',
150			'LONG',
151			'LOWER',
152			'MAX',
153			'MAXIMUM_SEGMENT',
154			'MERGE',
155			'MIN',
156			'MINUTE',
157			'MONTH',
158			'NATIONAL',
159			'NATURAL',
160			'NCHAR',
161			'NO',
162			'NOT',
163			'NULL',
164			'NUMERIC',
165			'OCTET_LENGTH',
166			'OF',
167			'OFFSET',
168			'ON',
169			'ONLY',
170			'OPEN',
171			'OR',
172			'ORDER',
173			'OUTER',
174			'OVER',
175			'PARAMETER',
176			'PLAN',
177			'POSITION',
178			'POST_EVENT',
179			'PRECISION',
180			'PRIMARY',
181			'PROCEDURE',
182			'RDB$DB_KEY',
183			'RDB$RECORD_VERSION',
184			'REAL',
185			'RECORD_VERSION',
186			'RECREATE',
187			'RECURSIVE',
188			'REFERENCES',
189			'REGR_AVGX',
190			'REGR_AVGY',
191			'REGR_COUNT',
192			'REGR_INTERCEPT',
193			'REGR_R2',
194			'REGR_SLOPE',
195			'REGR_SXX',
196			'REGR_SXY',
197			'REGR_SYY',
198			'RELEASE',
199			'RETURN',
200			'RETURNING_VALUES',
201			'RETURNS',
202			'REVOKE',
203			'RIGHT',
204			'ROLLBACK',
205			'ROW',
206			'ROW_COUNT',
207			'ROWS',
208			'SAVEPOINT',
209			'SCROLL',
210			'SECOND',
211			'SELECT',
212			'SENSITIVE',
213			'SET',
214			'SIMILAR',
215			'SMALLINT',
216			'SOME',
217			'SQLCODE',
218			'SQLSTATE',
219			'SQLSTATE',
220			'START',
221			'STDDEV_POP',
222			'STDDEV_SAMP',
223			'SUM',
224			'TABLE',
225			'THEN',
226			'TIME',
227			'TIMESTAMP',
228			'TO',
229			'TRAILING',
230			'TRIGGER',
231			'TRIM',
232			'TRUE',
233			'UNION',
234			'UNIQUE',
235			'UNKNOWN',
236			'UPDATE',
237			'UPDATING',
238			'UPPER',
239			'USER',
240			'USING',
241			'VALUE',
242			'VALUES',
243			'VAR_POP',
244			'VAR_SAMP',
245			'VARCHAR',
246			'VARIABLE',
247			'VARYING',
248			'VIEW',
249			'WHEN',
250			'WHERE',
251			'WHILE',
252			'WITH',
253			'YEAR'
254			);
255	tony	45
256			function Max(n1, n2: Integer): Integer;
257			function Min(n1, n2: Integer): Integer;
258	tony	56	function RandomString(iLength: Integer): AnsiString;
259	tony	45	function RandomInteger(iLow, iHigh: Integer): Integer;
260	tony	56	function StripString(st: AnsiString; CharsToStrip: AnsiString): AnsiString;
261			function FormatIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
262			function FormatIdentifierValue(Dialect: Integer; Value: AnsiString): AnsiString;
263			function FormatIdentifierValueNC(Dialect: Integer; Value: AnsiString): AnsiString;
264			function ExtractIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
265			function QuoteIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
266			function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;
267			function Space2Underscore(s: AnsiString): AnsiString;
268			function SQLSafeString(const s: AnsiString): AnsiString;
269	tony	107	function IsSQLIdentifier(Value: AnsiString): boolean;
270	tony	45
271			implementation
272
273			function Max(n1, n2: Integer): Integer;
274			begin
275			if (n1 > n2) then
276			result := n1
277			else
278			result := n2;
279			end;
280
281			function Min(n1, n2: Integer): Integer;
282			begin
283			if (n1 < n2) then
284			result := n1
285			else
286			result := n2;
287			end;
288
289	tony	56	function RandomString(iLength: Integer): AnsiString;
290	tony	45	begin
291			result := '';
292			while Length(result) < iLength do
293			result := result + IntToStr(RandomInteger(0, High(Integer)));
294			if Length(result) > iLength then
295			result := Copy(result, 1, iLength);
296			end;
297
298			function RandomInteger(iLow, iHigh: Integer): Integer;
299			begin
300			result := Trunc(Random(iHigh - iLow)) + iLow;
301			end;
302
303	tony	56	function StripString(st: AnsiString; CharsToStrip: AnsiString): AnsiString;
304	tony	45	var
305			i: Integer;
306			begin
307			result := '';
308			for i := 1 to Length(st) do begin
309			if AnsiPos(st[i], CharsToStrip) = 0 then
310			result := result + st[i];
311			end;
312			end;
313
314	tony	56	function FormatIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
315	tony	45	begin
316			Value := Trim(Value);
317			if Dialect = 1 then
318			Value := AnsiUpperCase(Value)
319			else
320			if (Value <> '') and (Value[1] = '"') then
321			Value := '"' + StringReplace (TrimRight(Value), '"', '""', [rfReplaceAll]) + '"'
322			else
323			Value := AnsiUpperCase(Value);
324			Result := Value;
325			end;
326
327	tony	56	function FormatIdentifierValue(Dialect: Integer; Value: AnsiString): AnsiString;
328	tony	45	begin
329			Value := Trim(Value);
330			if Dialect = 1 then
331			Value := AnsiUpperCase(Value)
332			else
333			begin
334			if (Value <> '') and (Value[1] = '"') then
335			begin
336			Delete(Value, 1, 1);
337			Delete(Value, Length(Value), 1);
338			Value := StringReplace (Value, '""', '"', [rfReplaceAll]);
339			end
340			else
341			Value := AnsiUpperCase(Value);
342			end;
343			Result := Value;
344			end;
345
346	tony	56	function FormatIdentifierValueNC(Dialect: Integer; Value: AnsiString): AnsiString;
347	tony	45	begin
348			Value := Trim(Value);
349			if Dialect = 1 then
350			Value := AnsiUpperCase(Value)
351			else
352			begin
353			if (Value <> '') and (Value[1] = '"') then
354			begin
355			Delete(Value, 1, 1);
356			Delete(Value, Length(Value), 1);
357			Value := AnsiUpperCase(StringReplace (Value, '""', '"', [rfReplaceAll]));
358			end
359			else
360			Value := AnsiUpperCase(Value);
361			end;
362			Result := Value;
363			end;
364
365	tony	56	function ExtractIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
366	tony	45	begin
367			Value := Trim(Value);
368			if Dialect = 1 then
369			Value := AnsiUpperCase(Value)
370			else
371			begin
372			if (Value <> '') and (Value[1] = '"') then
373			begin
374			Delete(Value, 1, 1);
375			Delete(Value, Length(Value), 1);
376			Value := StringReplace (Value, '""', '"', [rfReplaceAll]);
377			end
378			else
379			Value := AnsiUpperCase(Value);
380			end;
381			Result := Value;
382			end;
383
384	tony	56	function IsReservedWord(w: AnsiString): boolean;
385	tony	45	var i: integer;
386			begin
387			Result := true;
388			for i := 0 to Length(sqlReservedWords) - 1 do
389			if w = sqlReservedWords[i] then
390			Exit;
391			Result := false;
392			end;
393
394	tony	56	function QuoteIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
395	tony	45	begin
396			if Dialect = 1 then
397			Value := AnsiUpperCase(Trim(Value))
398			else
399			Value := '"' + Value + '"';
400			Result := Value;
401			end;
402
403	tony	107	const
404			ValidSQLIdentifierChars = ['A'..'Z','a'..'z','0'..'9','_','$'];
405
406			function IsSQLIdentifier(Value: AnsiString): boolean;
407			var i: integer;
408			begin
409			Result := false;
410			for i := 1 to Length(Value) do
411			if not (Value[i] in ValidSQLIdentifierChars) then Exit;
412			Result := true;
413			end;
414
415	tony	56	function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;
416	tony	45	begin
417			if (Dialect = 3) and
418	tony	107	(IsReservedWord(Value) or not IsSQLIdentifier(Value)) then
419	tony	45	Result := '"' + Value + '"'
420			else
421			Result := Value
422			end;
423
424	tony	56	function Space2Underscore(s: AnsiString): AnsiString;
425	tony	45	var
426			k: integer;
427			begin
428			Result := s;
429			for k := 1 to Length(s) do
430			if not (Result[k] in ['0'..'9','A'..'Z','_','$']) then
431			Result[k] := '_';
432			end;
433
434	tony	56	function SQLSafeString(const s: AnsiString): AnsiString;
435	tony	47	begin
436			Result := StringReplace(s,'''','''''',[rfReplaceAll]);
437			end;
438	tony	45
439			end.