通用查询组件设计（续三）[8]

              result := result + format('%0:s >= :%1:sstart)', [field, fieldname]);   {do not localize}

            if (startingvalue <> '') and (endingvalue <> '') then

              result := result + ' and (';   {do not localize}

            if endingvalue <> '' then

              result := result + format('%0:s <= :%1:send)', [field, fieldname]);  {do not localize}

          end

        end;

      end;

  end

  else

    case matchtype of

      fdmatchrange :

      begin

        if startingvalue <> '' then

          result := result + format('%0:s >= :%1:sstart)', [field, fieldname]); {do not localize}

        if (startingvalue <> '') and (endingvalue <> '') then

          result := result + ' and ('; {do not localize}

        if endingvalue <> '' then

          result := result + format('%0:s <= :%1:send)', [field, fieldname]);  {do not localize}

      end;

      else

        result := result + format('%0:s = :%1:sfilter ) ', [field, fieldname]); {do not localize}

    end;

end;