Я тут уже писал - у меня один из последних снапшотов FB2.
Похоже, придется писать udf:
function CheckDigit(const field: string): boolean;
var
   i: Integer;
begin
   Result := False;
   for i:=1 to length(field) do begin
      if not (field[i] in [0..9]) then begin
         Exit;
      end;
   end;
   Result := True;
end;

либо просить разработчиков, чтобы включили это в стандартный udf :) но уже 
поуниверсальнее
что-то типа
function CheckChar(const field: string; const setofchar: TCharSet): boolean;

Ответить