function StrIsReservedWord(Str: PChar): SmallInt; cdecl; export;

implementation

function QBash_StrIsReservedWord(Str: PChar): SmallInt;
const Words: array[0..288] of string = 
                             ('ACTION', 'ACTIVE', 'ADD', 'ADMIN', 'AFTER', 'ALL', 'ALTER', 'AND', ...); // Далее все резервированные слова
var LFoundIndex : Integer;
     ResWord : String;
     Stream : TStringList; // Для отладка
    
begin
   ResWord := String(Str);
   Stream := TStringList.Create;
   try
     Stream.Add(ResWord);
     Stream.SaveToFile('c:\Program Files\Firebird\Firebird_2_5\UDF\Debug.txt');
   finally
     Stream.Free;
   end;
   
   if TArray.BinarySearch<String>(Words, ResWord, LFoundIndex, TStringComparer.Ordinal) then
    Result := 1
  else
    Result := 0;
end;

DECLARE EXTERNAL FUNCTION UDF$STR_IS_RESERVED_WORD
    CSTRING(55) CHARACTER SET NONE NULL
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'StrIsReservedWord' MODULE_NAME 'MyUDF';

COMMENT ON EXTERNAL FUNCTION UDF$STR_IS_RESERVED_WORD IS 'Return (1 = true) or (0 = false)';

  select UDF$STR_IS_RESERVED_WORD('DATE') from rdb$database

CHARACTER SET NONE NULL

function StrIsReservedWord(Str: PAnsiChar): SmallInt; cdecl; export;
const Words: array[0..288] of string = 
                             ('ACTION', 'ACTIVE', 'ADD', 'ADMIN', 'AFTER', 'ALL', 'ALTER', 'AND', ...); // Далее все резервированные слова
var LFoundIndex : Integer;
     ResWord : String;   
begin
   SetString(ResWord , Str, SizeOf(Str));   
   if TArray.BinarySearch<String>(Words, ResWord, LFoundIndex, TStringComparer.Ordinal) then
    Result := 1
  else
    Result := 0;
end;

Поскольку в большинстве случаев вместо типа PChar можно использовать тип AnsiS-
tring, рекомендуется применять его везде, где это возможно. При этом удается из-
бежать множества неприятностей, связанных с выделением и освобождением памяти,
поскольку при работе с AnsiString компилятор берет заботу об этом на себя.

var
  S: string;   // Переменная S имеет тип AnsiString